[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r111798: url-http-wait-for-headers-ch
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r111798: url-http-wait-for-headers-change-function fix for bug#13598 |
Date: |
Fri, 15 Feb 2013 21:05:32 -0500 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 111798
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2013-02-15 21:05:32 -0500
message:
url-http-wait-for-headers-change-function fix for bug#13598
* lisp/url/url-http.el (url-http-wait-for-headers-change-function):
Avoid prematurely finding the end of headers when they arrive line-by-line.
modified:
lisp/url/ChangeLog
lisp/url/url-http.el
=== modified file 'lisp/url/ChangeLog'
--- a/lisp/url/ChangeLog 2013-02-03 16:13:36 +0000
+++ b/lisp/url/ChangeLog 2013-02-16 02:05:32 +0000
@@ -1,3 +1,9 @@
+2013-02-16 Glenn Morris <address@hidden>
+
+ * url-http.el (url-http-wait-for-headers-change-function):
+ Avoid prematurely finding the end of headers when they arrive
+ line-by-line. (Bug#13598)
+
2013-02-03 Stefan Monnier <address@hidden>
* url-cache.el (url-cache-create-filename-using-md5): Don't waste your
=== modified file 'lisp/url/url-http.el'
--- a/lisp/url/url-http.el 2013-01-02 16:13:04 +0000
+++ b/lisp/url/url-http.el 2013-02-16 02:05:32 +0000
@@ -1040,7 +1040,9 @@
(setq end-of-headers t
url-http-end-of-headers 0
old-http t)
- (when (re-search-forward "^\r*$" nil t)
+ ;; Blank line at end of headers.
+ (when (re-search-forward "^\r?\n" nil t)
+ (backward-char 1)
;; Saw the end of the headers
(url-http-debug "Saw end of headers... (%s)" (buffer-name))
(setq url-http-end-of-headers (set-marker (make-marker)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r111798: url-http-wait-for-headers-change-function fix for bug#13598,
Glenn Morris <=