diff options
| author | Stefan Kangas | 2022-06-17 12:18:26 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2022-06-17 13:12:03 +0200 |
| commit | 77c7a79a3fcc0ace2b58ae21b9fcb93bf536d923 (patch) | |
| tree | 291ec7906ba53ad685dadca02274d8ec52d0aec7 | |
| parent | 17b3f8d56e254f8f0478ce583451f02e6034ed48 (diff) | |
| download | emacs-77c7a79a3fcc0ace2b58ae21b9fcb93bf536d923.tar.gz emacs-77c7a79a3fcc0ace2b58ae21b9fcb93bf536d923.zip | |
* lisp/edmacro.el (edit-kbd-macro): Use command substitution.
| -rw-r--r-- | lisp/edmacro.el | 6 |
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." | |||
| 154 | (setq-local edmacro-finish-hook finish-hook) | 154 | (setq-local edmacro-finish-hook finish-hook) |
| 155 | (setq-local edmacro-store-hook store-hook) | 155 | (setq-local edmacro-store-hook store-hook) |
| 156 | (erase-buffer) | 156 | (erase-buffer) |
| 157 | (insert ";; Keyboard Macro Editor. Press C-c C-c to finish; " | 157 | (insert (substitute-command-keys |
| 158 | "press C-x k RET to cancel.\n") | 158 | (concat |
| 159 | ";; Keyboard Macro Editor. Press \\[edmacro-finish-edit] " | ||
| 160 | "to finish; press \\`C-x k RET' to cancel.\n"))) | ||
| 159 | (insert ";; Original keys: " fmt "\n") | 161 | (insert ";; Original keys: " fmt "\n") |
| 160 | (unless store-hook | 162 | (unless store-hook |
| 161 | (insert "\nCommand: " (if cmd (symbol-name cmd) "none") "\n") | 163 | (insert "\nCommand: " (if cmd (symbol-name cmd) "none") "\n") |