summaryrefslogtreecommitdiff
path: root/lisp/edmacro.el
diff options
context:
space:
mode:
authorStefan Kangas <stefan@marxist.se>2022-06-17 12:18:26 +0200
committerStefan Kangas <stefan@marxist.se>2022-06-17 13:12:03 +0200
commit77c7a79a3fcc0ace2b58ae21b9fcb93bf536d923 (patch)
tree291ec7906ba53ad685dadca02274d8ec52d0aec7 /lisp/edmacro.el
parent17b3f8d56e254f8f0478ce583451f02e6034ed48 (diff)
downloademacs-77c7a79a3fcc0ace2b58ae21b9fcb93bf536d923.tar.gz
* lisp/edmacro.el (edit-kbd-macro): Use command substitution.
Diffstat (limited to 'lisp/edmacro.el')
-rw-r--r--lisp/edmacro.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/edmacro.el b/lisp/edmacro.el
index 26f3ae02aba..fe1fc086bc6 100644
--- a/lisp/edmacro.el
+++ b/lisp/edmacro.el
@@ -154,8 +154,10 @@ With a prefix argument, format the macro in a more concise way."
(setq-local edmacro-finish-hook finish-hook)
(setq-local edmacro-store-hook store-hook)
(erase-buffer)
- (insert ";; Keyboard Macro Editor. Press C-c C-c to finish; "
- "press C-x k RET to cancel.\n")
+ (insert (substitute-command-keys
+ (concat
+ ";; Keyboard Macro Editor. Press \\[edmacro-finish-edit] "
+ "to finish; press \\`C-x k RET' to cancel.\n")))
(insert ";; Original keys: " fmt "\n")
(unless store-hook
(insert "\nCommand: " (if cmd (symbol-name cmd) "none") "\n")