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-http.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-http.el')
| -rw-r--r-- | lisp/url/url-http.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index 872ea22ce05..16d51a0258c 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -827,10 +827,10 @@ the end of the document." 'text-cursor 'cursor) 'invisible t)) - (setq url-http-chunked-length (string-to-int (buffer-substring - (match-beginning 1) - (match-end 1)) - 16) + (setq url-http-chunked-length (string-to-number (buffer-substring + (match-beginning 1) + (match-end 1)) + 16) url-http-chunked-counter (1+ url-http-chunked-counter) url-http-chunked-start (set-marker (or url-http-chunked-start @@ -904,7 +904,7 @@ the end of the document." url-http-content-type (mail-fetch-field "content-type")) (if (mail-fetch-field "content-length") (setq url-http-content-length - (string-to-int (mail-fetch-field "content-length")))) + (string-to-number (mail-fetch-field "content-length")))) (widen))) (if url-http-transfer-encoding (setq url-http-transfer-encoding |