From bdab1d433f14d4b92441763e430932774c5b41b6 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Tue, 14 Nov 2000 09:02:02 +0000 Subject: [PATCH] (header-line): Use `:box nil' for color/gs displays too. --- lisp/ChangeLog | 4 ++++ 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 + + * faces.el (header-line): Use `:box nil' for color/gs displays too. + 2000-11-14 Gerd Moellmann * 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) -- 2.39.5