diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-07-02 17:32:14 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-07-02 17:32:14 +0200 |
| commit | feac92fe1da10d75aa9319a43458bca55086cd6f (patch) | |
| tree | a0748331d72815114f77712e9a11db7aa644d185 /lisp/face-remap.el | |
| parent | 4b9b1ea6a091f41f3c0315762661b4dcc350564a (diff) | |
| download | emacs-feac92fe1da10d75aa9319a43458bca55086cd6f.tar.gz emacs-feac92fe1da10d75aa9319a43458bca55086cd6f.tar.bz2 emacs-feac92fe1da10d75aa9319a43458bca55086cd6f.zip | |
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.
Diffstat (limited to 'lisp/face-remap.el')
| -rw-r--r-- | lisp/face-remap.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/face-remap.el b/lisp/face-remap.el index ade650c629e..7037bc58cb2 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))) |