master 7c113c3 1/4: Prefer setq-local in url/*.el

[Stefan Kangas]

branch: master
commit 7c113c344e19faece88e6be1bf55376d6f35cfb2
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    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.
---
 lisp/url/url-cookie.el |  2 +-
 lisp/url/url-http.el   | 12 ++++++------
 lisp/url/url-util.el   |  4 ++--
 3 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/lisp/url/url-cookie.el b/lisp/url/url-cookie.el
index bee3a6b..e185a79 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 75330d3..1271b9b 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 0a7e7e2..bd9543b 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.