martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(url-http-wait-for-headers-change-function): Don't move if the callback function has moved point.

Browse Source
This commit is contained in:
Lars Ingebrigtsen
2011-02-02 22:22:07 -08:00
parent 011f86c70f
commit b301d17489
2 changed files with 13 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/url/ChangeLog
View File

@@ -1,3 +1,8 @@
2011-02-03 Lars Ingebrigtsen <larsi@gnus.org>
* url-http.el (url-http-wait-for-headers-change-function): Don't
move if the callback function has moved point.
2010-12-16 Miles Bader <Miles Bader <miles@gnu.org>>
* url-cookie.el: Require 'cl when compiling -- it's necessary for

14
lisp/url/url-http.el
View File

@@ -1034,10 +1034,11 @@ the end of the document."
url-http-response-status))
(url-http-debug "url-http-wait-for-headers-change-function (%s)"
(buffer-name))
(when (not (bobp))
(let ((end-of-headers nil)
(old-http nil)
(content-length nil))
(let ((end-of-headers nil)
(old-http nil)
(process-buffer (current-buffer))
(content-length nil))
(when (not (bobp))
(goto-char (point-min))
(if (and (looking-at ".*\n") ; have one line at least
(not (looking-at "^HTTP/[1-9]\\.[0-9]")))
@@ -1151,8 +1152,9 @@ the end of the document."
'url-http-simple-after-change-function)))))
;; We are still at the beginning of the buffer... must just be
;; waiting for a response.
(url-http-debug "Spinning waiting for headers..."))
(goto-char (point-max)))
(url-http-debug "Spinning waiting for headers...")
(when (eq process-buffer (current-buffer))
(goto-char (point-max)))))
;;;###autoload
(defun url-http (url callback cbargs)