[Emacs-diffs] master 4b73a93: Touch up naming of ipv6-expand

[Lars Ingebrigtsen]

branch: master
commit 4b73a937e08334a8304f876b598b662d6a0aaef5
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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.
---
 lisp/net/net-utils.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el
index 4f68e5d..03ed4a5 100644
--- 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