Mercurial > emacs
comparison lisp/url/url-http.el @ 92686:c8be70dde05c
(url-http-chunked-encoding-after-change-function):
Remove superfluous CRLF at end of file. (bug #42)
| author | Magnus Henoch <mange@freemail.hu> |
|---|---|
| date | Sun, 09 Mar 2008 20:15:59 +0000 |
| parents | 107ccd98fa12 |
| children | 8259d0d8e107 |
comparison
equal
deleted
inserted
replaced
| 92685:387ed7be028f | 92686:c8be70dde05c |
|---|---|
| 946 (progn | 946 (progn |
| 947 ;; Found the end of the document! Wheee! | 947 ;; Found the end of the document! Wheee! |
| 948 (url-http-debug "Saw end of stream chunk!") | 948 (url-http-debug "Saw end of stream chunk!") |
| 949 (setq read-next-chunk nil) | 949 (setq read-next-chunk nil) |
| 950 (url-display-percentage nil nil) | 950 (url-display-percentage nil nil) |
| 951 (goto-char (match-end 1)) | 951 ;; Every chunk, even the last 0-length one, is |
| 952 ;; terminated by CRLF. Skip it. | |
| 953 (when (looking-at "\r?\n") | |
| 954 (url-http-debug "Removing terminator of last chunk") | |
| 955 (delete-region (match-beginning 0) (match-end 0))) | |
| 952 (if (re-search-forward "^\r*$" nil t) | 956 (if (re-search-forward "^\r*$" nil t) |
| 953 (url-http-debug "Saw end of trailers...")) | 957 (url-http-debug "Saw end of trailers...")) |
| 954 (if (url-http-parse-headers) | 958 (if (url-http-parse-headers) |
| 955 (url-http-activate-callback)))))))))) | 959 (url-http-activate-callback)))))))))) |
| 956 | 960 |