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

color.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9816542a33900994a996058cedf9c15a6a27b7cb..1955414dda123058489d0c8db1b213675d37948c 100644 (file)
--- 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 170b0849b7e6fbcb17bab605c04184a01c8d3e27..4210dd5eccc79273cd6507a7a30bf7d481ed4943 100644 (file)
--- 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."