diff options
author | Stefan Kangas <stefan@marxist.se> | 2022-07-07 15:32:48 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2022-07-07 15:38:58 +0200 |
commit | f32808ce98d0612bc5ad949f41563001768ab87a (patch) | |
tree | 2729b5e7fbb4a4b9239677c889384a0c1ceabf6c | |
parent | 6d95b4e6ec35c11820e5733a3a13c05d2debc68a (diff) | |
download | emacs-f32808ce98d0612bc5ad949f41563001768ab87a.tar.gz |
* lisp/net/dig.el (dig): Provide default.
-rw-r--r-- | lisp/net/dig.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/net/dig.el b/lisp/net/dig.el index 0ac6399e87d..7157d0cb585 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)))) |