From 7d7e2b8da8b45593b718c7e2e8a6b0d7503e66ba Mon Sep 17 00:00:00 2001 From: Mats Lidell Date: Mon, 1 Aug 2022 21:39:01 +0200 Subject: [PATCH 1/8] Doc strings within 80 char limit for hsettings.el --- ChangeLog | 1 + hsettings.el | 25 +++++++++++++++---------- 2 files changed, 16 insertions(+), 10 deletions(-) diff --git a/ChangeLog b/ChangeLog index da1525f2..973119c6 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,6 @@ 2022-09-14 Mats Lidell +* hsettings.el: * hywconfig.el: * htz.el: * hmouse-mod.el: diff --git a/hsettings.el b/hsettings.el index c271674d..017033b9 100644 --- a/hsettings.el +++ b/hsettings.el @@ -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. @@ -86,9 +86,10 @@ ;; 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 always display the Smart Menu window. +It is displayed 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.") (defcustom hmouse-middle-flag (and (boundp 'infodock-version) infodock-version t) "*Under InfoDock or when t, additionally bind the middle mouse button as an @@ -97,11 +98,13 @@ 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 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 +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." :type 'boolean :group 'hyperbole-keys) @@ -146,7 +149,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). +Do not prompt if optional arguments SERVICE-NAME and SEARCH-TERM +are given as not null and not empty strings." (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 From c53405a3ec2d1a653842f37b56555e830f0a0e9a Mon Sep 17 00:00:00 2001 From: Mats Lidell Date: Sun, 14 Aug 2022 22:25:46 +0200 Subject: [PATCH 2/8] Update hsettings.el Co-authored-by: Robert Weiner --- hsettings.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/hsettings.el b/hsettings.el index 017033b9..c624f7fa 100644 --- a/hsettings.el +++ b/hsettings.el @@ -150,7 +150,8 @@ lines" (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). -Do not prompt if optional arguments SERVICE-NAME and SEARCH-TERM +With optional non-empty SERVICE-NAME and SEARCH-TERM arguments, +use those and do not read from the keyboard." are given as not null and not empty strings." (let ((completion-ignore-case t)) (while (or (not (stringp service-name)) (equal service-name "")) From 4bd52bc51a78b19cdbf35eaf4a23d240e5b24c12 Mon Sep 17 00:00:00 2001 From: Mats Lidell Date: Sun, 14 Aug 2022 22:26:29 +0200 Subject: [PATCH 3/8] Update hsettings.el Co-authored-by: Robert Weiner --- hsettings.el | 1 - 1 file changed, 1 deletion(-) diff --git a/hsettings.el b/hsettings.el index c624f7fa..76a1c80c 100644 --- a/hsettings.el +++ b/hsettings.el @@ -152,7 +152,6 @@ lines" "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 and do not read from the keyboard." -are given as not null and not empty strings." (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 From 439fb20b3f66abeae61914cba5d9c25f77ea83e2 Mon Sep 17 00:00:00 2001 From: Mats Lidell Date: Thu, 15 Sep 2022 00:20:02 +0200 Subject: [PATCH 4/8] Update hsettings.el Co-authored-by: Robert Weiner --- hsettings.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hsettings.el b/hsettings.el index 76a1c80c..1dbebfe0 100644 --- a/hsettings.el +++ b/hsettings.el @@ -86,8 +86,8 @@ ;; 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. -It is displayed when the Action or Assist Key is pressed and the + "*Non-nil means display the Smart Menu window in the following case. +Display 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.") From 6433f0d3b8584ad1591c455505a9e9e780d7fb50 Mon Sep 17 00:00:00 2001 From: Mats Lidell Date: Thu, 15 Sep 2022 00:20:10 +0200 Subject: [PATCH 5/8] Update hsettings.el Co-authored-by: Robert Weiner --- hsettings.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/hsettings.el b/hsettings.el index 1dbebfe0..21c0e77a 100644 --- a/hsettings.el +++ b/hsettings.el @@ -98,13 +98,12 @@ Action Key." :group 'hyperbole-keys) (defcustom smart-scroll-proportional t - "*Non-nil means scroll behavior is relative to current line. + "*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 -window. Assist Key moves current line to bottom of window. +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 -instead ignores current line and always scrolls up or down a -windowful." +ignores current line and always scrolls up or down a windowful." :type 'boolean :group 'hyperbole-keys) From ebe67cac29b3c3a833a1884231f9c92fb8c1575e Mon Sep 17 00:00:00 2001 From: Mats Lidell Date: Thu, 15 Sep 2022 00:20:16 +0200 Subject: [PATCH 6/8] Update hsettings.el Co-authored-by: Robert Weiner --- hsettings.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hsettings.el b/hsettings.el index 21c0e77a..91558fdc 100644 --- a/hsettings.el +++ b/hsettings.el @@ -150,7 +150,7 @@ lines" (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). With optional non-empty SERVICE-NAME and SEARCH-TERM arguments, -use those and do not read from the keyboard." +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 From 1c80442b688eb7d4acb341c4ac027eec47cddd8f Mon Sep 17 00:00:00 2001 From: Mats Lidell Date: Mon, 3 Oct 2022 21:38:45 +0200 Subject: [PATCH 7/8] Update hsettings.el Co-authored-by: Robert Weiner --- hsettings.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hsettings.el b/hsettings.el index 91558fdc..8ca881e1 100644 --- a/hsettings.el +++ b/hsettings.el @@ -150,7 +150,7 @@ lines" (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). With optional non-empty SERVICE-NAME and SEARCH-TERM arguments, -use those instead of reading from the keyboard." +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 From 87a353fe90db1863f6ebf4e557516f88108c1a1e Mon Sep 17 00:00:00 2001 From: Mats Lidell Date: Mon, 3 Oct 2022 21:38:57 +0200 Subject: [PATCH 8/8] Update hsettings.el Co-authored-by: Robert Weiner --- hsettings.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/hsettings.el b/hsettings.el index 8ca881e1..e76ec350 100644 --- a/hsettings.el +++ b/hsettings.el @@ -86,10 +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 display the Smart Menu window in the following case. -Display 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