diff options
Diffstat (limited to 'lisp/url/url-parse.el')
| -rw-r--r-- | lisp/url/url-parse.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/url/url-parse.el b/lisp/url/url-parse.el index 97348ab5db2..5b5250ab31f 100644 --- a/lisp/url/url-parse.el +++ b/lisp/url/url-parse.el @@ -167,7 +167,7 @@ Format is: (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)) + (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)))) |