Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

; Rename 'ffap--accept-or-reject-p'

Browse source 
* lisp/ffap.el (ffap-accept-or-reject-p): Renamed from
'ffap--accept-or-reject-p'; all users changed.  Doc fix.
This commit is contained in:
Eli Zaretskii 2022-07-09 12:45:21 +03:00
parent bab449f034
commit 6caade631e
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/ffap.el
View file

@ -377,9 +377,10 @@ Actual search is done by the function `ffap-next-guess'."
;;; Machines (`ffap-machine-p'):
(defun ffap--accept-or-reject-p (symbol)
(defun ffap-accept-or-reject-p (symbol)
"Return non-nil if SYMBOL is `accept' or `reject'.
Otherwise, return nil."
Otherwise, return nil. This is intended for use as the
predicate in the `:safe' property of user options."
(memq symbol '(accept reject)))
;; I cannot decide a "best" strategy here, so these are variables. In
@ -391,7 +392,7 @@ Value should be a symbol, one of `ping', `accept', and `reject'."
:type '(choice (const ping)
(const accept)
(const reject))
:safe #'ffap--accept-or-reject-p
:safe #'ffap-accept-or-reject-p
:group 'ffap)
(defcustom ffap-machine-p-known 'accept
@ -401,7 +402,7 @@ See `mail-extr.el' for the known domains."
:type '(choice (const ping)
(const accept)
(const reject))
:safe #'ffap--accept-or-reject-p
:safe #'ffap-accept-or-reject-p
:group 'ffap
:version "29.1")
@ -412,7 +413,7 @@ See `mail-extr.el' for the known domains."
:type '(choice (const ping)
(const accept)
(const reject))
:safe #'ffap--accept-or-reject-p
:safe #'ffap-accept-or-reject-p
:group 'ffap)
(defun ffap-what-domain (domain)