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))