Mercurial > emacs
changeset 35458:52a68daf83b8
(isearch-lazy-highlight-case-fold-search)
(isearch-lazy-highlight-regexp): New variables.
(isearch-lazy-highlight-cleanup): Update lazy highlight if
case-fold search or regexp search has been toggled.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 22 Jan 2001 11:23:38 +0000 |
| parents | 997bb0c4cbd1 |
| children | a5db73d46825 |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/isearch.el Mon Jan 22 11:07:41 2001 +0000 +++ b/lisp/isearch.el Mon Jan 22 11:23:38 2001 +0000 @@ -1898,6 +1898,8 @@ (defvar isearch-lazy-highlight-last-string nil) (defvar isearch-lazy-highlight-window nil) (defvar isearch-lazy-highlight-window-start nil) +(defvar isearch-lazy-highlight-case-fold-search nil) +(defvar isearch-lazy-highlight-regexp nil) (defun isearch-lazy-highlight-cleanup (&optional force) "Stop lazy highlighting and remove extra highlighting from current buffer. @@ -1924,6 +1926,10 @@ isearch-lazy-highlight-last-string)) (not (eq (selected-window) isearch-lazy-highlight-window)) + (not (eq isearch-lazy-highlight-case-fold-search + isearch-case-fold-search)) + (not (eq isearch-lazy-highlight-regexp + isearch-regexp)) (not (= (window-start) isearch-lazy-highlight-window-start)))) ;; something important did indeed change @@ -1934,6 +1940,8 @@ isearch-lazy-highlight-start (point) isearch-lazy-highlight-end (point) isearch-lazy-highlight-last-string isearch-string + isearch-lazy-highlight-case-fold-search isearch-case-fold-search + isearch-lazy-highlight-regexp isearch-regexp isearch-lazy-highlight-wrapped nil) (setq isearch-lazy-highlight-timer (run-with-idle-timer isearch-lazy-highlight-initial-delay nil