Index: emacs/lisp/url/url-parse.el
diff -c emacs/lisp/url/url-parse.el:1.7 emacs/lisp/url/url-parse.el:1.8
*** emacs/lisp/url/url-parse.el:1.7 Sun Oct 10 20:39:11 2004
--- emacs/lisp/url/url-parse.el Mon May 16 10:07:31 2005
***************
*** 167,173 ****
(setq pass (match-string 2 user)
user (match-string 1 user)))
(if (string-match ":\\([0-9+]+\\)" host)
! (setq port (string-to-int (match-string 1 host))
host (substring host 0 (match-beginning 0))))
(if (string-match ":$" host)
(setq host (substring host 0 (match-beginning 0))))
--- 167,173 ----
(setq pass (match-string 2 user)
user (match-string 1 user)))
(if (string-match ":\\([0-9+]+\\)" host)
! (setq port (string-to-number (match-string 1 host))
host (substring host 0 (match-beginning 0))))
(if (string-match ":$" host)
(setq host (substring host 0 (match-beginning 0))))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
