diff options
Diffstat (limited to 'lisp/net/dig.el')
-rw-r--r-- | lisp/net/dig.el | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/lisp/net/dig.el b/lisp/net/dig.el index 92dcf73250b..4f0b0df2b73 100644 --- a/lisp/net/dig.el +++ b/lisp/net/dig.el @@ -79,7 +79,7 @@ and is a commonly available debugging tool." (push domain cmdline) (if server (push (concat "@" server) cmdline) (if dig-dns-server (push (concat "@" dig-dns-server) cmdline))) - (apply 'call-process dig-program nil buf nil cmdline) + (apply #'call-process dig-program nil buf nil cmdline) buf)) (defun dig-extract-rr (domain &optional type class) @@ -120,7 +120,7 @@ Buffer should contain output generated by `dig-invoke'." (defvar dig-mode-map (let ((map (make-sparse-keymap))) (define-key map "g" nil) - (define-key map "q" 'dig-exit) + (define-key map "q" #'dig-exit) map)) (define-derived-mode dig-mode special-mode "Dig" @@ -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)) |