Mercurial > emacs
changeset 64497:60276f1221b8
(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.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Tue, 19 Jul 2005 11:30:29 +0000 |
| parents | 558b187cced1 |
| children | 44d210b5de14 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 12 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Tue Jul 19 11:28:35 2005 +0000 +++ b/lisp/faces.el Tue Jul 19 11:30:29 2005 +0000 @@ -1882,12 +1882,10 @@ :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 @@ :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")