Mercurial > emacs
diff lisp/url/url-parse.el @ 62400:e30c08177a3b
Replace `string-to-int' by `string-to-number'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 16 May 2005 10:07:31 +0000 |
| parents | 01934125951e |
| children | a8fa7c632ee4 21eea50897a7 |
line wrap: on
line diff
--- a/lisp/url/url-parse.el Mon May 16 08:36:21 2005 +0000 +++ b/lisp/url/url-parse.el Mon May 16 10:07:31 2005 +0000 @@ -167,7 +167,7 @@ (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))))