From 29910493a8382e6418462b5e0b98b0753d2b3290 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 9 Jan 2001 11:38:12 +0000 Subject: (isearch, isearch-lazy-highlight-face): New definitions for face colors and attributes. --- lisp/ChangeLog | 3 +++ lisp/isearch.el | 20 ++++++++++++++++---- 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 + * 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) -- cgit v1.2.3