From: Stefan Kangas <stefan@marxist.se>
Date: Sat, 2 Jul 2022 15:32:14 +0000 (+0200)
Subject: Use help-key-binding face in text scale adjust messages
X-Git-Tag: emacs-29.0.90~1447^2~1262
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=feac92fe1da10d75aa9319a43458bca55086cd6f;p=emacs.git

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.
---

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