Mercurial > emacs
comparison lisp/url/url-http.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 | a39aff2f88c4 |
| children | 2ff1ad165ea3 21eea50897a7 |
comparison
equal
deleted
inserted
replaced
| 62399:87fca255126a | 62400:e30c08177a3b |
|---|---|
| 825 'chunked-encoding t | 825 'chunked-encoding t |
| 826 'face (if (featurep 'xemacs) | 826 'face (if (featurep 'xemacs) |
| 827 'text-cursor | 827 'text-cursor |
| 828 'cursor) | 828 'cursor) |
| 829 'invisible t)) | 829 'invisible t)) |
| 830 (setq url-http-chunked-length (string-to-int (buffer-substring | 830 (setq url-http-chunked-length (string-to-number (buffer-substring |
| 831 (match-beginning 1) | 831 (match-beginning 1) |
| 832 (match-end 1)) | 832 (match-end 1)) |
| 833 16) | 833 16) |
| 834 url-http-chunked-counter (1+ url-http-chunked-counter) | 834 url-http-chunked-counter (1+ url-http-chunked-counter) |
| 835 url-http-chunked-start (set-marker | 835 url-http-chunked-start (set-marker |
| 836 (or url-http-chunked-start | 836 (or url-http-chunked-start |
| 837 (make-marker)) | 837 (make-marker)) |
| 838 (match-end 0))) | 838 (match-end 0))) |
| 902 (setq url-http-transfer-encoding (mail-fetch-field | 902 (setq url-http-transfer-encoding (mail-fetch-field |
| 903 "transfer-encoding") | 903 "transfer-encoding") |
| 904 url-http-content-type (mail-fetch-field "content-type")) | 904 url-http-content-type (mail-fetch-field "content-type")) |
| 905 (if (mail-fetch-field "content-length") | 905 (if (mail-fetch-field "content-length") |
| 906 (setq url-http-content-length | 906 (setq url-http-content-length |
| 907 (string-to-int (mail-fetch-field "content-length")))) | 907 (string-to-number (mail-fetch-field "content-length")))) |
| 908 (widen))) | 908 (widen))) |
| 909 (if url-http-transfer-encoding | 909 (if url-http-transfer-encoding |
| 910 (setq url-http-transfer-encoding | 910 (setq url-http-transfer-encoding |
| 911 (downcase url-http-transfer-encoding))) | 911 (downcase url-http-transfer-encoding))) |
| 912 | 912 |