From: Paul W. Rankin <rnkn@rnkn.xyz>
Date: Thu, 8 Aug 2024 02:16:07 +0000 (+1000)
Subject: * lisp/help-macro.el: Add 'help-for-help-use-variable-pitch' option.
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~578
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=a1b8c2610a4d0cc99088c024e884495b26a17fa8;p=emacs.git

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

This makes 'variable-pitch-mode' optional, by default ON (to
preserve previous behavior), in Help buffers.  (Bug#72521)
---

diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index 8a16e85a329..2e4d9fbb2e9 100644
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -78,6 +78,12 @@ gives the window that lists the options."
   :type 'boolean
   :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
                                   &optional buffer-name)
   "Construct help-menu function name FNAME.
@@ -146,7 +152,8 @@ and then returns."
                 (insert (substitute-command-keys help-screen)))
               (let ((minor-mode-map-alist new-minor-mode-map-alist))
                 (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))
               (goto-char (point-min))
               (while (or (memq char (append help-event-list