mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-30 02:02:38 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Stefan Kangas 2022-07-07 15:32:48 +02:00
parent 6d95b4e6ec
commit f32808ce98
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/net/dig.el
View file

@ -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))))