mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

Fix namespacing issue in dig.el

Browse source 
* lisp/net/dig.el (dig-query): Rename from 'query-dig'.
(query-dig): Make into obsolete function alias for 'dig-query'.
This commit is contained in:
Stefan Kangas 2022-08-01 12:10:43 +02:00
parent e976a935f8
commit 66c23da444
1 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lisp/net/dig.el
View file

@ -168,20 +168,21 @@ prefix, also prompt for the SERVER parameter."
(forward-line))
(dig-mode))
;; named for consistency with query-dns in dns.el
(defun query-dig (domain &optional
query-type query-class query-option dig-option server)
(defun dig-query (domain &optional
query-type query-class query-option dig-option server)
"Query addresses of a DOMAIN using dig.
It works by calling `dig-invoke' and `dig-extract-rr'.
Optional arguments are passed to `dig-invoke' and `dig-extract-rr'.
Returns nil for domain/class/type queries that result in no data."
(let ((buffer (dig-invoke domain query-type query-class
query-option dig-option server)))
(when buffer
(pop-to-buffer-same-window buffer)
(let ((digger (dig-extract-rr domain query-type query-class)))
(kill-buffer buffer)
digger))))
(let ((buffer (dig-invoke domain query-type query-class
query-option dig-option server)))
(when buffer
(pop-to-buffer-same-window buffer)
(let ((digger (dig-extract-rr domain query-type query-class)))
(kill-buffer buffer)
digger))))
(define-obsolete-function-alias 'query-dig #'dig-query "29.1")
(provide 'dig)