From d9bbe9ba024557b1f9afd274a93964f192ebe871 Mon Sep 17 00:00:00 2001 From: Magnus Henoch Date: Tue, 31 Mar 2015 22:34:07 +0100 Subject: [PATCH] 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. --- srv.el | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) 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)))