emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r101831: url-http.el (url-http-end-of


From: Lars Magne Ingebrigtsen
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r101831: url-http.el (url-http-end-of-document-sentinel): Protect against the
Date: Thu, 07 Oct 2010 13:40:42 +0200
User-agent: Bazaar (2.0.3)

------------------------------------------------------------
revno: 101831
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Thu 2010-10-07 13:40:42 +0200
message:
  url-http.el (url-http-end-of-document-sentinel): Protect against the
  process buffer being killed.
modified:
  lisp/url/ChangeLog
  lisp/url/url-http.el
=== modified file 'lisp/url/ChangeLog'
--- a/lisp/url/ChangeLog        2010-10-04 19:34:35 +0000
+++ b/lisp/url/ChangeLog        2010-10-07 11:40:42 +0000
@@ -1,3 +1,8 @@
+2010-10-07  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * url-http.el (url-http-end-of-document-sentinel): Protect against
+       the process buffer being killed.
+
 2010-10-04  Lars Magne Ingebrigtsen  <address@hidden>
 
        * url-http.el (url-http-wait-for-headers-change-function): Protect

=== modified file 'lisp/url/url-http.el'
--- a/lisp/url/url-http.el      2010-10-04 19:34:35 +0000
+++ b/lisp/url/url-http.el      2010-10-07 11:40:42 +0000
@@ -874,13 +874,14 @@
   (url-http-debug "url-http-end-of-document-sentinel in buffer (%s)"
                  (process-buffer proc))
   (url-http-idle-sentinel proc why)
-  (with-current-buffer (process-buffer proc)
-    (goto-char (point-min))
-    (if (not (looking-at "HTTP/"))
-       ;; HTTP/0.9 just gets passed back no matter what
-       (url-http-activate-callback)
-      (if (url-http-parse-headers)
-         (url-http-activate-callback)))))
+  (when (buffer-name (process-buffer proc))
+    (with-current-buffer (process-buffer proc)
+      (goto-char (point-min))
+      (if (not (looking-at "HTTP/"))
+         ;; HTTP/0.9 just gets passed back no matter what
+         (url-http-activate-callback)
+       (if (url-http-parse-headers)
+           (url-http-activate-callback))))))
 
 (defun url-http-simple-after-change-function (st nd length)
   ;; Function used when we do NOT know how long the document is going to be


reply via email to

[Prev in Thread] Current Thread [Next in Thread]