[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master ec0527d 1/4: Use command substitution for exit-recursive-edit
From: |
Stefan Kangas |
Subject: |
master ec0527d 1/4: Use command substitution for exit-recursive-edit |
Date: |
Sat, 18 Sep 2021 17:42:39 -0400 (EDT) |
branch: master
commit ec0527d8e9a7f12898c8fe9fdb6daec21c1d2ba8
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
Use command substitution for exit-recursive-edit
* lisp/bindings.el (mode-line-modes):
* lisp/emacs-lisp/checkdoc.el (checkdoc-recursive-edit): Use command
substitution for 'exit-recursive-edit'.
---
lisp/bindings.el | 4 +++-
lisp/emacs-lisp/checkdoc.el | 3 ++-
2 files changed, 5 insertions(+), 2 deletions(-)
diff --git a/lisp/bindings.el b/lisp/bindings.el
index 4dfc9a9..5156637 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -381,7 +381,9 @@ Keymap to display on major mode.")
Keymap to display on minor modes.")
(defvar mode-line-modes
- (let ((recursive-edit-help-echo "Recursive edit, type C-M-c to get out"))
+ (let ((recursive-edit-help-echo
+ (substitute-command-keys
+ "Recursive edit, type \\[exit-recursive-edit] to get out")))
(list (propertize "%[" 'help-echo recursive-edit-help-echo)
"("
`(:propertize ("" mode-name)
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index 9a37941..099b158 100644
--- a/lisp/emacs-lisp/checkdoc.el
+++ b/lisp/emacs-lisp/checkdoc.el
@@ -828,7 +828,8 @@ MSG is the error that was found, which is displayed in a
help buffer."
"\n\nEdit to fix this problem, and press C-M-c to continue.")))
(shrink-window-if-larger-than-buffer
(get-buffer-window "*Checkdoc Help*"))
- (message "When you're done editing press C-M-c to continue.")
+ (message (substitute-command-keys
+ "When you're done editing press \\[exit-recursive-edit] to
continue."))
(unwind-protect
(recursive-edit)
(if (get-buffer-window "*Checkdoc Help*")