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

[Eli Zaretskii]

branch: emacs-30
commit a1b8c2610a4d0cc99088c024e884495b26a17fa8
Author: Paul W. Rankin <rnkn@rnkn.xyz>
Commit: Eli Zaretskii <eliz@gnu.org>

    * 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)
---
 lisp/help-macro.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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