From 984905989e6b003a54655502cc85dde21f9e2fed Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Mon, 23 Oct 2000 04:50:20 +0000 Subject: [PATCH] (header-line): Make more reasonable on mono/grayscale displays. --- lisp/ChangeLog | 5 +++++ lisp/faces.el | 32 ++++++++++++++++++++------------ 2 files changed, 25 insertions(+), 12 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2531ef0de1b..5ced92fa811 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-10-23 Miles Bader + + * faces.el (header-line): Make more reasonable on mono/grayscale + displays. + 2000-10-23 Andrew Choi * cus-edit.el (custom-button-face): Use 3D look for mac. diff --git a/lisp/faces.el b/lisp/faces.el index 1a246af0a5a..28ebba796c4 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1552,18 +1552,26 @@ created." ;; happens to look good with the only current use of header-lines, ;; the info browser. XXX (:underline t)) - (((class color) (background light)) - (:box (:line-width 1 :style released-button) - :background "grey90" :foreground "grey20" - :inherit mode-line)) - (((class color) (background dark)) - (:box (:line-width 1 :style released-button) - :background "grey20" :foreground "grey90" - :inherit mode-line)) - (((class mono)) - (:box (:line-width 1 :style released-button) - :background "grey" - :inherit mode-line)) + (((class color grayscale) (background light)) + (:inherit mode-line + :background "grey90" :foreground "grey20" + :box (:line-width 1 :style released-button))) + (((class color grayscale) (background dark)) + (:inherit mode-line + :background "grey20" :foreground "grey90" + :box (:line-width 1 :style released-button))) + (((class mono) (background light)) + (:inherit mode-line + :background "white" :foreground "black" + :inverse-video nil + :box nil + :underline t)) + (((class mono) (background dark)) + (:inherit mode-line + :background "black" :foreground "white" + :inverse-video nil + :box nil + :underline t)) (t (:inverse-video t))) "Basic header-line face." -- 2.39.2