242 |
(integer :tag "Some")) |
(integer :tag "Some")) |
243 |
:group 'lazy-highlight) |
:group 'lazy-highlight) |
244 |
|
|
245 |
(defface lazy-highlight-face |
(defface lazy-highlight |
246 |
'((((class color) (min-colors 88) (background light)) |
'((((class color) (min-colors 88) (background light)) |
247 |
(:background "paleturquoise")) |
(:background "paleturquoise")) |
248 |
(((class color) (min-colors 88) (background dark)) |
(((class color) (min-colors 88) (background dark)) |
2264 |
|
|
2265 |
;; When active, *every* match for the current search string is |
;; When active, *every* match for the current search string is |
2266 |
;; highlighted: the current one using the normal isearch match color |
;; highlighted: the current one using the normal isearch match color |
2267 |
;; and all the others using `isearch-lazy-highlight-face'. The extra |
;; and all the others using `isearch-lazy-highlight'. The extra |
2268 |
;; highlighting makes it easier to anticipate where the cursor will |
;; highlighting makes it easier to anticipate where the cursor will |
2269 |
;; land each time you press C-s or C-r to repeat a pending search. |
;; land each time you press C-s or C-r to repeat a pending search. |
2270 |
;; Highlighting of these additional matches happens in a deferred |
;; Highlighting of these additional matches happens in a deferred |
2305 |
:group 'isearch-faces) |
:group 'isearch-faces) |
2306 |
(defvar isearch 'isearch) |
(defvar isearch 'isearch) |
2307 |
|
|
2308 |
(defvar isearch-lazy-highlight-face 'lazy-highlight-face) |
(defvar isearch-lazy-highlight-face 'lazy-highlight) |
2309 |
|
|
2310 |
(defvar isearch-lazy-highlight-overlays nil) |
(defvar isearch-lazy-highlight-overlays nil) |
2311 |
(defvar isearch-lazy-highlight-wrapped nil) |
(defvar isearch-lazy-highlight-wrapped nil) |