From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 23 Jun 2000 05:57:18 +0000 (+0000)
Subject: (tool-bar, mode-line, header-line): Specify foreground
X-Git-Tag: emacs-pretest-21.0.90~3119
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f6478c6609a179e023083c1bee8d134469423447;p=emacs.git

(tool-bar, mode-line, header-line): Specify foreground
color.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9816542a339..1955414dda1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 2000-06-23  Gerd Moellmann  <gerd@gnu.org>
 
+	* cus-edit.el (custom-button-face, custom-button-pressed-face): 
+	Specify foreground color.
+
+	* faces.el (tool-bar, mode-line, header-line): Specify foreground
+	color.
+
 	* Makefile.in (DONTCOMPILE): Add eshell/esh-maint.el.
 
 	* eshell/esh-cmd.el (eshell-rewrite-for-command): Use cdr and
diff --git a/lisp/faces.el b/lisp/faces.el
index 170b0849b7e..4210dd5eccc 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1496,9 +1496,11 @@ created."
 
 (defface mode-line
   '((((type x) (class color))
-     (:box (:line-width 2 :style released-button) :background "grey75"))
+     (:box (:line-width 2 :style released-button)
+	   :background "grey75" :foreground "black"))
     (((type w32) (class color))
-     (:box (:line-width 2 :style released-button) :background "grey75"))
+     (:box (:line-width 2 :style released-button)
+	   :background "grey75" :foreground "black"))
     (t
      (:inverse-video t)))
   "Basic mode line face."
@@ -1511,9 +1513,11 @@ created."
 
 (defface header-line
   '((((type x) (class color))
-     (:box (:line-width 2 :style released-button) :background "grey75"))
+     (:box (:line-width 2 :style released-button)
+	   :background "grey75" :foreground "black"))
     (((type w32) (class color))
-     (:box (:line-width 2 :style released-button) :background "grey75"))
+     (:box (:line-width 2 :style released-button)
+	   :background "grey75" :foreground "black"))
     (t
      (:inverse-video t)))
   "Basic header-line face."
@@ -1523,11 +1527,14 @@ created."
 
 (defface tool-bar
   '((((type x) (class color))
-     (:box (:line-width 1 :style released-button) :background "grey75"))
+     (:box (:line-width 1 :style released-button)
+	   :background "grey75" :foreground "black"))
     (((type x) (class mono))
-     (:box (:line-width 1 :style released-button) :background "grey"))
+     (:box (:line-width 1 :style released-button)
+	   :background "grey" :foreground "black"))
     (((type w32) (class color))
-     (:box (:line-width 1 :style released-button) :background "grey75"))
+     (:box (:line-width 1 :style released-button)
+	   :background "grey75" :foreground "black"))
     (t
      ()))
   "Basic tool-bar face."