From a114b1ca6e39479bce038fe2f78ed07e3ef0b5bc Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Sun, 17 Sep 2000 16:42:09 +0000 Subject: [PATCH] (header-line): Change defaults to be less confusing when mixed with mode-lines. --- lisp/ChangeLog | 3 +++ lisp/faces.el | 20 ++++++++++++++------ 2 files changed, 17 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f8f1059b30e..8efb523be63 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2000-09-18 Miles Bader + * faces.el (header-line): Change defaults to be less confusing + when mixed with mode-lines. + * info.el (Info-fontify-node): Make a few cleanups. Add extra `help-echo' and `local-map' props to node xrefs. Use header-specific faces for node-names & xrefs. diff --git a/lisp/faces.el b/lisp/faces.el index fa0a68eda6d..d50600c4a6c 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1529,12 +1529,20 @@ created." (put 'modeline 'face-alias 'mode-line) (defface header-line - '((((type x) (class color)) - (:box (:line-width 2 :style released-button) - :background "grey75" :foreground "black")) - (((type w32) (class color)) - (:box (:line-width 2 :style released-button) - :background "grey75" :foreground "black")) + '((((type tty)) + (:inverse-video t)) + (((class color) (background light)) + (:box (:line-width 1 :style released-button) + :background "grey90" + :inherit mode-line)) + (((class color) (background dark)) + (:box (:line-width 1 :style released-button) + :background "grey20" + :inherit mode-line)) + (((class mono)) + (:box (:line-width 1 :style released-button) + :background "grey" + :inherit mode-line)) (t (:inverse-video t))) "Basic header-line face." -- 2.39.2