(isearch-lazy-highlight-max): New user-option.

(isearch-lazy-highlight-update): Don't highlight more than
isearch-lazy-highlight-max matches.

diff --git a/lisp/isearch.el b/lisp/isearch.el
index ae5d1cbf0b2deaefbe5bd9241f505833adad30ae..86164001ddbfdb0492c5112423a504c874044ca1 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1871,6 +1871,12 @@ If this is nil, extra highlighting can be \"manually\" removed with
   :type 'number
   :group 'isearch-lazy-highlight)
 
+(defcustom isearch-lazy-highlight-max 20
+  "*Maximum number of matches to highlight."
+  :type '(choice (const :tag "All" nil)
+                (integer :tag "Some"))
+  :group 'isearch-lazy-highlight)
+
 (defgroup isearch-faces nil
   "Lazy highlighting feature for incremental search."
   :version "21.1"
@@ -1961,7 +1967,10 @@ Attempt to do the search exactly the way the pending isearch would."
 
 (defun isearch-lazy-highlight-update ()
   "Find and highlight the next match in the lazy highlighting loop."
-  (when (not isearch-invalid-regexp)
+  (when (and (not isearch-invalid-regexp)
+            (or (null isearch-lazy-highlight-max)
+                (< (length isearch-lazy-highlight-overlays)
+                   isearch-lazy-highlight-max)))
     (save-excursion
       (save-match-data
         (goto-char (if isearch-forward