(isearch, isearch-lazy-highlight-face): New

definitions for face colors and attributes.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 01de131772941e653eefab0a7ae18f72a80101d8..f8cfa4fbda045ba3a67895354bb8ab22e0e4af25 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-01-09  Eli Zaretskii  <eliz@is.elta.co.il>
 
+       * isearch.el (isearch, isearch-lazy-highlight-face): New
+       definitions for face colors and attributes.
+
        * wid-edit.el (widget-choose): Call display-popup-menus-p instead
        of display-mouse-p.
 

diff --git a/lisp/isearch.el b/lisp/isearch.el
index e4a51ffc2983c40f27a1dabbd6ed96b921311987..f2b5f01229e06c4731d0c5098d61203cbb998402 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1886,14 +1886,26 @@ If this is nil, extra highlighting can be \"manually\" removed with
   :group 'isearch)
 
 (defface isearch
-  '((t (:inherit region)))
-  "Face for highlighting matches."
+  '((((type tty pc) (class color))
+     (:background "magenta4" :foreground "cyan1"))
+    (((class color) (background light))
+     (:background "magenta4" :foreground "lightskyblue1"))
+    (((class color) (background dark))
+     (:background "palevioletred2" :foreground "brown4"))
+    (t (:inverse-video t)))
+  "Face for highlighting Isearch matches."
   :group 'isearch-faces)
 (defvar isearch 'isearch)
 
 (defface isearch-lazy-highlight-face
-  '((t (:inherit secondary-selection)))
-  "Face for lazy highlighting of matches."
+  '((((type tty pc) (class color))
+     (:background "turquoise3"))
+    (((class color) (background light))
+     (:background "paleturquoise"))
+    (((class color) (background dark))
+     (:background "paleturquoise4"))
+    (t (:underline t)))
+  "Face for lazy highlighting of Isearch matches other than the current one."
   :group 'isearch-faces)
 (defvar isearch-lazy-highlight-face 'isearch-lazy-highlight-face)