Touch up naming of ipv6-expand

* lisp/net/net-utils.el (nslookup--ipv6-expand): Rename to avoid
make prefix more regular.
(nslookup-host-ipv6): Rename call.

diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el
index 4f68e5db61dedf6c5c5a9de7050b59cc3e9a3539..03ed4a595756de11581f759d759f6f0f6953c378 100644 (file)
--- a/lisp/net/net-utils.el
+++ b/lisp/net/net-utils.el
@@ -563,7 +563,7 @@ This command uses `nslookup-program' to look up DNS records."
            (apply #'vector (mapcar #'string-to-number (split-string ip "\\."))))
           (t (error "Invalid format: %s" format)))))
 
-(defun ipv6-expand (ipv6-vector)
+(defun nslookup--ipv6-expand (ipv6-vector)
   (let ((len (length ipv6-vector)))
     (if (< len 8)
         (let* ((pivot (cl-position 0 ipv6-vector))
@@ -598,9 +598,10 @@ This command uses `nslookup-program' to look up DNS records."
     (cond ((memq format '(string nil))
            ip)
           ((eq format 'vector)
-           (ipv6-expand (apply #'vector
-                               (cl-loop for hextet in (split-string ip "[:]")
-                                        collect (string-to-number hextet 16)))))
+           (nslookup--ipv6-expand
+            (apply #'vector
+                   (cl-loop for hextet in (split-string ip "[:]")
+                            collect (string-to-number hextet 16)))))
           (t (error "Invalid format: %s" format)))))
 
 ;;;###autoload