diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-09-17 14:11:53 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-09-17 14:11:53 +0200 |
| commit | 4b73a937e08334a8304f876b598b662d6a0aaef5 (patch) | |
| tree | 708222ae887e9a1eff086986e903dda66f064033 /lisp | |
| parent | 0e5e816a09cddb0577e5d7c6187b872876b2f759 (diff) | |
| download | emacs-4b73a937e08334a8304f876b598b662d6a0aaef5.tar.gz emacs-4b73a937e08334a8304f876b598b662d6a0aaef5.tar.bz2 emacs-4b73a937e08334a8304f876b598b662d6a0aaef5.zip | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/net/net-utils.el | 9 |
1 files 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 |