[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 4b9b1ea6a0 2/2: Use help-key-binding face in repeat-mode message
From: |
Stefan Kangas |
Subject: |
master 4b9b1ea6a0 2/2: Use help-key-binding face in repeat-mode message |
Date: |
Sat, 2 Jul 2022 11:09:38 -0400 (EDT) |
branch: master
commit 4b9b1ea6a091f41f3c0315762661b4dcc350564a
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
Use help-key-binding face in repeat-mode message
* lisp/repeat.el (repeat-echo-message-string): Use
substitute-command-keys.
---
lisp/repeat.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/repeat.el b/lisp/repeat.el
index fa65057a73..6bbed95449 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"