mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(header-line): Use `:box nil' for color/gs displays too.

Browse Source
This commit is contained in:
Miles Bader 2000-11-14 09:02:02 +00:00
parent 5f0c971db7
commit bdab1d433f
2 changed files with 22 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2000-11-14 Miles Bader <miles@lsi.nec.co.jp>
* faces.el (header-line): Use `:box nil' for color/gs displays too.
2000-11-14 Gerd Moellmann <gerd@gnu.org>
* emacs-lisp/byte-opt.el (byte-compile-unfold-lambda): Don't

36
lisp/faces.el
View File

@ -1601,29 +1601,29 @@ 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))
:underline t)
(((class color grayscale) (background light))
(:inherit mode-line
:background "grey90" :foreground "grey20"
:box (:line-width 1 :style released-button)))
:inherit mode-line
:background "grey90" :foreground "grey20"
:box nil)
(((class color grayscale) (background dark))
(:inherit mode-line
:background "grey20" :foreground "grey90"
:box (:line-width 1 :style released-button)))
:inherit mode-line
:background "grey20" :foreground "grey90"
:box nil)
(((class mono) (background light))
(:inherit mode-line
:background "white" :foreground "black"
:inverse-video nil
:box nil
:underline t))
:inherit mode-line
:background "white" :foreground "black"
:inverse-video nil
:box nil
:underline t)
(((class mono) (background dark))
(:inherit mode-line
:background "black" :foreground "white"
:inverse-video nil
:box nil
:underline t))
:inherit mode-line
:background "black" :foreground "white"
:inverse-video nil
:box nil
:underline t)
(t
(:inverse-video t)))
:inverse-video t))
"Basic header-line face."
:version "21.1"
:group 'basic-faces)