From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 2 Oct 2000 19:18:09 +0000 (+0000)
Subject: (isearch-faces): New custom group.
X-Git-Tag: emacs-pretest-21.0.90~1213
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=18ca20aa86d0588e8a39ac8fd3596476aab150c6;p=emacs.git

(isearch-faces): New custom group.
(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'.
---

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 1dd746b2b18..41b94cf9989 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -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))