From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Fri, 11 Aug 2006 09:28:44 +0000 (+0000)
Subject: (bindat-ip-to-string): Use `format-network-address' if possible.
X-Git-Tag: emacs-pretest-22.0.90~1035
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bad03cfc8030793473927dff7f8c87bc45fc4bbe;p=emacs.git

(bindat-ip-to-string): Use `format-network-address' if possible.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ada27d2c275..a6ee985c659 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-08-11  Thien-Thi Nguyen  <ttn@gnu.org>
+
+	* emacs-lisp/bindat.el (bindat-ip-to-string):
+	Use `format-network-address' if possible.
+
 2006-08-11  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
 
 	* x-dnd.el (x-dnd-init-frame): Call x-register-dnd-atom.
diff --git a/lisp/emacs-lisp/bindat.el b/lisp/emacs-lisp/bindat.el
index d05eed2c4a2..1b37f3f772f 100644
--- a/lisp/emacs-lisp/bindat.el
+++ b/lisp/emacs-lisp/bindat.el
@@ -619,9 +619,12 @@ If optional second arg SEP is a string, use that as separator."
   (bindat-format-vector vect "%02x" (if (stringp sep) sep ":")))
 
 (defun bindat-ip-to-string (ip)
-  "Format vector IP as an ip address in dotted notation."
-  (format "%d.%d.%d.%d"
-	  (aref ip 0) (aref ip 1) (aref ip 2) (aref ip 3)))
+  "Format vector IP as an ip address in dotted notation.
+The port (if any) is omitted.  IP can be a string, as well."
+  (if (vectorp ip)
+      (format-network-address ip t)
+    (format "%d.%d.%d.%d"
+            (aref ip 0) (aref ip 1) (aref ip 2) (aref ip 3))))
 
 (provide 'bindat)