From 7ca87dab188d17256a3eff7a16dc3cc43bdffc56 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 19 Jul 2005 11:30:29 +0000 Subject: [PATCH] (mode-line-highlight): Replace RoyalBlue4 with a button-like box. Inherit from `highlight' on low colors. (shadow): Use shades of gray only for color/grayscale with more than 88 colors. Use green for light backgrounds with 8 colors, and yellow for dark backgrounds with 8 colors. --- lisp/faces.el | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) diff --git a/lisp/faces.el b/lisp/faces.el index 35ec7ad24a5..1e24c6c6cb4 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1882,12 +1882,10 @@ created." :group 'basic-faces) (defface mode-line-highlight - '((((class color) (min-colors 88) (background light)) - :background "RoyalBlue4" :foreground "white") - (((class color) (min-colors 88) (background dark)) - :background "light sky blue" :foreground "black") - (t - :inverse-video t)) + '((((class color) (min-colors 88)) + :box (:line-width 2 :color "grey40" :style released-button)) + (t + :inherit highlight)) "Basic mode line face for highlighting." :version "22.1" :group 'modeline @@ -2149,8 +2147,14 @@ Note: Other faces cannot inherit from the cursor face." :version "22.1") (defface shadow - '((((background dark)) :foreground "grey70") - (((background light)) :foreground "grey50")) + '((((class color grayscale) (min-colors 88) (background light)) + :foreground "grey50") + (((class color grayscale) (min-colors 88) (background dark)) + :foreground "grey70") + (((class color) (min-colors 8) (background light)) + :foreground "green") + (((class color) (min-colors 8) (background dark)) + :foreground "yellow")) "Basic face for shadowed text." :group 'basic-faces :version "22.1") -- 2.39.2