andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix thinko in read-string-from-buffer

Browse source 
* lisp/textmodes/string-edit.el (string-edit-done): Return an empty
string when the user has entered no text.
This commit is contained in:
Lars Ingebrigtsen 2022-10-12 13:40:51 +02:00
parent aa559c1553
commit 820e6f399d
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -119,9 +119,7 @@ This will kill the current buffer."
(interactive)
(goto-char (point-min))
;; Skip past the help text.
(when-let ((match (text-property-search-forward
'string-edit--prompt nil t)))
(goto-char (prop-match-beginning match)))
(text-property-search-forward 'string-edit--prompt)
(let ((string (buffer-substring (point) (point-max)))
(callback string-edit--success-callback))
(quit-window 'kill)