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

* lisp/isearch.el (isearch-done): Reset isearch-lazy-highlight-last-string

Browse source 
to nil (bug#33838).
(isearch-lazy-highlight-new-loop)
(isearch-lazy-highlight-buffer-update): Don't set arg ELLIPSIS of
isearch-message to t to not reset the value of isearch-error.
This commit is contained in:
Juri Linkov 2018-12-25 23:54:26 +02:00
parent f360cf9843
commit 4fd19c236f
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/isearch.el
View file

@ -1357,6 +1357,7 @@ NOPUSH is t and EDIT is t."
(setq minibuffer-message-timeout isearch-original-minibuffer-message-timeout)
(isearch-dehighlight)
(lazy-highlight-cleanup lazy-highlight-cleanup)
(setq isearch-lazy-highlight-last-string nil)
(let ((found-start (window-group-start))
(found-point (point)))
(when isearch-window-configuration
@ -3768,7 +3769,7 @@ by other Emacs features."
(when isearch-lazy-count-current
(setq isearch-lazy-count-current
(gethash (point) isearch-lazy-count-hash 0))
(isearch-message nil t))))
(isearch-message))))
(defun isearch-lazy-highlight-search (string bound)
"Search ahead for the next or previous match, for lazy highlighting.
@ -3971,7 +3972,7 @@ Attempt to do the search exactly the way the pending Isearch would."
(setq isearch-lazy-count-total 0))
(setq isearch-lazy-count-current
(gethash opoint isearch-lazy-count-hash 0))
(isearch-message nil t))
(isearch-message))
(setq isearch-lazy-highlight-timer
(run-at-time lazy-highlight-interval nil
'isearch-lazy-highlight-buffer-update)))))))))