Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

; (read-string-from-buffer): Fix thinko and typo.

Browse source
This commit is contained in:
Eshel Yaron 2025-09-27 16:00:41 +02:00
parent 48fc9f67b7
commit 32b9902603
No known key found for this signature in database
GPG key ID: EF3EE9CA35D78618
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -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-mode-map>\\[string-edit-done], or aborts with \\<string-edit-mode-map>\\[string-edit-abort]).
The user finishes editing with \\<string-edit-mode-map>\\[string-edit-done], or aborts with \\<string-edit-mode-map>\\[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)