mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(url-http-find-free-connection): Handle url-open-stream returning nil.

Browse source
This commit is contained in:
Magnus Henoch 2006-10-12 19:59:58 +00:00
parent 431feaf6f4
commit dfea17e083
2 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/url/ChangeLog
View file

@ -1,3 +1,8 @@
2006-10-12 Magnus Henoch <mange@freemail.hu>
* url-http.el (url-http-find-free-connection): Handle
url-open-stream returning nil.
2006-10-11 Magnus Henoch <mange@freemail.hu>
* url-https.el: Remove (clashes with url-http on 8+3 systems).

6
lisp/url/url-http.el
View file

@ -123,8 +123,10 @@ request.")
;; like authentication. But we use another buffer afterwards.
(unwind-protect
(let ((proc (url-open-stream host buf host port)))
;; Drop the temp buffer link before killing the buffer.
(set-process-buffer proc nil)
;; url-open-stream might return nil.
(when (processp proc)
;; Drop the temp buffer link before killing the buffer.
(set-process-buffer proc nil))
proc)
(kill-buffer buf)))))))