From: Juri Linkov Date: Tue, 19 Jul 2005 11:30:29 +0000 (+0000) Subject: (mode-line-highlight): Replace RoyalBlue4 with X-Git-Tag: emacs-pretest-22.0.90~7995 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7ca87dab188d17256a3eff7a16dc3cc43bdffc56;p=emacs.git (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. --- 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")