diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/faces.el | 36 |
2 files changed, 22 insertions, 18 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 50fd8376e45..04ff21d2e7d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 diff --git a/lisp/faces.el b/lisp/faces.el index a8c9eee5517..ee65edd3f3b 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -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) |