[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master feac92fe1d: Use help-key-binding face in text scale adjust messag
From: |
Stefan Kangas |
Subject: |
master feac92fe1d: Use help-key-binding face in text scale adjust messages |
Date: |
Sat, 2 Jul 2022 11:32:30 -0400 (EDT) |
branch: master
commit feac92fe1da10d75aa9319a43458bca55086cd6f
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
Use help-key-binding face in text scale adjust messages
* lisp/face-remap.el (text-scale-adjust)
(global-text-scale-adjust): Use substitute-command-keys.
---
lisp/face-remap.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/lisp/face-remap.el b/lisp/face-remap.el
index ade650c629..7037bc58cb 100644
--- a/lisp/face-remap.el
+++ b/lisp/face-remap.el
@@ -409,7 +409,8 @@ See also the related command `global-text-scale-adjust'."
(_ inc))))
(text-scale-increase step)
;; (unless (zerop step)
- (message "Use +,-,0 for further adjustment")
+ (message (substitute-command-keys
+ "Use \\`+',\\`-',\\`0' for further adjustment"))
(set-transient-map
(let ((map (make-sparse-keymap)))
(dolist (mods '(() (control)))
@@ -514,7 +515,8 @@ See also the related command `text-scale-adjust'."
(not global-text-scale-adjust-resizes-frames)))
(set-face-attribute 'default nil :height new)))
(when (characterp key)
- (message "Use +,-,0 for further adjustment")
+ (message (substitute-command-keys
+ "Use \\`+',\\`-',\\`0' for further adjustment"))
(set-transient-map
(let ((map (make-sparse-keymap)))
(dolist (mod '(() (control meta)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master feac92fe1d: Use help-key-binding face in text scale adjust messages,
Stefan Kangas <=