[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 66c23da444 1/3: Fix namespacing issue in dig.el
From: |
Stefan Kangas |
Subject: |
master 66c23da444 1/3: Fix namespacing issue in dig.el |
Date: |
Mon, 1 Aug 2022 07:35:35 -0400 (EDT) |
branch: master
commit 66c23da444bee393fabe9076d6b829efaf495ff0
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
Fix namespacing issue in dig.el
* lisp/net/dig.el (dig-query): Rename from 'query-dig'.
(query-dig): Make into obsolete function alias for 'dig-query'.
---
lisp/net/dig.el | 21 +++++++++++----------
1 file changed, 11 insertions(+), 10 deletions(-)
diff --git a/lisp/net/dig.el b/lisp/net/dig.el
index d4fad0c61f..66defb5c89 100644
--- a/lisp/net/dig.el
+++ b/lisp/net/dig.el
@@ -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)