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

definitions for face colors and attributes.

2 files changed, 19 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 01de1317729..f8cfa4fbda0 100644
--- 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 e4a51ffc298..f2b5f01229e 100644
--- 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)