mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix up some string-edit.el strings

Browse source 
* lisp/textmodes/string-edit.el (string-edit)
(read-string-from-buffer): Make doc strings use dynamic key
bindings.
(string-edit): Fix message at the end.
This commit is contained in:
Lars Ingebrigtsen 2022-04-25 09:47:54 +02:00
parent 91175a1fae
commit e1d0632003
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/textmodes/string-edit.el
View file

@ -37,10 +37,10 @@
(cl-defun string-edit (string success-callback
&key abort-callback help-text)
"Switch to a new buffer to edit STRING.
When the user finishes editing (with `C-c C-c'), SUCCESS-CALLBACK
When the user finishes editing (with \\<string-edit-mode-map>\\[string-edit-done]), SUCCESS-CALLBACK
is called with the resulting string.
If the user aborts (with `C-c C-k'), ABORT-CALLBACK (if any) is
If the user aborts (with \\<string-edit-mode-map>\\[string-edit-abort]), ABORT-CALLBACK (if any) is
called with no parameters.
If present, HELP-TEXT will be inserted at the start of the
@ -66,12 +66,12 @@ 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))
(message "%S" (substitute-command-keys
"Type `C-c C-c' when you've finished editing")))
(message "%s" (substitute-command-keys
"Type \\<string-edit-mode-map>\\[string-edit-done] when you've finished editing")))
(defun read-string-from-buffer (string &optional help-text)
"Switch to a new buffer to edit STRING in a recursive edit.
The user finishes editing with `C-c C-c', or aborts with `C-c C-k').
The user finishes editing with \\<string-edit-mode-map>\\[string-edit-done], or aborts with \\<string-edit-mode-map>\\[string-edit-abort]).
If present, HELP-TEXT will be inserted at the start of the
buffer, but won't be included in the resulting string."