From d0a1ddd87eec5776330485a954d9b1990a1551ed Mon Sep 17 00:00:00 2001 From: Teodor Zlatanov Date: Mon, 30 Dec 2002 18:09:45 +0000 Subject: [PATCH] (query-dig): new function --- lisp/ChangeLog | 4 ++++ lisp/dig.el | 12 ++++++++++++ 2 files changed, 16 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 17e08000c..88671220c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2002-12-30 Teodor Zlatanov + + * dig.el (query-dig): new function + 2002-12-30 Lars Magne Ingebrigtsen * flow-fill.el (fill-flowed): Don't infloop on too long fill diff --git a/lisp/dig.el b/lisp/dig.el index d719c381e..f7883f8c0 100644 --- a/lisp/dig.el +++ b/lisp/dig.el @@ -168,6 +168,18 @@ Optional arguments are passed to `dig-invoke'." (setq buffer-read-only t) (set-buffer-modified-p nil)) +;; named for consistency with query-dns in dns.el +(defun query-dig (domain &optional + query-type query-class query-option dig-option server) + "Query addresses of a DOMAIN using dig, by calling `dig-invoke' and `dig-extract-rr'. +Optional arguments are passed to `dig-invoke' and `dig-extract-rr'. Returns nil for a nonexistent domain." +(let ((buffer (dig-invoke domain query-type query-class query-option dig-option server))) + (when buffer + (switch-to-buffer buffer) + (setq digger (dig-extract-rr domain query-type query-class)) + (kill-buffer buffer) + digger))) + (provide 'dig) ;;; dig.el ends here -- 2.34.1