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

3 files changed, 10 insertions, 2 deletions

diff --git a/etc/NEWS b/etc/NEWS
index d1665fb3b70..6c01d2ef607 100644
--- 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.
+
 
 * 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 75004181ee1..73db20178ad 100644
--- 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 1410a8971ad..c7f9b08d404 100644
--- 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]