Rename set-woman-file-regexp to woman-set-file-regexp

* lisp/woman.el (woman-set-file-regexp): Rename from
'set-woman-file-regexp'.  Retain old name as an obsolete alias.

diff --git a/lisp/woman.el b/lisp/woman.el
index d8743c7face54451c4fe47a3b72b4b490f1c08f1..23ce2218b52685c8c1c51f1372cee0e7d1b129eb 100644 (file)
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -781,7 +781,7 @@ Built automatically from the customizable user options
 (defvar woman-uncompressed-file-regexp)        ; for the compiler
 (defvar woman-file-compression-regexp) ; for the compiler
 
-(defun set-woman-file-regexp (symbol value)
+(defun woman-set-file-regexp (symbol value)
   "Bind SYMBOL to VALUE and set `woman-file-regexp' as per user customizations.
 Used as :set cookie by Customize when customizing the user options
 `woman-uncompressed-file-regexp' and `woman-file-compression-regexp'."
@@ -806,7 +806,7 @@ in the ncurses package include `toe.1m', `form.3x', etc.
 Note: an optional compression regexp will be appended, so this regexp
 MUST NOT end with any kind of string terminator such as $ or \\\\='."
   :type 'regexp
-  :set #'set-woman-file-regexp
+  :set #'woman-set-file-regexp
   :group 'woman-interface)
 
 (defcustom woman-file-compression-regexp
@@ -822,7 +822,7 @@ Should begin with \\. and end with \\\\=' and MUST NOT be optional."
   ;; not loaded by default!
   :version "24.1"                       ; added xz
   :type 'regexp
-  :set #'set-woman-file-regexp
+  :set #'woman-set-file-regexp
   :group 'woman-interface)
 
 (defcustom woman-use-own-frame nil
@@ -4580,11 +4580,11 @@ logging the message."
 
 (put 'woman-bookmark-jump 'bookmark-handler-type "WoMan")
 
-;; Obsolete.
-
 (defvar woman-version "0.551 (beta)" "WoMan version information.")
 (make-obsolete-variable 'woman-version 'emacs-version "28.1")
 
+(define-obsolete-function-alias 'set-woman-file-regexp 'woman-set-file-regexp "29.1")
+
 (provide 'woman)
 
 ;;; woman.el ends here