From 66c23da444bee393fabe9076d6b829efaf495ff0 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 1 Aug 2022 12:10:43 +0200 Subject: [PATCH] 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 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) -- 2.39.2