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

* lisp/repeat.el (repeat-echo-message-string): Use
substitute-command-keys.
This commit is contained in:
Stefan Kangas 2022-07-02 16:59:14 +02:00
parent ad73b588d4
commit 4b9b1ea6a0

View file

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