summaryrefslogtreecommitdiff
path: root/lisp/woman.el
diff options
context:
space:
mode:
authorStefan Kangas <stefan@marxist.se>2022-08-04 11:27:47 +0200
committerStefan Kangas <stefan@marxist.se>2022-08-04 11:34:35 +0200
commit27b60ae061423c836d06a7a6349c6ab4397b2b41 (patch)
tree32cb3cad3faa1e5519e085aeb4557c0b4da6ded1 /lisp/woman.el
parentbde0ccd2c2d29b818e27d90888da9e3cb36712aa (diff)
downloademacs-27b60ae061423c836d06a7a6349c6ab4397b2b41.tar.gz
emacs-27b60ae061423c836d06a7a6349c6ab4397b2b41.tar.bz2
emacs-27b60ae061423c836d06a7a6349c6ab4397b2b41.zip
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.
Diffstat (limited to 'lisp/woman.el')
-rw-r--r--lisp/woman.el10
1 files changed, 5 insertions, 5 deletions
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