diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2005-05-16 10:07:59 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2005-05-16 10:07:59 +0000 |
| commit | 216d380630ec8be9569a56687f0e08b89ee97c47 (patch) | |
| tree | 3e4277a92220cf7828d5a9b8a7ea158a6bea0396 /lisp/url/url-parse.el | |
| parent | cc211a0ff8145e0814413e237bb5674d615968b7 (diff) | |
| download | emacs-216d380630ec8be9569a56687f0e08b89ee97c47.tar.gz emacs-216d380630ec8be9569a56687f0e08b89ee97c47.tar.bz2 emacs-216d380630ec8be9569a56687f0e08b89ee97c47.zip | |
Replace `string-to-int' by `string-to-number'.
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)))) |