Mercurial > emacs
changeset 73347:2530d72a03db
(url-http-find-free-connection): Handle url-open-stream returning nil.
| author | Magnus Henoch <mange@freemail.hu> |
|---|---|
| date | Thu, 12 Oct 2006 19:59:58 +0000 |
| parents | ba22be0026c7 |
| children | c51c8fa9c1f1 |
| files | lisp/url/ChangeLog lisp/url/url-http.el |
| diffstat | 2 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/url/ChangeLog Thu Oct 12 19:22:38 2006 +0000 +++ b/lisp/url/ChangeLog Thu Oct 12 19:59:58 2006 +0000 @@ -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).
--- a/lisp/url/url-http.el Thu Oct 12 19:22:38 2006 +0000 +++ b/lisp/url/url-http.el Thu Oct 12 19:59:58 2006 +0000 @@ -123,8 +123,10 @@ ;; 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)))))))