From: Miles Bader <miles@gnu.org>
Date: Mon, 23 Oct 2000 04:50:20 +0000 (+0000)
Subject: (header-line): Make more reasonable on mono/grayscale displays.
X-Git-Tag: emacs-pretest-21.0.90~674
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=984905989e6b003a54655502cc85dde21f9e2fed;p=emacs.git

(header-line): Make more reasonable on mono/grayscale displays.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2531ef0de1b..5ced92fa811 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-23  Miles Bader  <miles@lsi.nec.co.jp>
+
+	* faces.el (header-line): Make more reasonable on mono/grayscale
+	displays.
+
 2000-10-23  Andrew Choi  <akochoi@i-cable.com>
 
 	* cus-edit.el (custom-button-face): Use 3D look for mac.
diff --git a/lisp/faces.el b/lisp/faces.el
index 1a246af0a5a..28ebba796c4 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1552,18 +1552,26 @@ created."
      ;; happens to look good with the only current use of header-lines,
      ;; the info browser. XXX
      (:underline t))
-    (((class color) (background light))
-     (:box (:line-width 1 :style released-button)
-	   :background "grey90" :foreground "grey20"
-	   :inherit mode-line))
-    (((class color) (background dark))
-     (:box (:line-width 1 :style released-button)
-	   :background "grey20" :foreground "grey90"
-	   :inherit mode-line))
-    (((class mono))
-     (:box (:line-width 1 :style released-button)
-	   :background "grey"
-	   :inherit mode-line))
+    (((class color grayscale) (background light))
+     (:inherit mode-line
+      :background "grey90" :foreground "grey20"
+      :box (:line-width 1 :style released-button)))
+    (((class color grayscale) (background dark))
+     (:inherit mode-line
+      :background "grey20" :foreground "grey90"
+      :box (:line-width 1 :style released-button)))
+    (((class mono) (background light))
+     (:inherit mode-line
+      :background "white" :foreground "black"
+      :inverse-video nil
+      :box nil
+      :underline t))
+    (((class mono) (background dark))
+     (:inherit mode-line
+      :background "black" :foreground "white"
+      :inverse-video nil
+      :box nil
+      :underline t))
     (t
      (:inverse-video t)))
   "Basic header-line face."