mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

Add an instruction header line to string-edit

Browse Source 
* lisp/textmodes/string-edit.el (string-edit): Add a header line
with instructions.
This commit is contained in:
Lars Ingebrigtsen 2022-04-27 14:08:49 +02:00
parent a7f2eb3054
commit 0613e7c33d
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/textmodes/string-edit.el
View File

@ -66,6 +66,9 @@ buffer, but won't be included in the resulting string."
(setq-local string-edit--success-callback success-callback)
(when abort-callback
(setq-local string-edit--abort-callback abort-callback))
(setq-local header-line-format
(substitute-command-keys
"Type \\<string-edit-mode-map>\\[string-edit-done] when you've finished editing or \\[string-edit-abort] to abort"))
(message "%s" (substitute-command-keys
"Type \\<string-edit-mode-map>\\[string-edit-done] when you've finished editing")))