(query-dig): Doc fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0cf4c4c..7733e36 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-01-02  Simon Josefsson  <jas@extundo.com>
+
+       * dig.el (query-dig): Doc fix.
+
 2003-01-02  Kai Gro\e,A_\e(Bjohann  <kai.grossjohann@uni-duisburg.de>
 
        * gnus-agent.el (gnus-agent-fetch-selected-article): Update whole

diff --git a/lisp/dig.el b/lisp/dig.el
index b13b7af..ae6a6ef 100644 (file)
--- a/lisp/dig.el
+++ b/lisp/dig.el
@@ -170,10 +170,13 @@ Optional arguments are passed to `dig-invoke'."
 
 ;; 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)))
+                        query-type query-class query-option dig-option server)
+  "Query addresses of a DOMAIN using dig.
+It works by calling `dig-invoke' and `dig-extract-rr'.  Optional
+arguments are passed to `dig-invoke' and `dig-extract-rr'.  Returns
+nil for domain/class/type queries that results in no data."
+(let ((buffer (dig-invoke domain query-type query-class
+                         query-option dig-option server)))
   (when buffer
     (switch-to-buffer buffer)
     (let ((digger (dig-extract-rr domain query-type query-class)))