procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Prefer setq-local in url/*.el

Browse source 
* lisp/url/url-cookie.el (url-cookie-write-file):
* lisp/url/url-http.el (url-http-parse-headers):
* lisp/url/url-util.el (url-extract-mime-headers): Prefer setq-local.
This commit is contained in:
Stefan Kangas 2020-12-06 08:50:51 +01:00
parent fc54c83518
commit 7c113c344e
3 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/url/url-cookie.el
View file

@ -162,7 +162,7 @@ i.e. 1970-1-1) are loaded as expiring one year from now instead."
";; version-control: never\n"
";; no-byte-compile: t\n"
";; End:\n")
(set (make-local-variable 'version-control) 'never)
(setq-local version-control 'never)
(write-file fname))
(setq url-cookies-changed-since-last-save nil))))

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

@ -741,12 +741,12 @@ should be shown to the user."
;; without changing the API. Instead url-retrieve should
;; either simply not return the "destination" buffer, or it
;; should take an optional `dest-buf' argument.
(set (make-local-variable 'url-redirect-buffer)
(url-retrieve-internal
redirect-uri url-callback-function
url-callback-arguments
(url-silent url-current-object)
(not (url-use-cookies url-current-object))))
(setq-local url-redirect-buffer
(url-retrieve-internal
redirect-uri url-callback-function
url-callback-arguments
(url-silent url-current-object)
(not (url-use-cookies url-current-object))))
(url-mark-buffer-as-dead buffer))
;; We hit url-max-redirections, so issue an error and
;; stop redirecting.

4
lisp/url/url-util.el
View file

@ -574,8 +574,8 @@ Has a preference for looking backward when not directly on a symbol."
(save-excursion
(goto-char (point-min))
(unless url-current-mime-headers
(set (make-local-variable 'url-current-mime-headers)
(mail-header-extract)))))
(setq-local url-current-mime-headers
(mail-header-extract)))))
(defun url-make-private-file (file)
"Make FILE only readable and writable by the current user.