# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1121772629 0
# Node ID 60276f1221b8895200b39875d6e093310f62218f
# Parent  558b187cced1c6dfd75786bd1ba84775f709ac3d
(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 -r 558b187cced1 -r 60276f1221b8 lisp/faces.el
--- 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")