From: Stefan Kangas <stefan@marxist.se>
Date: Sun, 6 Dec 2020 07:50:51 +0000 (+0100)
Subject: Prefer setq-local in url/*.el
X-Git-Tag: emacs-28.0.90~4908
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7c113c344e19faece88e6be1bf55376d6f35cfb2;p=emacs.git

Prefer setq-local in url/*.el

* 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.
---

diff --git a/lisp/url/url-cookie.el b/lisp/url/url-cookie.el
index bee3a6b85e4..e185a7914f3 100644
--- a/lisp/url/url-cookie.el
+++ b/lisp/url/url-cookie.el
@@ -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))))
 
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 75330d33277..1271b9b96f5 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -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.
diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el
index 0a7e7e205e0..bd9543bbe75 100644
--- a/lisp/url/url-util.el
+++ b/lisp/url/url-util.el
@@ -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.