wgreenhouse
/
emacs-jabber
1
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

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.
This commit is contained in:
Magnus Henoch 2015-03-31 22:34:07 +01:00
parent 787d3bdba7
commit d9bbe9ba02
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
srv.el
View File

@ -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)))