mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Emulate dynamic binding of 'url-max-redirections'

Browse source 
* lisp/url/url-http.el (url-http): Make 'url-max-redirections'
buffer-local in request buffers, to make dynamic binding over
'url-retrieve' work as expected.

(Bug#79186)
This commit is contained in:
Peder O. Klingenberg 2025-08-06 21:55:38 +02:00 • committed by Eli Zaretskii
parent ae56edbbf8
commit 3fb8ffe61e
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1372,7 +1372,8 @@ The return value of this function is the retrieval buffer."
(httpver url-http-version) (httpver url-http-version)
(httpkeepalive url-http-attempt-keepalives) (httpkeepalive url-http-attempt-keepalives)
(user-agent url-user-agent) (user-agent url-user-agent)
(privacy-level url-privacy-level)) (privacy-level url-privacy-level)
(max-redirections url-max-redirections))
(if (not connection) (if (not connection)
;; Failed to open the connection for some reason ;; Failed to open the connection for some reason
(progn (progn
@ -1418,6 +1419,7 @@ The return value of this function is the retrieval buffer."
url-http-extensions-header url-http-extensions-header
url-user-agent url-user-agent
url-privacy-level url-privacy-level
url-max-redirections
nsm-noninteractive)) nsm-noninteractive))
(set (make-local-variable var) nil)) (set (make-local-variable var) nil))
@ -1447,6 +1449,7 @@ The return value of this function is the retrieval buffer."
url-http-extensions-header url-extensions-header url-http-extensions-header url-extensions-header
url-user-agent user-agent url-user-agent user-agent
url-privacy-level privacy-level url-privacy-level privacy-level
url-max-redirections max-redirections
nsm-noninteractive noninteractive-p) nsm-noninteractive noninteractive-p)
(set-process-buffer connection buffer) (set-process-buffer connection buffer)