Skip to content

Doc strings within 80 char limit for hsettings.el #248

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
matsl merged 10 commits into from
Oct 5, 2022
Merged

Doc strings within 80 char limit for hsettings.el #248

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
10 commits
Select commit Hold shift + click to select a range
7d7e2b8
Doc strings within 80 char limit for hsettings.el
matsl Aug 1, 2022
c53405a
Update hsettings.el
matsl Aug 14, 2022
4bd52bc
Update hsettings.el
matsl Aug 14, 2022
439fb20
Update hsettings.el
matsl Sep 14, 2022
6433f0d
Update hsettings.el
matsl Sep 14, 2022
ebe67ca
Update hsettings.el
matsl Sep 14, 2022
1c80442
Update hsettings.el
matsl Oct 3, 2022
87a353f
Update hsettings.el
matsl Oct 3, 2022
2d8ffe7
Merge branch 'master' into long_doc_strings_hsettings.el
matsl Oct 3, 2022
fdb5227
Merge branch 'master' into long_doc_strings_hsettings.el
matsl Oct 5, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
1 change: 1 addition & 0 deletions ChangeLog
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,6 @@
2022-10-05 Mats Lidell <matsl@gnu.org>

* hsettings.el:
* hsys-org.el:
* hui-mini.el: Shorten docs strings to be within 80 char limit.

Expand Down
23 changes: 13 additions & 10 deletions hsettings.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@
;; Author: Bob Weiner
;;
;; Orig-Date: 15-Apr-91 at 00:48:49
;; Last-Mod: 17-Jul-22 at 16:27:17 by Bob Weiner
;; Last-Mod: 1-Aug-22 at 21:34:56 by Mats Lidell
;;
;; Copyright (C) 1991-2022 Free Software Foundation, Inc.
;; See the "HY-COPY" file for license information.
Expand Down Expand Up @@ -86,9 +86,9 @@
;; The Smart Menu system is an attractive in-buffer menu system that
;; predates Emacs menu systems; it is included in InfoDock.
(defvar hkey-always-display-menu nil
"*Non-nil means always display the Smart Menu window when the Action or Assist Key is pressed and the Smart Menu system has been loaded.
If a Smart Menu is already displayed, perform another Action or Assist Key
function.")
"*Non-nil means a Smart Key press pops up the Smart Menu window.
The Smart Menu system must have already been loaded. If a Smart
Menu is already displayed, perform another Action or Assist Key function.")

(defcustom hmouse-middle-flag (and (boundp 'infodock-version) infodock-version t)
"*Under InfoDock or when t, additionally bind the middle mouse button as an
Expand All @@ -97,11 +97,12 @@ Action Key."
:group 'hyperbole-keys)

(defcustom smart-scroll-proportional t
"*Non-nil means Smart Keys should scroll relative to current line when pressed at the end of a line.
Action Key moves current line to top of window. Assist Key moves current
line to bottom of window. Repeated presses then scroll up or down a
windowful. Nil value instead ignores current line and always scrolls up or
down a windowful."
"*Non-nil means Smart Key scroll behavior is relative to current line.
Smart Keys will scroll relative to current line when pressed at
the end of a line. Action Key moves current line to top of the
window. Assist Key moves current line to bottom of the window.
Repeated presses then scroll up or down a windowful. Nil value
ignores current line and always scrolls up or down a windowful."
:type 'boolean
:group 'hyperbole-keys)

Expand Down Expand Up @@ -146,7 +147,9 @@ lines"
(buffer-substring-no-properties (region-beginning) (region-end))))

(defun hyperbole-read-web-search-arguments (&optional service-name search-term)
"Read from the keyboard a list of (web-search-service-string search-term-string) if not given as arguments."
"Read from the keyboard a list of (web-search-service-string search-term-string).
With optional non-empty SERVICE-NAME and SEARCH-TERM arguments,
use those instead of reading from the keyboard."
(let ((completion-ignore-case t))
(while (or (not (stringp service-name)) (equal service-name ""))
(setq service-name (completing-read "Search service: " hyperbole-web-search-alist
Expand Down