Mercurial > emacs
comparison lisp/faces.el @ 32404:d355f52b4497
(header-line): Change tty-variant to use underlining.
author | Miles Bader <miles@gnu.org> |
---|---|
date | Thu, 12 Oct 2000 07:51:58 +0000 |
parents | df733fbcda8a |
children | 48709f040160 |
comparison
equal
deleted
inserted
replaced
32403:c86b75f277bb | 32404:d355f52b4497 |
---|---|
1533 ;; Make `modeline' an alias for `mode-line', for compatibility. | 1533 ;; Make `modeline' an alias for `mode-line', for compatibility. |
1534 (put 'modeline 'face-alias 'mode-line) | 1534 (put 'modeline 'face-alias 'mode-line) |
1535 | 1535 |
1536 (defface header-line | 1536 (defface header-line |
1537 '((((type tty)) | 1537 '((((type tty)) |
1538 (:inverse-video t)) | 1538 ;; This used to be `:inverse-video t', but that doesn't look very |
1539 ;; good when combined with inverse-video mode-lines and multiple | |
1540 ;; windows. Underlining looks better, and is more consistent with | |
1541 ;; the window-system face variants, which deemphasize the | |
1542 ;; header-line in relation to the mode-line face. If a terminal | |
1543 ;; can't underline, then the header-line will end up without any | |
1544 ;; highlighting; this may be too confusing in general, although it | |
1545 ;; happens to look good with the only current use of header-lines, | |
1546 ;; the info browser. XXX | |
1547 (:underline t)) | |
1539 (((class color) (background light)) | 1548 (((class color) (background light)) |
1540 (:box (:line-width 1 :style released-button) | 1549 (:box (:line-width 1 :style released-button) |
1541 :background "grey90" :foreground "grey20" | 1550 :background "grey90" :foreground "grey20" |
1542 :inherit mode-line)) | 1551 :inherit mode-line)) |
1543 (((class color) (background dark)) | 1552 (((class color) (background dark)) |