From 328419c117639c1af9557a9a07d0bfd80d36aeb3 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 27 Feb 2004 17:05:29 +0000 Subject: [PATCH] (isearch, isearch-lazy-highlight-face): Use `min-colors'. --- lisp/ChangeLog | 16 ++++++++++++++++ lisp/isearch.el | 20 ++++++++++++-------- 2 files changed, 28 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6b91102a1e7..080167bad25 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,19 @@ +2004-02-27 Dan Nicolaescu + + * faces.el (face-spec-set-match-display): Add a new attribute, + `min-colors'. + (region, highlight, secondary-selection): Use `min-colors`. + + * custom.el (defface): Add documentation for `min-colors'. + + * font-lock.el (font-lock-comment-face, font-lock-string-face) + (font-lock-keyword-face, font-lock-function-name-face) + (font-lock-variable-name-face, font-lock-constant-face): Use + `min-colors`. + + * isearch.el (isearch, isearch-lazy-highlight-face): Use + `min-colors'. + 2004-02-25 Vinicius Jose Latorre * ebnf2ps.el: Doc fix. For compatibility with Emacs 20, define diff --git a/lisp/isearch.el b/lisp/isearch.el index d84510eb7a2..c0d694e84b1 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -2128,26 +2128,30 @@ A value of nil means highlight all matches." :group 'isearch) (defface isearch - '((((type tty pc) (class color)) - (:background "magenta4" :foreground "cyan1")) - (((class color) (background light)) + '((((class color) (min-colors 88) (background light)) ;; The background must not be too dark, for that means ;; the character is hard to see when the cursor is there. (:background "magenta2" :foreground "lightskyblue1")) - (((class color) (background dark)) + (((class color) (min-colors 88) (background dark)) (:background "palevioletred2" :foreground "brown4")) + (((class color) (min-colors 16)) + (:background "magenta4" :foreground "cyan1")) + (((class color) (min-colors 8)) + (:background "magenta4" :foreground "cyan1")) (t (:inverse-video t))) "Face for highlighting Isearch matches." :group 'isearch-faces) (defvar isearch 'isearch) (defface isearch-lazy-highlight-face - '((((type tty pc) (class color)) - (:background "turquoise3")) - (((class color) (background light)) + '((((class color) (min-colors 88) (background light)) (:background "paleturquoise")) - (((class color) (background dark)) + (((class color) (min-colors 88) (background dark)) (:background "paleturquoise4")) + (((class color) (min-colors 16)) + (:background "turquoise3")) + (((class color) (min-colors 8)) + (:background "turquoise3")) (t (:underline t))) "Face for lazy highlighting of Isearch matches other than the current one." :group 'isearch-faces) -- 2.39.2