* lisp/woman.el (woman-default-faces, woman-monochrome-faces): Mark as obsolete.

diff --git a/etc/NEWS b/etc/NEWS
index d1665fb3b70bfb7b8183267fee0602b78c1ac66a..6c01d2ef60787f6e742bbc778d62664c6a686022 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -55,6 +55,11 @@ New features include:
   name and arguments.  Useful to trace the value of (current-buffer) or
   (point) when the function is invoked.
 
+** Woman
+
+*** The commands `woman-default-faces' and `woman-monochrome-faces'
+are obsolete.  Customize the `woman-* faces instead.
+
 \f
 * New Modes and Packages in Emacs 24.4
 ** New nadvice.el package offering lighter-weight advice facilities.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 75004181ee1480dbd9a2958bdc28feb023276674..73db20178addbf6dd942750662ba5af182e68f56 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2012-11-24  Chong Yidong  <cyd@gnu.org>
 
+       * woman.el (woman-default-faces, woman-monochrome-faces): Mark as
+       obsolete.
+
        * custom.el (custom-theme-set-variables): Use a topological sort
        for ordering by custom dependencies (Bug#12952).
        (custom--sort-vars, custom--sort-vars-1): New functions.

diff --git a/lisp/woman.el b/lisp/woman.el
index 1410a8971ad8bc785e129ec6a10b161e583108a6..c7f9b08d40484781d20769c04ac32b0f01d3ba34 100644 (file)
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -949,6 +949,7 @@ or different fonts."
 
 (defun woman-default-faces ()
   "Set foreground colors of italic and bold faces to their default values."
+  (declare (obsolete choose-completion-guess-base-position "23.2"))
   (interactive)
   (face-spec-set 'woman-italic (face-user-default-spec 'woman-italic))
   (face-spec-set 'woman-bold (face-user-default-spec 'woman-bold)))
@@ -956,6 +957,7 @@ or different fonts."
 (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."
+  (declare (obsolete choose-completion-guess-base-position "23.2"))
   (interactive)
   (set-face-foreground 'woman-italic 'unspecified)
   (set-face-foreground 'woman-bold 'unspecified))
@@ -1828,8 +1830,6 @@ Argument EVENT is the invoking mouse event."
    ["Use Full Frame Width" woman-toggle-fill-frame
     :active t :style toggle :selected woman-fill-frame]
    ["Reformat Last Man Page" woman-reformat-last-file t]
-   ["Use Monochrome Main Faces" woman-monochrome-faces t]
-   ["Use Default Main Faces" woman-default-faces t]
    ["Make Contents Menu" (woman-imenu t) (not woman-imenu-done)]
    "--"
    ["Describe (Wo)Man Mode" describe-mode t]