mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Stefan Kangas 2020-12-08 08:25:19 +01:00
parent 0d6fca3093
commit 07b317cb4c
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/locate.el
View File

@ -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