procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use help-key-binding face in text scale adjust messages

Browse source 
* lisp/face-remap.el (text-scale-adjust)
(global-text-scale-adjust): Use substitute-command-keys.
This commit is contained in:
Stefan Kangas 2022-07-02 17:32:14 +02:00
parent 4b9b1ea6a0
commit feac92fe1d
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/face-remap.el
View file

@ -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)))