From: Stefan Kangas <stefan@marxist.se>
Date: Tue, 8 Dec 2020 07:25:19 +0000 (+0100)
Subject: * lisp/locate.el (locate, locate-mode): Prefer setq-local.
X-Git-Tag: emacs-28.0.90~4866
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=07b317cb4cd31686247732f7e9e51c4370009a0e;p=emacs.git

* lisp/locate.el (locate, locate-mode): Prefer setq-local.
---

diff --git a/lisp/locate.el b/lisp/locate.el
index 44a67ab4840..14fd2608034 100644
--- a/lisp/locate.el
+++ b/lisp/locate.el
@@ -319,9 +319,9 @@ then `locate-post-command-hook'."
 	(erase-buffer)
 
 	(setq locate-current-filter filter)
-	(set (make-local-variable 'locate-local-search) search-string)
-	(set (make-local-variable 'locate-local-filter) filter)
-	(set (make-local-variable 'locate-local-prompt) run-locate-command)
+        (setq-local locate-local-search search-string)
+        (setq-local locate-local-filter filter)
+        (setq-local locate-local-prompt run-locate-command)
 
 	(if run-locate-command
 	    (shell-command search-string locate-buffer-name)
@@ -467,8 +467,8 @@ do not work in subdirectories.
 	buffer-read-only    t)
   (add-to-invisibility-spec '(dired . t))
   (dired-alist-add-1 default-directory (point-min-marker))
-  (set (make-local-variable 'dired-directory) "/")
-  (set (make-local-variable 'dired-subdir-switches) locate-ls-subdir-switches)
+  (setq-local dired-directory "/")
+  (setq-local dired-subdir-switches locate-ls-subdir-switches)
   (setq dired-switches-alist nil)
   ;; This should support both Unix and Windoze style names
   (setq-local directory-listing-before-filename-regexp