diff options
| author | Stefan Kangas <stefan@marxist.se> | 2020-12-09 09:18:04 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2020-12-09 11:58:37 +0100 |
| commit | 4489531b1ed87111f0848c81c93a7e2c6bcc1323 (patch) | |
| tree | 1bb7e4ab6e839fb11b39341e6127afca222a5c6e /lisp/dired-x.el | |
| parent | be4d6b043fa79e2d9a9911ca1c48bdcc84e3bba9 (diff) | |
| download | emacs-4489531b1ed87111f0848c81c93a7e2c6bcc1323.tar.gz emacs-4489531b1ed87111f0848c81c93a7e2c6bcc1323.tar.bz2 emacs-4489531b1ed87111f0848c81c93a7e2c6bcc1323.zip | |
Prefer setq-local in dired extensions
* lisp/dired-aux.el (dired-diff, dired-compare-directories)
(dired-do-create-files, dired-isearch-filenames):
* lisp/dired-x.el (dired-virtual, dired-vm):
* lisp/wdired.el (wdired-change-to-wdired-mode)
(wdired-change-to-dired-mode, wdired-preprocess-perms):
Diffstat (limited to 'lisp/dired-x.el')
| -rw-r--r-- | lisp/dired-x.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/dired-x.el b/lisp/dired-x.el index 55077e71882..75e4f466246 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -636,7 +636,7 @@ you can relist single subdirs using \\[dired-do-redisplay]." (dired-mode dirname (or switches dired-listing-switches)) (setq mode-name "Virtual Dired" revert-buffer-function 'dired-virtual-revert) - (set (make-local-variable 'dired-subdir-alist) nil) + (setq-local dired-subdir-alist nil) (dired-build-subdir-alist) (goto-char (point-min)) (dired-initial-position dirname)) @@ -1226,7 +1226,7 @@ Otherwise obeys the value of `dired-vm-read-only-folders'." (and dired-vm-read-only-folders (not (file-writable-p fil))))) ;; So that pressing `v' inside VM does prompt within current directory: - (set (make-local-variable 'vm-folder-directory) dir))) + (setq-local vm-folder-directory dir))) (defun dired-rmail () "Run RMAIL on this file." |