Mercurial > emacs

changeset 75920:e78fc0d23669

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(isearch-lazy-highlight-space-regexp): New variable. (isearch-lazy-highlight-new-loop): Bind it. (isearch-lazy-highlight-search): Use it.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 15 Feb 2007 16:54:09 +0000
parents af4d0090c583
children 1c3c5aeeb934
files lisp/isearch.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/isearch.el	Thu Feb 15 16:53:53 2007 +0000
+++ b/lisp/isearch.el	Thu Feb 15 16:54:09 2007 +0000
@@ -2321,6 +2321,7 @@
 (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 @@
             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 @@
 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