From: Lars Ingebrigtsen Date: Mon, 25 Apr 2022 07:47:54 +0000 (+0200) Subject: Fix up some string-edit.el strings X-Git-Tag: emacs-29.0.90~1931^2~319 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e1d0632003157228650ba20d47cc607c0f9cae86;p=emacs.git Fix up some string-edit.el strings * 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. --- diff --git a/lisp/textmodes/string-edit.el b/lisp/textmodes/string-edit.el index 2a4c9abfade..7c3b5702248 100644 --- a/lisp/textmodes/string-edit.el +++ b/lisp/textmodes/string-edit.el @@ -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-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-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-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-done], or aborts with \\\\[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."