procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use command substitution for exit-recursive-edit

Browse source 
* lisp/bindings.el (mode-line-modes):
* lisp/emacs-lisp/checkdoc.el (checkdoc-recursive-edit): Use command
substitution for 'exit-recursive-edit'.
This commit is contained in:
Stefan Kangas 2021-09-18 14:54:04 +02:00
parent 4b3dc7a139
commit ec0527d8e9
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/checkdoc.el
View file

@ -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*")