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

[Dan Nicolaescu]

Index: emacs/lisp/woman.el
diff -c emacs/lisp/woman.el:1.26 emacs/lisp/woman.el:1.27
*** emacs/lisp/woman.el:1.26    Sat Jan 15 12:45:28 2005
--- emacs/lisp/woman.el Fri Apr  8 14:26:13 2005
***************
*** 1,6 ****
  ;;; woman.el --- browse UN*X manual pages `wo (without) man'
  
! ;; Copyright (C) 2000, 2002, 2004 Free Software Foundation, Inc.
  
  ;; Author: Francis J. Wright <address@hidden>
  ;; Maintainer: Francis J. Wright <address@hidden>
--- 1,6 ----
  ;;; woman.el --- browse UN*X manual pages `wo (without) man'
  
! ;; Copyright (C) 2000, 2002, 2004, 2005 Free Software Foundation, Inc.
  
  ;; Author: Francis J. Wright <address@hidden>
  ;; Maintainer: Francis J. Wright <address@hidden>
***************
*** 876,888 ****
  ;; You should probably select either italic or underline as you prefer, but
  ;; not both, although italic and underline work together perfectly well!
  (defface woman-italic-face
!   `((((background light)) (:slant italic :underline t :foreground "red"))
      (((background dark)) (:slant italic :underline t)))
    "Face for italic font in man pages."
    :group 'woman-faces)
  
  (defface woman-bold-face
!   '((((background light)) (:weight bold :foreground "blue"))
      (((background dark)) (:weight bold :foreground "green2")))
    "Face for bold font in man pages."
    :group 'woman-faces)
--- 876,891 ----
  ;; You should probably select either italic or underline as you prefer, but
  ;; not both, although italic and underline work together perfectly well!
  (defface woman-italic-face
!   `((((min-colors 88) (background light)) 
!      (:slant italic :underline t :foreground "red1"))
!     (((background light)) (:slant italic :underline t :foreground "red"))
      (((background dark)) (:slant italic :underline t)))
    "Face for italic font in man pages."
    :group 'woman-faces)
  
  (defface woman-bold-face
!   '((((min-colors 88) (background light)) (:weight bold :foreground "blue1"))
!     (((background light)) (:weight bold :foreground "blue"))
      (((background dark)) (:weight bold :foreground "green2")))
    "Face for bold font in man pages."
    :group 'woman-faces)
***************
*** 892,897 ****
--- 895,901 ----
  ;; non-standard fonts seem to do so badly or in idiosyncratic ways!)
  (defface woman-unknown-face
    '((((background light)) (:foreground "brown"))
+     (((min-colors 88) (background dark)) (:foreground "cyan1"))
      (((background dark)) (:foreground "cyan")))
    "Face for all unknown fonts in man pages."
    :group 'woman-faces)