mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases Activity

* lisp/help-macro.el: Add 'help-for-help-use-variable-pitch' option.

Browse Source 
This makes 'variable-pitch-mode' optional, by default ON (to
preserve previous behavior), in Help buffers.  (Bug#72521)
This commit is contained in:
Paul W. Rankin 2024-08-08 12:16:07 +10:00 committed by Eli Zaretskii
parent a577eccdbb
commit a1b8c2610a
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/help-macro.el
View File

@ -78,6 +78,12 @@ gives the window that lists the options."
:type 'boolean :type 'boolean
:group 'help) :group 'help)
(defcustom help-for-help-use-variable-pitch t
"If non-nil, `help-for-help' should use `variable-pitch-mode'."
:type 'boolean
:version "30.1"
:group 'help)
(defmacro make-help-screen (fname help-line help-text helped-map (defmacro make-help-screen (fname help-line help-text helped-map
&optional buffer-name) &optional buffer-name)
"Construct help-menu function name FNAME. "Construct help-menu function name FNAME.
@ -146,7 +152,8 @@ and then returns."
(insert (substitute-command-keys help-screen))) (insert (substitute-command-keys help-screen)))
(let ((minor-mode-map-alist new-minor-mode-map-alist)) (let ((minor-mode-map-alist new-minor-mode-map-alist))
(help-mode) (help-mode)
(variable-pitch-mode) (when help-for-help-use-variable-pitch
(variable-pitch-mode))
(setq new-minor-mode-map-alist minor-mode-map-alist)) (setq new-minor-mode-map-alist minor-mode-map-alist))
(goto-char (point-min)) (goto-char (point-min))
(while (or (memq char (append help-event-list (while (or (memq char (append help-event-list