/[emacs]/emacs/lisp/woman.el
ViewVC logotype

Diff of /emacs/lisp/woman.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.28 by miles, Fri Jun 10 08:07:28 2005 UTC revision 1.29 by lektu, Fri Jun 10 14:09:51 2005 UTC
# Line 823  Set this variable to 7 to emulate GNU ma Line 823  Set this variable to 7 to emulate GNU ma
823    
824  (defcustom woman-bold-headings t  (defcustom woman-bold-headings t
825    "*If non-nil then embolden section and subsection headings.  Default is t.    "*If non-nil then embolden section and subsection headings.  Default is t.
826  Heading emboldening is NOT standard `man' behaviour."  Heading emboldening is NOT standard `man' behavior."
827    :type 'boolean    :type 'boolean
828    :group 'woman-formatting)    :group 'woman-formatting)
829    
830  (defcustom woman-ignore t  (defcustom woman-ignore t
831    "*If non-nil then unrecognised requests etc. are ignored.  Default is t.    "*If non-nil then unrecognised requests etc. are ignored.  Default is t.
832  This gives the standard ?roff behaviour.  If nil then they are left in  This gives the standard ?roff behavior.  If nil then they are left in
833  the buffer, which may aid debugging."  the buffer, which may aid debugging."
834    :type 'boolean    :type 'boolean
835    :group 'woman-formatting)    :group 'woman-formatting)
# Line 876  or different fonts." Line 876  or different fonts."
876  ;; You should probably select either italic or underline as you prefer, but  ;; You should probably select either italic or underline as you prefer, but
877  ;; not both, although italic and underline work together perfectly well!  ;; not both, although italic and underline work together perfectly well!
878  (defface woman-italic  (defface woman-italic
879    `((((min-colors 88) (background light))    `((((min-colors 88) (background light))
880       (:slant italic :underline t :foreground "red1"))       (:slant italic :underline t :foreground "red1"))
881      (((background light)) (:slant italic :underline t :foreground "red"))      (((background light)) (:slant italic :underline t :foreground "red"))
882      (((background dark)) (:slant italic :underline t)))      (((background dark)) (:slant italic :underline t)))
# Line 914  or different fonts." Line 914  or different fonts."
914  (put 'woman-addition-face 'face-alias 'woman-addition)  (put 'woman-addition-face 'face-alias 'woman-addition)
915    
916  (defun woman-default-faces ()  (defun woman-default-faces ()
917    "Set foreground colours of italic and bold faces to their default values."    "Set foreground colors of italic and bold faces to their default values."
918    (interactive)    (interactive)
919    (face-spec-set 'woman-italic (face-user-default-spec 'woman-italic))    (face-spec-set 'woman-italic (face-user-default-spec 'woman-italic))
920    (face-spec-set 'woman-bold (face-user-default-spec 'woman-bold)))    (face-spec-set 'woman-bold (face-user-default-spec 'woman-bold)))
921    
922  (defun woman-monochrome-faces ()  (defun woman-monochrome-faces ()
923    "Set foreground colours of italic and bold faces to that of the default face.    "Set foreground colors of italic and bold faces to that of the default face.
924  This is usually either black or white."  This is usually either black or white."
925    (interactive)    (interactive)
926    (set-face-foreground 'woman-italic 'unspecified)    (set-face-foreground 'woman-italic 'unspecified)

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26