[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 1e0e77b: Use variable-pitch-mode in 'C-h C-h'
From: |
Stefan Kangas |
Subject: |
master 1e0e77b: Use variable-pitch-mode in 'C-h C-h' |
Date: |
Sun, 21 Nov 2021 08:44:47 -0500 (EST) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 1e0e77b: Use variable-pitch-mode in 'C-h C-h',
Stefan Kangas <=