From: Stefan Kangas <stefan@marxist.se>
Date: Thu, 4 Aug 2022 09:27:47 +0000 (+0200)
Subject: Rename set-woman-file-regexp to woman-set-file-regexp
X-Git-Tag: emacs-29.0.90~1447^2~468
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=27b60ae061423c836d06a7a6349c6ab4397b2b41;p=emacs.git

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 d8743c7face..23ce2218b52 100644
--- 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