summaryrefslogtreecommitdiff
path: root/lisp/url/url-http.el
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2017-09-30 16:33:30 +0300
committerEli Zaretskii <eliz@gnu.org>2017-09-30 16:33:30 +0300
commita4f75188173e7ce1ab4b3c11ba091f20af69d995 (patch)
tree8190815a8a1f6ebea31df0346e868ecb3309cfaa /lisp/url/url-http.el
parent4a755ed42158b6a165bfd689e2d974d0ccda7530 (diff)
downloademacs-a4f75188173e7ce1ab4b3c11ba091f20af69d995.tar.gz
Fix url-http use of url-current-object
* lisp/url/url-http.el (url-http): Bind url-current-object before calling url-http-find-free-connection. (Bug#28515)
Diffstat (limited to 'lisp/url/url-http.el')
-rw-r--r--lisp/url/url-http.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 9e8c58b1cd4..51f158e5c21 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -1249,6 +1249,9 @@ The return value of this function is the retrieval buffer."
(nsm-noninteractive (or url-request-noninteractive
(and (boundp 'url-http-noninteractive)
url-http-noninteractive)))
+ ;; The following binding is needed in url-open-stream, which
+ ;; is called from url-http-find-free-connection.
+ (url-current-object url)
(connection (url-http-find-free-connection (url-host url)
(url-port url)
gateway-method))