diff options
| author | Juri Linkov | 2004-12-15 10:08:51 +0000 |
|---|---|---|
| committer | Juri Linkov | 2004-12-15 10:08:51 +0000 |
| commit | da79720c9e2256e62b9dfb1436e8d83b40ab5045 (patch) | |
| tree | a6cd86fec2ede8c6dae1bbfad52c83398220ad0f | |
| parent | 6d4ebd71ee75278bd653cfc936d861d676e4995b (diff) | |
| download | emacs-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.el | 5 |
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. |
| 2334 | This happens when `isearch-update' is invoked (which can cause the | 2334 | This happens when `isearch-update' is invoked (which can cause the |
| 2335 | search string to change or the window to scroll)." | 2335 | search 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)) |