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.

3 files changed, 9 insertions, 9 deletions

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.