diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2022-07-09 12:45:21 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2022-07-09 12:45:21 +0300 |
| commit | 6caade631ef9b80f751ce94d14252c1fb802fce0 (patch) | |
| tree | 7ed949da1457c301eaef7313d7e97419ecb0e961 /lisp/ffap.el | |
| parent | bab449f034f44657ff3ed1bf533be6a27f4dafd6 (diff) | |
| download | emacs-6caade631ef9b80f751ce94d14252c1fb802fce0.tar.gz | |
; Rename 'ffap--accept-or-reject-p'
* lisp/ffap.el (ffap-accept-or-reject-p): Renamed from
'ffap--accept-or-reject-p'; all users changed. Doc fix.
Diffstat (limited to 'lisp/ffap.el')
| -rw-r--r-- | lisp/ffap.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/ffap.el b/lisp/ffap.el index 65e0779e400..d7225ee9c97 100644 --- a/lisp/ffap.el +++ b/lisp/ffap.el @@ -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) |