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

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

1 files changed, 10 insertions, 1 deletions

diff --git a/lisp/isearch.el b/lisp/isearch.el
index ae5d1cbf0b2..86164001ddb 100644
--- 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