From 32b9902603ca3157a64a27ccb56ff7a33cb30506 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sat, 27 Sep 2025 16:00:41 +0200 Subject: [PATCH] ; (read-string-from-buffer): Fix thinko and typo. --- lisp/textmodes/string-edit.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lisp/textmodes/string-edit.el b/lisp/textmodes/string-edit.el index dda70437f78..857d7c3f969 100644 --- a/lisp/textmodes/string-edit.el +++ b/lisp/textmodes/string-edit.el @@ -93,7 +93,7 @@ Also see `read-string-from-buffer'." ;;;###autoload (defun read-string-from-buffer (prompt string) "Switch to a new buffer to edit STRING in a recursive edit. -The user finishes editing with \\\\[string-edit-done], or aborts with \\\\[string-edit-abort]). +The user finishes editing with \\\\[string-edit-done], or aborts with \\\\[string-edit-abort]. Insert PROMPT at the start of the buffer. If nil, no prompt is inserted. @@ -108,9 +108,7 @@ Also see `string-edit'." (lambda (edited) (setq string edited) (exit-recursive-edit)) - :abort-callback (lambda () - (exit-recursive-edit) - (error "Aborted edit"))) + :abort-callback (lambda () (throw 'exit "Aborted edit"))) (recursive-edit) string)