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 |