Mercurial > emacs

changeset 29880:3f21e1b9cc2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tool-bar, mode-line, header-line): Specify foreground color.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 23 Jun 2000 05:56:45 +0000
parents 61b75f20b058
children 26d84872f03a
files lisp/faces.el
diffstat 1 files changed, 14 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Fri Jun 23 05:56:08 2000 +0000
+++ b/lisp/faces.el	Fri Jun 23 05:56:45 2000 +0000
@@ -1496,9 +1496,11 @@
 
 (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 @@
 
 (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 @@
 
 (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."