Allow `C-u M-x dig' to ask for a query type

* lisp/net/dig.el (dig): Allow prompting for a query type
(bug#31810).

diff --git a/etc/NEWS b/etc/NEWS
index 10f260a515e775eb5c9e643fa64f52d421b59d89..0001758b14125c2f7a6f0102766227c0ebe024f7 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -2134,6 +2134,9 @@ summaries will include the failing condition.
 
 ** Miscellaneous
 
+---
+*** `C-x M-x dig' will now prompt for a query type to use.
+
 +++
 *** rcirc now supports SASL authentication.
 

diff --git a/lisp/net/dig.el b/lisp/net/dig.el
index ddbfb9598b89c972c93f5e4591775997c0d994e1..4f0b0df2b732075b6d1229f5f018f868e9e9d72e 100644 (file)
--- a/lisp/net/dig.el
+++ b/lisp/net/dig.el
@@ -138,9 +138,14 @@ Buffer should contain output generated by `dig-invoke'."
 ;;;###autoload
 (defun dig (domain &optional
                   query-type query-class query-option dig-option server)
-  "Query addresses of a DOMAIN using dig, by calling `dig-invoke'.
-Optional arguments are passed to `dig-invoke'."
-  (interactive "sHost: ")
+  "Query addresses of a DOMAIN using dig.
+See `dig-invoke' for an explanation for the parameters.
+When called interactively, DOMAIN is prompted for.  If given a prefix,
+also prompt for the QUERY-TYPE parameter."
+  (interactive
+   (list (read-string "Host: ")
+         (and current-prefix-arg
+              (read-string "Query type: "))))
   (pop-to-buffer-same-window
    (dig-invoke domain query-type query-class query-option dig-option server))
   (goto-char (point-min))