(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 35ec7ad24a5a0883f85f869afbd1056cb408e2ad..1e24c6c6cb47b37398fae810d559939c3a490f92 100644 (file)
--- 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")