aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuri Linkov2004-12-15 10:08:51 +0000
committerJuri Linkov2004-12-15 10:08:51 +0000
commitda79720c9e2256e62b9dfb1436e8d83b40ab5045 (patch)
treea6cd86fec2ede8c6dae1bbfad52c83398220ad0f
parent6d4ebd71ee75278bd653cfc936d861d676e4995b (diff)
downloademacs-da79720c9e2256e62b9dfb1436e8d83b40ab5045.tar.gz
emacs-da79720c9e2256e62b9dfb1436e8d83b40ab5045.zip
(isearch-update): Test isearch-lazy-highlight
before calling isearch-lazy-highlight-new-loop. (isearch-lazy-highlight-new-loop): Don't test isearch-lazy-highlight.
-rw-r--r--lisp/isearch.el5
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el
index 9ee9b4d8521..f94590ded2d 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -653,7 +653,7 @@ is treated as a regexp. See \\[isearch-forward] for more info."
653 (setq ;; quit-flag nil not for isearch-mode 653 (setq ;; quit-flag nil not for isearch-mode
654 isearch-adjusted nil 654 isearch-adjusted nil
655 isearch-yank-flag nil) 655 isearch-yank-flag nil)
656 (isearch-lazy-highlight-new-loop) 656 (if isearch-lazy-highlight (isearch-lazy-highlight-new-loop))
657 ;; We must prevent the point moving to the end of composition when a 657 ;; We must prevent the point moving to the end of composition when a
658 ;; part of the composition has just been searched. 658 ;; part of the composition has just been searched.
659 (setq disable-point-adjustment t)) 659 (setq disable-point-adjustment t))
@@ -2333,8 +2333,7 @@ is nil. This function is called when exiting an incremental search if
2333 "Cleanup any previous `isearch-lazy-highlight' loop and begin a new one. 2333 "Cleanup any previous `isearch-lazy-highlight' loop and begin a new one.
2334This happens when `isearch-update' is invoked (which can cause the 2334This happens when `isearch-update' is invoked (which can cause the
2335search string to change or the window to scroll)." 2335search string to change or the window to scroll)."
2336 (when (and isearch-lazy-highlight 2336 (when (and (null executing-kbd-macro)
2337 (null executing-kbd-macro)
2338 (sit-for 0) ;make sure (window-start) is credible 2337 (sit-for 0) ;make sure (window-start) is credible
2339 (or (not (equal isearch-string 2338 (or (not (equal isearch-string
2340 isearch-lazy-highlight-last-string)) 2339 isearch-lazy-highlight-last-string))