mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

url-retrieve-synchronously: Fix timeout when connection hangs

Browse source 
* lisp/url/url.el (url-retrieve-synchronously):
Set url-asynchronous to t when TIMEOUT is non-nil (bug#71295).
This commit is contained in:
Dmitry Gutov 2024-06-09 00:52:26 +03:00
parent e9a0256a55
commit e2527dd9fd
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/url/url.el
View file

@ -235,7 +235,8 @@ If INHIBIT-COOKIES is non-nil, refuse to store cookies. If
TIMEOUT is passed, it should be a number that says (in seconds)
how long to wait for a response before giving up."
(url-do-setup)
(let* (url-asynchronous
(let* (;; Ensure we can stop during connection setup (bug#71295).
(url-asynchronous (not (null timeout)))
data-buffer
(callback (lambda (&rest _args)
(setq data-buffer (current-buffer))