mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

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

Browse Source 
(isearch-lazy-highlight-update): Don't highlight more than
isearch-lazy-highlight-max matches.
This commit is contained in:
Gerd Moellmann 2000-12-15 13:22:21 +00:00
parent 8062e53a7c
commit 68ebbb959e
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/isearch.el
View File

@ -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