diff options
| -rw-r--r-- | lisp/url/url-cookie.el | 2 | ||||
| -rw-r--r-- | lisp/url/url-http.el | 12 | ||||
| -rw-r--r-- | 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 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. |