From 4b73a937e08334a8304f876b598b662d6a0aaef5 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 17 Sep 2019 14:11:53 +0200 Subject: [PATCH] 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 4f68e5db61d..03ed4a59575 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 -- 2.39.5