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'.

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 4dfc9a908cf80159aac255d9856ec0df6d9b3617..51566370656f13c9778b5578d278a7d9574cd1f0 100644 (file)
--- 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 9a37941313e59792eeae2f94259695e277133bcb..099b1585537ad56cfc4c45e59a7d136e5eff6bc4 100644 (file)
--- 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*")