master f32808ce98 2/2: * lisp/net/dig.el (dig): Provide default.

[Stefan Kangas]

branch: master
commit f32808ce98d0612bc5ad949f41563001768ab87a
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    * lisp/net/dig.el (dig): Provide default.
---
 lisp/net/dig.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/net/dig.el b/lisp/net/dig.el
index 0ac6399e87..7157d0cb58 100644
--- a/lisp/net/dig.el
+++ b/lisp/net/dig.el
@@ -154,10 +154,12 @@ for the QUERY-TYPE parameter.
 If given a \\[universal-argument] \\[universal-argument] \
 prefix, also prompt for the SERVER parameter."
   (interactive
-   (list (read-string "Host: ")
+   (list (let ((default (ffap-machine-at-point)))
+           (read-string (format-prompt "Host" default) nil nil default))
          (and current-prefix-arg
               (read-string "Query type: "))))
-  (when (>= (car current-prefix-arg) 16)
+  (when (and (numberp (car current-prefix-arg))
+             (>= (car current-prefix-arg) 16))
     (let ((serv (read-from-minibuffer "Name server: ")))
       (when (not (equal serv ""))
         (setq server serv))))