[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master f7a916a: Minor dns.el clean up
From: |
Lars Ingebrigtsen |
Subject: |
master f7a916a: Minor dns.el clean up |
Date: |
Thu, 30 Jul 2020 22:24:56 -0400 (EDT) |
branch: master
commit f7a916a618955d38b1ee08a78b309fb97f5250cc
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Minor dns.el clean up
* lisp/net/dns.el (dns-query-asynchronous, dns-query): Adjust some
parameter names to not end with "p", as these are not predicates.
---
lisp/net/dns.el | 18 +++++++++---------
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/lisp/net/dns.el b/lisp/net/dns.el
index ef250f0..c3c2943 100644
--- a/lisp/net/dns.el
+++ b/lisp/net/dns.el
@@ -374,20 +374,20 @@ Parses \"/etc/resolv.conf\" or calls \"nslookup\"."
(set (intern key dns-cache) result)
result))))
-(defun dns-query-asynchronous (name callback &optional type fullp reversep)
+(defun dns-query-asynchronous (name callback &optional type full reverse)
"Query a DNS server for NAME of TYPE.
CALLBACK will be called with a single parameter: The result.
If there's no result, or `dns-timeout' has passed, CALLBACK will
be called with nil as the parameter.
-If FULLP, return the entire record.
-If REVERSEP, look up an IP address."
+If FULL, return the entire record.
+If REVERSE, look up an IP address."
(setq type (or type 'A))
(unless (dns-servers-up-to-date-p)
(dns-set-servers))
- (when reversep
+ (when reverse
(setq name (concat
(mapconcat 'identity (nreverse (split-string name "\\.")) ".")
".in-addr.arpa")
@@ -397,7 +397,7 @@ If REVERSEP, look up an IP address."
(progn
(message "No DNS server configuration found")
nil)
- (dns--lookup name callback type fullp)))
+ (dns--lookup name callback type full)))
(defun dns--lookup (name callback type full)
(with-current-buffer (generate-new-buffer " *dns*")
@@ -495,16 +495,16 @@ If REVERSEP, look up an IP address."
(dns-get-txt-answer (dns-get 'answers result))
(dns-get 'data answer))))))))))
-(defun dns-query (name &optional type fullp reversep)
+(defun dns-query (name &optional type full reverse)
"Query a DNS server for NAME of TYPE.
-If FULLP, return the entire record returned.
-If REVERSEP, look up an IP address."
+If FULL, return the entire record returned.
+If REVERSE, look up an IP address."
(let ((result nil))
(dns-query-asynchronous
name
(lambda (response)
(setq result (list response)))
- type fullp reversep)
+ type full reverse)
;; Loop until we get the callback.
(while (not result)
(sleep-for 0.01))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master f7a916a: Minor dns.el clean up,
Lars Ingebrigtsen <=