mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-02 20:16:25 +00:00
Code Issues Releases Activity

url-http.el (url-http-end-of-document-sentinel): Protect against the

Browse Source 
process buffer being killed.
This commit is contained in:
Lars Magne Ingebrigtsen 2010-10-07 13:40:42 +02:00
parent 29c72a6e43
commit b0e0b216e5
2 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/url/ChangeLog
View File

@ -1,3 +1,8 @@
2010-10-07 Lars Magne Ingebrigtsen <larsi@gnus.org>
* url-http.el (url-http-end-of-document-sentinel): Protect against
the process buffer being killed.
2010-10-04 Lars Magne Ingebrigtsen <larsi@gnus.org>
* url-http.el (url-http-wait-for-headers-change-function): Protect

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

@ -874,13 +874,14 @@ should be shown to the user."
(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