From: Stefan Kangas <stefan@marxist.se>
Date: Mon, 1 Aug 2022 10:10:43 +0000 (+0200)
Subject: Fix namespacing issue in dig.el
X-Git-Tag: emacs-29.0.90~1447^2~569
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=66c23da444bee393fabe9076d6b829efaf495ff0;p=emacs.git

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'.
---

diff --git a/lisp/net/dig.el b/lisp/net/dig.el
index d4fad0c61fd..66defb5c894 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)