master 1e0e77b: Use variable-pitch-mode in 'C-h C-h'

[Stefan Kangas]

branch: master
commit 1e0e77bd449dd50501ee7047362a1e66f45c6d46
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Use variable-pitch-mode in 'C-h C-h'
    
    * lisp/faces.el (help-key-binding): Inherit 'fixed-pitch'.
    * lisp/help-macro.el (make-help-screen): Use
    'variable-pitch-mode'.
    
    This was discussed in
    https://lists.gnu.org/r/emacs-devel/2021-11/msg01378.html
---
 lisp/faces.el      | 14 +++++++++-----
 lisp/help-macro.el |  1 +
 2 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/lisp/faces.el b/lisp/faces.el
index b2498cd..a07f8c6 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -2883,13 +2883,17 @@ Note: Other faces cannot inherit from the cursor face."
      ;; making the characters wider, which then would cause unpleasant
      ;; horizontal shifts of the cursor during C-n/C-p movement
      ;; through a line with this face.
-     :box (:line-width (-1 . -1) :color "grey80"))
+     :box (:line-width (-1 . -1) :color "grey80")
+     :inherit fixed-pitch)
     (((class color) (min-colors 88) (background dark))
      :background "grey19" :foreground "LightBlue"
-     :box (:line-width (-1 . -1) :color "grey35"))
-    (((class color grayscale) (background light)) :background "grey90")
-    (((class color grayscale) (background dark)) :background "grey25")
-    (t :background "grey90"))
+     :box (:line-width (-1 . -1) :color "grey35")
+     :inherit fixed-pitch)
+    (((class color grayscale) (background light)) :background "grey90"
+     :inherit fixed-pitch)
+    (((class color grayscale) (background dark)) :background "grey25"
+     :inherit fixed-pitch)
+    (t :background "grey90" :inherit fixed-pitch))
   "Face for keybindings in *Help* buffers.
 
 This face is added by `substitute-command-keys', which see.
diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index 1fa9d82..588efee 100644
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -140,6 +140,7 @@ and then returns."
                    (insert (substitute-command-keys help-screen)))
                  (let ((minor-mode-map-alist new-minor-mode-map-alist))
                    (help-mode)
+                   (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