[Emacs-diffs] Changes to emacs/lisp/url/url-parse.el

[Juanma Barranquero]

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))))