From 9a19394446e3b591673a2b4b66c2fd652090d47e Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Thu, 15 Feb 2007 16:54:09 +0000 Subject: [PATCH] (isearch-lazy-highlight-space-regexp): New variable. (isearch-lazy-highlight-new-loop): Bind it. (isearch-lazy-highlight-search): Use it. --- lisp/isearch.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/isearch.el b/lisp/isearch.el index 28d309f88c4..2f17af43c14 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -2321,6 +2321,7 @@ since they have special meaning in a regexp." (defvar isearch-lazy-highlight-window-end nil) (defvar isearch-lazy-highlight-case-fold-search nil) (defvar isearch-lazy-highlight-regexp nil) +(defvar isearch-lazy-highlight-space-regexp nil) (defun lazy-highlight-cleanup (&optional force) "Stop lazy highlighting and remove extra highlighting from current buffer. @@ -2374,7 +2375,8 @@ by other Emacs features." 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) + isearch-lazy-highlight-wrapped nil + isearch-lazy-highlight-space-regexp search-whitespace-regexp) (unless (equal isearch-string "") (setq isearch-lazy-highlight-timer (run-with-idle-timer lazy-highlight-initial-delay nil @@ -2385,7 +2387,7 @@ by other Emacs features." Attempt to do the search exactly the way the pending isearch would." (let ((case-fold-search isearch-lazy-highlight-case-fold-search) (isearch-regexp isearch-lazy-highlight-regexp) - (search-spaces-regexp search-whitespace-regexp)) + (search-spaces-regexp isearch-lazy-highlight-space-regexp)) (condition-case nil (isearch-search-string isearch-lazy-highlight-last-string -- 2.39.2