master 07b317c 3/9: * lisp/locate.el (locate, locate-mode): Prefer setq-local.

[Stefan Kangas]

branch: master
commit 07b317cb4cd31686247732f7e9e51c4370009a0e
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    * lisp/locate.el (locate, locate-mode): Prefer setq-local.
---
 lisp/locate.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/locate.el b/lisp/locate.el
index 44a67ab..14fd260 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