From: Stefan Kangas <stefan@marxist.se>
Date: Sat, 2 Jul 2022 14:59:14 +0000 (+0200)
Subject: Use help-key-binding face in repeat-mode message
X-Git-Tag: emacs-29.0.90~1447^2~1263
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4b9b1ea6a091f41f3c0315762661b4dcc350564a;p=emacs.git

Use help-key-binding face in repeat-mode message

* lisp/repeat.el (repeat-echo-message-string): Use
substitute-command-keys.
---

diff --git a/lisp/repeat.el b/lisp/repeat.el
index fa65057a73f..6bbed954495 100644
--- a/lisp/repeat.el
+++ b/lisp/repeat.el
@@ -503,7 +503,9 @@ See `describe-repeat-maps' for a list of all repeatable commands."
     (map-keymap (lambda (key cmd) (and cmd (push key keys))) keymap)
     (format-message "Repeat with %s%s"
                     (mapconcat (lambda (key)
-                                 (key-description (vector key)))
+                                 (substitute-command-keys
+                                  (format "\\`%s'"
+                                          (key-description (vector key)))))
                                keys ", ")
                     (if repeat-exit-key
                         (format ", or exit with %s"