diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-11-21 14:44:41 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-11-21 14:44:41 +0100 |
| commit | 1e0e77bd449dd50501ee7047362a1e66f45c6d46 (patch) | |
| tree | 9abee2bd68137661e29b89abb64a3af3a799da85 | |
| parent | 75d294cd4abb4d4062a1bfcd914229d0f9e142dd (diff) | |
| download | emacs-1e0e77bd449dd50501ee7047362a1e66f45c6d46.tar.gz emacs-1e0e77bd449dd50501ee7047362a1e66f45c6d46.tar.bz2 emacs-1e0e77bd449dd50501ee7047362a1e66f45c6d46.zip | |
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
| -rw-r--r-- | lisp/faces.el | 14 | ||||
| -rw-r--r-- | 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 |