From e1d0632003157228650ba20d47cc607c0f9cae86 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 25 Apr 2022 09:47:54 +0200 Subject: 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. --- lisp/textmodes/string-edit.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'lisp/textmodes/string-edit.el') 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." -- cgit v1.2.3