mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-08 20:58:58 +00:00
Code Issues Releases Activity

(isearch-faces): New custom group.

Browse Source 
(isearch): New defface; was already tested for in the code.
(isearch-lazy-highlight-face): Changed to defface from defcustom.
(isearch-highlight): Always use face `isearch'.
This commit is contained in:
Gerd Moellmann 2000-10-02 19:18:09 +00:00
parent 944425c0c3
commit 18ca20aa86
1 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lisp/isearch.el
View File

@ -1735,9 +1735,7 @@ If there is no completion possible, say so and continue searching."
nil
(or isearch-overlay (setq isearch-overlay (make-overlay beg end)))
(move-overlay isearch-overlay beg end (current-buffer))
(overlay-put isearch-overlay 'face
(if (facep 'isearch)
'isearch 'region))))
(overlay-put isearch-overlay 'face isearch)))
(defun isearch-dehighlight (totally)
(if isearch-overlay
@ -1837,10 +1835,22 @@ If this is nil, extra highlighting can be \"manually\" removed with
:type 'number
:group 'isearch-lazy-highlight)
(defcustom isearch-lazy-highlight-face 'secondary-selection
"*Face to use for lazily highlighting all matches."
:type 'face
:group 'isearch-lazy-highlight)
(defgroup isearch-faces nil
"Lazy highlighting feature for incremental search."
:version "21.1"
:group 'isearch)
(defface isearch
'((t (:inherit region)))
"Face for highlighting matches."
:group 'isearch-faces)
(defvar isearch 'isearch)
(defface isearch-lazy-highlight-face
'((t (:inherit secondary-selection)))
"Face for lazy highlighting of matches."
:group 'isearch-faces)
(defvar isearch-lazy-highlight-face 'isearch-lazy-highlight-face)
(defvar isearch-lazy-highlight-overlays nil)
(defvar isearch-lazy-highlight-wrapped nil)
@ -1926,7 +1936,7 @@ Attempt to do the search exactly the way the pending isearch would."
;; found the next match
(let ((ov (make-overlay (match-beginning 0)
(match-end 0))))
(overlay-put ov 'face isearch-lazy-highlight-face)
(overlay-put ov 'face 'isearch-lazy-highlight-face)
(overlay-put ov 'priority 0)
(setq isearch-lazy-highlight-overlays
(cons ov isearch-lazy-highlight-overlays))