diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-07-02 16:59:14 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-07-02 17:09:22 +0200 |
| commit | 4b9b1ea6a091f41f3c0315762661b4dcc350564a (patch) | |
| tree | 170d0d28c75e54a8061eaf41bbf6e95d56935860 /lisp/repeat.el | |
| parent | ad73b588d48367dbef35c7561f79473317bd81f9 (diff) | |
| download | emacs-4b9b1ea6a091f41f3c0315762661b4dcc350564a.tar.gz | |
Use help-key-binding face in repeat-mode message
* lisp/repeat.el (repeat-echo-message-string): Use
substitute-command-keys.
Diffstat (limited to 'lisp/repeat.el')
| -rw-r--r-- | lisp/repeat.el | 4 |
1 files changed, 3 insertions, 1 deletions
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" |