From a7ac92b6ec595d6fdd8c91a493cc807149dc8b1e Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Wed, 3 Jul 2002 07:09:44 +0000 Subject: [PATCH] (header-line): Don't use a `common' clause for inheriting from the mode-line face, since we can't override it, and we don't want it for ttys. --- lisp/ChangeLog | 6 ++++++ lisp/faces.el | 19 ++++++++++--------- 2 files changed, 16 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 48bd1d60ce9..c333a967f69 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2002-07-03 Miles Bader + + * faces.el (header-line): Don't use a `common' clause for + inheriting from the mode-line face, since we can't override it, + and we don't want it for ttys. + 2002-07-02 Richard M. Stallman * net/ange-ftp.el (ange-ftp-hook-function): Add file-remote-p prop. diff --git a/lisp/faces.el b/lisp/faces.el index 2ee70a336d7..3dfc24931ad 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1808,9 +1808,7 @@ created." (put 'modeline-inactive 'face-alias 'mode-line-inactive) (defface header-line - '((t - :inherit mode-line) - (((type tty)) + '((((type tty)) ;; This used to be `:inverse-video t', but that doesn't look very ;; good when combined with inverse-video mode-lines and multiple ;; windows. Underlining looks better, and is more consistent with @@ -1820,24 +1818,27 @@ created." ;; highlighting; this may be too confusing in general, although it ;; happens to look good with the only current use of header-lines, ;; the info browser. XXX - :underline t - :inverse-video nil) + :underline t) (((class color grayscale) (background light)) :background "grey90" :foreground "grey20" - :box nil) + :box nil + :inherit mode-line) (((class color grayscale) (background dark)) :background "grey20" :foreground "grey90" - :box nil) + :box nil + :inherit mode-line) (((class mono) (background light)) :background "white" :foreground "black" :inverse-video nil :box nil - :underline t) + :underline t + :inherit mode-line) (((class mono) (background dark)) :background "black" :foreground "white" :inverse-video nil :box nil - :underline t)) + :underline t + :inherit mode-line)) "Basic header-line face." :version "21.1" :group 'basic-faces) -- 2.39.2