Skip to content

hversion.el: Shorten docs strings to be within 80 char limit. #262

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 4 commits into from
Oct 3, 2022
Merged

hversion.el: Shorten docs strings to be within 80 char limit. #262

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
3564712
hversion.el: Shorten docs strings to be within 80 char limit.
matsl Aug 6, 2022
c9dc403
Update hversion.el
matsl Aug 14, 2022
9bc5879
Update hversion.el
matsl Sep 14, 2022
bbda4cb
Merge branch 'master' into long_doc_strings_hversion.el
matsl Oct 3, 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-03 Mats Lidell <matsl@gnu.org>

* hversion.el:
* hui-window.el:
* hmouse-key.el:
* hmouse-drv.el:
Expand Down
21 changes: 12 additions & 9 deletions hversion.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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.
Expand All @@ -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))
Expand All @@ -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. 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)."
Expand Down Expand Up @@ -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))
Expand All @@ -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))

Expand Down