Mercurial > emacs
comparison lisp/faces.el @ 46146:f883ac732e39
(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.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 03 Jul 2002 07:08:43 +0000 |
| parents | 9319ffebc601 |
| children | cd9282aa1d8a |
comparison
equal
deleted
inserted
replaced
| 46145:9319ffebc601 | 46146:f883ac732e39 |
|---|---|
| 1806 ;; Make `modeline' an alias for `mode-line', for compatibility. | 1806 ;; Make `modeline' an alias for `mode-line', for compatibility. |
| 1807 (put 'modeline 'face-alias 'mode-line) | 1807 (put 'modeline 'face-alias 'mode-line) |
| 1808 (put 'modeline-inactive 'face-alias 'mode-line-inactive) | 1808 (put 'modeline-inactive 'face-alias 'mode-line-inactive) |
| 1809 | 1809 |
| 1810 (defface header-line | 1810 (defface header-line |
| 1811 '((t | 1811 '((((type tty)) |
| 1812 :inherit mode-line) | |
| 1813 (((type tty)) | |
| 1814 ;; This used to be `:inverse-video t', but that doesn't look very | 1812 ;; This used to be `:inverse-video t', but that doesn't look very |
| 1815 ;; good when combined with inverse-video mode-lines and multiple | 1813 ;; good when combined with inverse-video mode-lines and multiple |
| 1816 ;; windows. Underlining looks better, and is more consistent with | 1814 ;; windows. Underlining looks better, and is more consistent with |
| 1817 ;; the window-system face variants, which deemphasize the | 1815 ;; the window-system face variants, which deemphasize the |
| 1818 ;; header-line in relation to the mode-line face. If a terminal | 1816 ;; header-line in relation to the mode-line face. If a terminal |
| 1819 ;; can't underline, then the header-line will end up without any | 1817 ;; can't underline, then the header-line will end up without any |
| 1820 ;; highlighting; this may be too confusing in general, although it | 1818 ;; highlighting; this may be too confusing in general, although it |
| 1821 ;; happens to look good with the only current use of header-lines, | 1819 ;; happens to look good with the only current use of header-lines, |
| 1822 ;; the info browser. XXX | 1820 ;; the info browser. XXX |
| 1823 :underline t | 1821 :underline t) |
| 1824 :inverse-video nil) | |
| 1825 (((class color grayscale) (background light)) | 1822 (((class color grayscale) (background light)) |
| 1826 :background "grey90" :foreground "grey20" | 1823 :background "grey90" :foreground "grey20" |
| 1827 :box nil) | 1824 :box nil |
| 1825 :inherit mode-line) | |
| 1828 (((class color grayscale) (background dark)) | 1826 (((class color grayscale) (background dark)) |
| 1829 :background "grey20" :foreground "grey90" | 1827 :background "grey20" :foreground "grey90" |
| 1830 :box nil) | 1828 :box nil |
| 1829 :inherit mode-line) | |
| 1831 (((class mono) (background light)) | 1830 (((class mono) (background light)) |
| 1832 :background "white" :foreground "black" | 1831 :background "white" :foreground "black" |
| 1833 :inverse-video nil | 1832 :inverse-video nil |
| 1834 :box nil | 1833 :box nil |
| 1835 :underline t) | 1834 :underline t |
| 1835 :inherit mode-line) | |
| 1836 (((class mono) (background dark)) | 1836 (((class mono) (background dark)) |
| 1837 :background "black" :foreground "white" | 1837 :background "black" :foreground "white" |
| 1838 :inverse-video nil | 1838 :inverse-video nil |
| 1839 :box nil | 1839 :box nil |
| 1840 :underline t)) | 1840 :underline t |
| 1841 :inherit mode-line)) | |
| 1841 "Basic header-line face." | 1842 "Basic header-line face." |
| 1842 :version "21.1" | 1843 :version "21.1" |
| 1843 :group 'basic-faces) | 1844 :group 'basic-faces) |
| 1844 | 1845 |
| 1845 | 1846 |