From 1e0e77bd449dd50501ee7047362a1e66f45c6d46 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sun, 21 Nov 2021 14:44:41 +0100 Subject: [PATCH] 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 b2498cda88a..a07f8c652e4 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 1fa9d82afd8..588efee66b1 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 -- 2.39.5