diff options
| author | Lars Ingebrigtsen | 2019-05-15 06:59:12 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-05-15 06:59:12 +0200 |
| commit | 15bd081ce608c9ebdd379dccc728618664d458a6 (patch) | |
| tree | 2098b02a6c106ea5132c54189cf1be29af603453 | |
| parent | 4fa6029f7ee30aa3316d6d73db61462730042908 (diff) | |
| download | emacs-15bd081ce608c9ebdd379dccc728618664d458a6.tar.gz emacs-15bd081ce608c9ebdd379dccc728618664d458a6.zip | |
Indent url-http-chunked-encoding-after-change-function
| -rw-r--r-- | lisp/url/url-http.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index 662b6664b13..03b863b69a8 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el | |||
| @@ -1080,7 +1080,7 @@ the end of the document." | |||
| 1080 | (if no-initial-crlf (skip-chars-forward "\r\n")) | 1080 | (if no-initial-crlf (skip-chars-forward "\r\n")) |
| 1081 | (if (not (looking-at regexp)) | 1081 | (if (not (looking-at regexp)) |
| 1082 | (progn | 1082 | (progn |
| 1083 | ;; Must not have received the entirety of the chunk header, | 1083 | ;; Must not have received the entirety of the chunk header, |
| 1084 | ;; need to spin some more. | 1084 | ;; need to spin some more. |
| 1085 | (url-http-debug "Did not see start of chunk @ %d!" (point)) | 1085 | (url-http-debug "Did not see start of chunk @ %d!" (point)) |
| 1086 | (setq read-next-chunk nil)) | 1086 | (setq read-next-chunk nil)) |
| @@ -1099,8 +1099,7 @@ the end of the document." | |||
| 1099 | (or url-http-chunked-start | 1099 | (or url-http-chunked-start |
| 1100 | (make-marker)) | 1100 | (make-marker)) |
| 1101 | (match-end 0))) | 1101 | (match-end 0))) |
| 1102 | ; (if (not url-http-debug) | 1102 | (delete-region (match-beginning 0) (match-end 0)) |
| 1103 | (delete-region (match-beginning 0) (match-end 0));) | ||
| 1104 | (url-http-debug "Saw start of chunk %d (length=%d, start=%d" | 1103 | (url-http-debug "Saw start of chunk %d (length=%d, start=%d" |
| 1105 | url-http-chunked-counter url-http-chunked-length | 1104 | url-http-chunked-counter url-http-chunked-length |
| 1106 | (marker-position url-http-chunked-start)) | 1105 | (marker-position url-http-chunked-start)) |