mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-31 20:02:42 +00:00
Code Issues Releases Activity

(isearch-complete): Update isearch-message.

Browse Source
This commit is contained in:
Richard M. Stallman 2003-05-03 13:49:47 +00:00
parent 9f243b0d3d
commit 3ae4c5094b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/isearch.el
View File

@ -1519,7 +1519,10 @@ The completed string is then editable in the minibuffer.
If there is no completion possible, say so and continue searching."
(interactive)
(if (isearch-complete1)
(isearch-edit-string)
(progn (setq isearch-message
(mapconcat 'isearch-text-char-description
isearch-string ""))
(isearch-edit-string))
;; else
(sit-for 1)
(isearch-update)))