From 27bdf14195ff81fedb1e3f89a3759cfbe4096d26 Mon Sep 17 00:00:00 2001 From: Magnus Henoch Date: Thu, 19 Feb 2009 00:15:14 +0000 Subject: [PATCH] query-dns was renamed to dns-query; check for both. --- srv.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/srv.el b/srv.el index 42665e7..e8a3a63 100644 --- a/srv.el +++ b/srv.el @@ -46,7 +46,10 @@ 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")) - (let* ((result (query-dns target 'SRV t)) + ;; `dns-query' used to be `query-dns'. Try both names for now. + (let* ((result (if (fboundp 'query-dns) + (query-dns target 'SRV t) + (dns-query target 'SRV t))) (answers (mapcar #'(lambda (a) (cadr (assq 'data a))) (cadr (assq 'answers result))))