[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/woman.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/woman.el |
Date: |
Fri, 10 Jun 2005 10:09:51 -0400 |
Index: emacs/lisp/woman.el
diff -c emacs/lisp/woman.el:1.28 emacs/lisp/woman.el:1.29
*** emacs/lisp/woman.el:1.28 Fri Jun 10 08:07:28 2005
--- emacs/lisp/woman.el Fri Jun 10 14:09:51 2005
***************
*** 823,835 ****
(defcustom woman-bold-headings t
"*If non-nil then embolden section and subsection headings. Default is t.
! Heading emboldening is NOT standard `man' behaviour."
:type 'boolean
:group 'woman-formatting)
(defcustom woman-ignore t
"*If non-nil then unrecognised requests etc. are ignored. Default is t.
! This gives the standard ?roff behaviour. If nil then they are left in
the buffer, which may aid debugging."
:type 'boolean
:group 'woman-formatting)
--- 823,835 ----
(defcustom woman-bold-headings t
"*If non-nil then embolden section and subsection headings. Default is t.
! Heading emboldening is NOT standard `man' behavior."
:type 'boolean
:group 'woman-formatting)
(defcustom woman-ignore t
"*If non-nil then unrecognised requests etc. are ignored. Default is t.
! This gives the standard ?roff behavior. If nil then they are left in
the buffer, which may aid debugging."
:type 'boolean
:group 'woman-formatting)
***************
*** 876,882 ****
;; 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
! `((((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)))
--- 876,882 ----
;; 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
! `((((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)))
***************
*** 914,926 ****
(put 'woman-addition-face 'face-alias 'woman-addition)
(defun woman-default-faces ()
! "Set foreground colours of italic and bold faces to their default values."
(interactive)
(face-spec-set 'woman-italic (face-user-default-spec 'woman-italic))
(face-spec-set 'woman-bold (face-user-default-spec 'woman-bold)))
(defun woman-monochrome-faces ()
! "Set foreground colours of italic and bold faces to that of the default
face.
This is usually either black or white."
(interactive)
(set-face-foreground 'woman-italic 'unspecified)
--- 914,926 ----
(put 'woman-addition-face 'face-alias 'woman-addition)
(defun woman-default-faces ()
! "Set foreground colors of italic and bold faces to their default values."
(interactive)
(face-spec-set 'woman-italic (face-user-default-spec 'woman-italic))
(face-spec-set 'woman-bold (face-user-default-spec 'woman-bold)))
(defun woman-monochrome-faces ()
! "Set foreground colors of italic and bold faces to that of the default face.
This is usually either black or white."
(interactive)
(set-face-foreground 'woman-italic 'unspecified)