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.

1 files changed, 5 insertions, 5 deletions

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-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."