From f32808ce98d0612bc5ad949f41563001768ab87a Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 7 Jul 2022 15:32:48 +0200 Subject: [PATCH] * 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 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)))) -- 2.39.5