From: Miles Bader <miles@gnu.org>
Date: Sun, 17 Sep 2000 16:42:09 +0000 (+0000)
Subject: (header-line): Change defaults to be less confusing when mixed with mode-lines.
X-Git-Tag: emacs-pretest-21.0.90~1567
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a114b1ca6e39479bce038fe2f78ed07e3ef0b5bc;p=emacs.git

(header-line): Change defaults to be less confusing when mixed with mode-lines.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f8f1059b30e..8efb523be63 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2000-09-18  Miles Bader  <miles@gnu.org>
 
+	* faces.el (header-line): Change defaults to be less confusing
+	when mixed with mode-lines.
+
 	* info.el (Info-fontify-node): Make a few cleanups.
 	Add extra `help-echo' and `local-map' props to node xrefs.
 	Use header-specific faces for node-names & xrefs.
diff --git a/lisp/faces.el b/lisp/faces.el
index fa0a68eda6d..d50600c4a6c 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1529,12 +1529,20 @@ created."
 (put 'modeline 'face-alias 'mode-line)
 
 (defface header-line
-  '((((type x) (class color))
-     (:box (:line-width 2 :style released-button)
-	   :background "grey75" :foreground "black"))
-    (((type w32) (class color))
-     (:box (:line-width 2 :style released-button)
-	   :background "grey75" :foreground "black"))
+  '((((type tty))
+     (:inverse-video t))
+    (((class color) (background light))
+     (:box (:line-width 1 :style released-button)
+	   :background "grey90"
+	   :inherit mode-line))
+    (((class color) (background dark))
+     (:box (:line-width 1 :style released-button)
+	   :background "grey20"
+	   :inherit mode-line))
+    (((class mono))
+     (:box (:line-width 1 :style released-button)
+	   :background "grey"
+	   :inherit mode-line))
     (t
      (:inverse-video t)))
   "Basic header-line face."