From f6478c6609a179e023083c1bee8d134469423447 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 23 Jun 2000 05:57:18 +0000 Subject: [PATCH] (tool-bar, mode-line, header-line): Specify foreground color. --- lisp/ChangeLog | 6 ++++++ lisp/faces.el | 21 ++++++++++++++------- 2 files changed, 20 insertions(+), 7 deletions(-) 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 + * 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." -- 2.39.2