[Emacs-diffs] /srv/bzr/emacs/trunk r103089: (url-http-wait-for-headers-change-function): Don't move if the callback function has moved point.

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 103089
committer: Lars Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Wed 2011-02-02 22:22:07 -0800
message:
  (url-http-wait-for-headers-change-function): Don't move if the callback 
function has moved point.
modified:
  lisp/url/ChangeLog
  lisp/url/url-http.el

=== modified file 'lisp/url/ChangeLog'
--- a/lisp/url/ChangeLog        2011-01-25 04:08:28 +0000
+++ b/lisp/url/ChangeLog        2011-02-03 06:22:07 +0000
@@ -1,3 +1,8 @@
+2011-02-03  Lars Ingebrigtsen  <address@hidden>
+
+       * 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 <address@hidden>>
 
        * url-cookie.el: Require 'cl when compiling -- it's necessary for

=== modified file 'lisp/url/url-http.el'
--- a/lisp/url/url-http.el      2011-01-25 04:08:28 +0000
+++ b/lisp/url/url-http.el      2011-02-03 06:22:07 +0000
@@ -1034,10 +1034,11 @@
                    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 @@
                '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)