From 27b60ae061423c836d06a7a6349c6ab4397b2b41 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 4 Aug 2022 11:27:47 +0200 Subject: [PATCH] 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. --- lisp/woman.el | 10 +++++----- 1 file 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 -- 2.39.2