diff options
author | Miles Bader <[email protected]> | 2002-07-03 07:09:44 +0000 |
---|---|---|
committer | Miles Bader <[email protected]> | 2002-07-03 07:09:44 +0000 |
commit | a7ac92b6ec595d6fdd8c91a493cc807149dc8b1e (patch) | |
tree | 8eff320360af63e7ce9db06d6112da7798962c28 /lisp | |
parent | 50e7b8db94e2a9a1afffbd3a571c7da5a8304baa (diff) |
(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.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 6 | ||||
-rw-r--r-- | lisp/faces.el | 19 |
2 files changed, 16 insertions, 9 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 48bd1d60ce..c333a967f6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2002-07-03 Miles Bader <[email protected]> + + * 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 <[email protected]> * net/ange-ftp.el (ange-ftp-hook-function): Add file-remote-p prop. diff --git a/lisp/faces.el b/lisp/faces.el index 2ee70a336d..3dfc24931a 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) |