mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-08 15:30:40 -08:00
Code Issues Projects Releases Wiki 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
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) (setq-local string-edit--success-callback success-callback)
(when abort-callback (when abort-callback
(setq-local string-edit--abort-callback 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 (message "%s" (substitute-command-keys
"Type \\<string-edit-mode-map>\\[string-edit-done] when you've finished editing"))) "Type \\<string-edit-mode-map>\\[string-edit-done] when you've finished editing")))