diff options
| author | Juri Linkov <juri@linkov.net> | 2022-07-03 20:02:02 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2022-07-03 20:02:02 +0300 |
| commit | ae31dd53069ad71772387f8abed3ebf2e1b54b5a (patch) | |
| tree | 1f11105c354866b52df2ce9fe18a130db804dbff /lisp/repeat.el | |
| parent | 1c3c8b6d58c91ceaac90ebe800ec365983ae81a2 (diff) | |
| download | emacs-ae31dd53069ad71772387f8abed3ebf2e1b54b5a.tar.gz emacs-ae31dd53069ad71772387f8abed3ebf2e1b54b5a.tar.bz2 emacs-ae31dd53069ad71772387f8abed3ebf2e1b54b5a.zip | |
Use more help-key-binding faces in repeat-mode message
* lisp/repeat.el (repeat-echo-message-string): Use
substitute-command-keys for repeat-exit-key as well.
Diffstat (limited to 'lisp/repeat.el')
| -rw-r--r-- | lisp/repeat.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/repeat.el b/lisp/repeat.el index 6bbed954495..608f7aaf987 100644 --- a/lisp/repeat.el +++ b/lisp/repeat.el @@ -508,8 +508,9 @@ See `describe-repeat-maps' for a list of all repeatable commands." (key-description (vector key))))) keys ", ") (if repeat-exit-key - (format ", or exit with %s" - (key-description repeat-exit-key)) + (substitute-command-keys + (format ", or exit with \\`%s'" + (key-description repeat-exit-key))) "")))) (defun repeat-echo-message (keymap) |