From 35647128a3a759fe4ea7e3fdace0f06cffc1b532 Mon Sep 17 00:00:00 2001 From: Mats Lidell Date: Sat, 6 Aug 2022 12:23:30 +0200 Subject: [PATCH 1/3] hversion.el: Shorten docs strings to be within 80 char limit. --- ChangeLog | 1 + hversion.el | 21 ++++++++++++--------- 2 files changed, 13 insertions(+), 9 deletions(-) diff --git a/ChangeLog b/ChangeLog index da1525f2..6c55f381 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,6 @@ 2022-09-14 Mats Lidell +* hversion.el: * hywconfig.el: * htz.el: * hmouse-mod.el: diff --git a/hversion.el b/hversion.el index 89f15479..14329956 100644 --- a/hversion.el +++ b/hversion.el @@ -4,9 +4,9 @@ ;; Maintainer: Bob Weiner, Mats Lidell ;; ;; Orig-Date: 1-Jan-94 -;; Last-Mod: 11-May-22 at 01:11:22 by Bob Weiner +;; Last-Mod: 6-Aug-22 at 12:23:16 by Mats Lidell ;; -;; Copyright (C) 1994-2021 Free Software Foundation, Inc. +;; Copyright (C) 1994-2022 Free Software Foundation, Inc. ;; See the "HY-COPY" file for license information. ;; ;; This file is part of GNU Hyperbole. @@ -32,7 +32,8 @@ (memq window-system '(ns dps))) 2 3) "Number of live buttons available on the mouse. -Override this if the system-computed default is incorrect for your specific mouse.") +Override this if the system-computed default is incorrect for +your specific mouse.") (defvar hyperb:automount-prefixes (if (and (boundp 'automount-dir-prefix) (stringp automount-dir-prefix)) @@ -51,9 +52,10 @@ Override this if the system-computed default is incorrect for your specific mous ;; Called in hyperbole.el. (defun hyperb:stack-frame (function-list &optional debug-flag) - "Return the nearest Emacs Lisp stack frame which called any function symbol from FUNCTION-LIST or nil if no match. -If FUNCTION-LIST contains 'load, 'autoload or 'require, detect -autoloads not visible within the Lisp level stack frames. + "Return the nearest elisp stack frame that called a function from FUNCTION-LIST. +Return nil if there is no match. If FUNCTION-LIST contains +'load, 'autoload or 'require, detect autoloads not visible within +the Lisp level stack frames. With optional DEBUG-FLAG non-nil, if no matching frame is found, return list of stack frames (from innermost to outermost)." @@ -117,7 +119,7 @@ the pathname." file))))) (defun hyperb:window-sys-term (&optional frame) - "Return the first part of the term-type if running under a window system, else nil. + "Return first part of the term-type if running under a window system, else nil. Where a part in the term-type is delimited by a `-' or an `_'." (unless frame (setq frame (selected-frame))) (let* ((display-type (if (fboundp 'device-type) (device-type) window-system)) @@ -139,8 +141,9 @@ Where a part in the term-type is delimited by a `-' or an `_'." term)) (defun hyperb:window-system (&optional frame) - "Return the string name for window system or term type under which the selected FRAME is running. -If nil after system initialization, no window system or mouse support is available." + "Return name of window system or term type where the selected FRAME is running. +If nil after system initialization, no window system or mouse +support is available." (unless frame (setq frame (selected-frame))) (frame-parameter frame 'hyperb:window-system)) From c9dc4036bb2c4e11e164616fba21a78b77a31226 Mon Sep 17 00:00:00 2001 From: Mats Lidell Date: Sun, 14 Aug 2022 22:46:00 +0200 Subject: [PATCH 2/3] Update hversion.el Co-authored-by: Robert Weiner --- hversion.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hversion.el b/hversion.el index 14329956..5fc655fa 100644 --- a/hversion.el +++ b/hversion.el @@ -52,7 +52,7 @@ your specific mouse.") ;; Called in hyperbole.el. (defun hyperb:stack-frame (function-list &optional debug-flag) - "Return the nearest elisp stack frame that called a function from FUNCTION-LIST. + "Return the nearest Elisp stack frame that called a function from FUNCTION-LIST. Return nil if there is no match. If FUNCTION-LIST contains 'load, 'autoload or 'require, detect autoloads not visible within the Lisp level stack frames. From 9bc5879787117411cbba28518a8569b026194b5a Mon Sep 17 00:00:00 2001 From: Mats Lidell Date: Wed, 14 Sep 2022 22:47:37 +0200 Subject: [PATCH 3/3] Update hversion.el Co-authored-by: Robert Weiner --- hversion.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/hversion.el b/hversion.el index 5fc655fa..694a32c0 100644 --- a/hversion.el +++ b/hversion.el @@ -53,9 +53,9 @@ your specific mouse.") ;; Called in hyperbole.el. (defun hyperb:stack-frame (function-list &optional debug-flag) "Return the nearest Elisp stack frame that called a function from FUNCTION-LIST. -Return nil if there is no match. If FUNCTION-LIST contains -'load, 'autoload or 'require, detect autoloads not visible within -the Lisp level stack frames. +Return nil if there is no match. FUNCTION-LIST entries must be symbols. +If FUNCTION-LIST contains 'load, 'autoload or 'require, detect autoloads +not visible within the Lisp level stack frames. With optional DEBUG-FLAG non-nil, if no matching frame is found, return list of stack frames (from innermost to outermost)."