Propagate asynchronousness correctly when using proxies in url.el
* lisp/url/url.el (url-retrieve-internal): Propagate asynchronousness correctly when using a proxy (bug#49570). Copyright-paperwork-exempt: yes
This commit is contained in:
parent
8f51194aa5
commit
039d00326e
1 changed files with 4 additions and 3 deletions
|
@ -208,9 +208,10 @@ URL-encoded before it's used."
|
|||
(url-find-proxy-for-url url (url-host url))))
|
||||
(buffer nil)
|
||||
(asynch (url-scheme-get-property (url-type url) 'asynchronous-p)))
|
||||
(if url-using-proxy
|
||||
(setq asynch t
|
||||
loader #'url-proxy))
|
||||
(when url-using-proxy
|
||||
(setf asynch t
|
||||
loader #'url-proxy
|
||||
(url-asynchronous url) t))
|
||||
(if asynch
|
||||
(let ((url-current-object url))
|
||||
(setq buffer (funcall loader url callback cbargs)))
|
||||
|
|
Loading…
Add table
Reference in a new issue