[Emacs-diffs] Changes to emacs/lisp/faces.el

[Miles Bader]

Index: emacs/lisp/faces.el
diff -c emacs/lisp/faces.el:1.269 emacs/lisp/faces.el:1.270
*** emacs/lisp/faces.el:1.269   Wed Jul  3 03:03:51 2002
--- emacs/lisp/faces.el Wed Jul  3 03:08:43 2002
***************
*** 1808,1816 ****
  (put 'modeline-inactive 'face-alias 'mode-line-inactive)
  
  (defface header-line
!   '((t
!      :inherit mode-line)
!     (((type tty))
       ;; This used to be `:inverse-video t', but that doesn't look very
       ;; good when combined with inverse-video mode-lines and multiple
       ;; windows.  Underlining looks better, and is more consistent with
--- 1808,1814 ----
  (put 'modeline-inactive 'face-alias 'mode-line-inactive)
  
  (defface header-line
!   '((((type tty))
       ;; This used to be `:inverse-video t', but that doesn't look very
       ;; good when combined with inverse-video mode-lines and multiple
       ;; windows.  Underlining looks better, and is more consistent with
***************
*** 1820,1843 ****
       ;; 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
!      :inverse-video nil)
      (((class color grayscale) (background light))
       :background "grey90" :foreground "grey20"
!      :box nil)
      (((class color grayscale) (background dark))
       :background "grey20" :foreground "grey90"
!      :box nil)
      (((class mono) (background light))
       :background "white" :foreground "black"
       :inverse-video nil
       :box nil
!      :underline t)
      (((class mono) (background dark))
       :background "black" :foreground "white"
       :inverse-video nil
       :box nil
!      :underline t))
    "Basic header-line face."
    :version "21.1"
    :group 'basic-faces)
--- 1818,1844 ----
       ;; 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)
      (((class color grayscale) (background light))
       :background "grey90" :foreground "grey20"
!      :box nil
!      :inherit mode-line)
      (((class color grayscale) (background dark))
       :background "grey20" :foreground "grey90"
!      :box nil
!      :inherit mode-line)
      (((class mono) (background light))
       :background "white" :foreground "black"
       :inverse-video nil
       :box nil
!      :underline t
!      :inherit mode-line)
      (((class mono) (background dark))
       :background "black" :foreground "white"
       :inverse-video nil
       :box nil
!      :underline t
!      :inherit mode-line))
    "Basic header-line face."
    :version "21.1"
    :group 'basic-faces)