|
From: Magnus H. <leg...@us...> - 2015-03-31 21:35:11
|
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "emacs-jabber".
The branch, master has been updated
via d9bbe9ba024557b1f9afd274a93964f192ebe871 (commit)
from 787d3bdba70e717218afb8189b3ae7d4d7e4b8fb (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit d9bbe9ba024557b1f9afd274a93964f192ebe871
Author: Magnus Henoch <mag...@gm...>
Date: Tue Mar 31 22:34:07 2015 +0100
Don't look for query-dns
The function query-dns was renamed to dns-query before the Emacs 23
release, so there is no point in checking for it.
diff --git a/srv.el b/srv.el
index 6ead479..d5455bb 100644
--- a/srv.el
+++ b/srv.el
@@ -46,7 +46,6 @@ of the list. The list is empty if no SRV records were found."
(error "No dns.el available"))
(unless (assq 'SRV dns-query-types)
(error "dns.el doesn't support SRV lookups"))
- ;; `dns-query' used to be `query-dns'. Try both names for now.
(let* ((result (srv--dns-query target))
(answers (mapcar #'(lambda (a)
(cadr (assq 'data a)))
@@ -98,9 +97,7 @@ of the list. The list is empty if no SRV records were found."
(defun srv--dns-query (target)
;; dns-query uses UDP, but that is not supported on Windows...
(if (featurep 'make-network-process '(:type datagram))
- (if (fboundp 'query-dns)
- (query-dns target 'SRV t)
- (dns-query target 'SRV t))
+ (dns-query target 'SRV t)
;; ...so let's call nslookup instead.
(srv--nslookup target)))
-----------------------------------------------------------------------
Summary of changes:
srv.el | 5 +----
1 files changed, 1 insertions(+), 4 deletions(-)
hooks/post-receive
--
emacs-jabber
|