Show
Ignore:
Timestamp:
08/18/06 08:35:31 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/lisp/emacs-lisp/bindat.el

    r4098 r4148  
    620620 
    621621(defun bindat-ip-to-string (ip) 
    622   "Format vector IP as an ip address in dotted notation." 
    623   (format "%d.%d.%d.%d" 
    624           (aref ip 0) (aref ip 1) (aref ip 2) (aref ip 3))) 
     622  "Format vector IP as an ip address in dotted notation. 
     623The port (if any) is omitted.  IP can be a string, as well." 
     624  (if (vectorp ip) 
     625      (format-network-address ip t) 
     626    (format "%d.%d.%d.%d" 
     627            (aref ip 0) (aref ip 1) (aref ip 2) (aref ip 3)))) 
    625628 
    626629(provide 'bindat)