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/wdired.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/wdired.el')
| -rw-r--r-- | lisp/wdired.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/wdired.el b/lisp/wdired.el index ebe19613943..b7dd4ee9496 100644 --- a/lisp/wdired.el +++ b/lisp/wdired.el @@ -242,12 +242,12 @@ See `wdired-mode'." (interactive) (unless (derived-mode-p 'dired-mode) (error "Not a Dired buffer")) - (set (make-local-variable 'wdired-old-content) - (buffer-substring (point-min) (point-max))) - (set (make-local-variable 'wdired-old-marks) - (dired-remember-marks (point-min) (point-max))) - (set (make-local-variable 'wdired-old-point) (point)) - (set (make-local-variable 'query-replace-skip-read-only) t) + (setq-local wdired-old-content + (buffer-substring (point-min) (point-max))) + (setq-local wdired-old-marks + (dired-remember-marks (point-min) (point-max))) + (setq-local wdired-old-point (point)) + (setq-local query-replace-skip-read-only t) (add-function :after-while (local 'isearch-filter-predicate) #'wdired-isearch-filter-read-only) (use-local-map wdired-mode-map) @@ -390,7 +390,7 @@ non-nil means return old filename." (dired-advertise) (remove-hook 'kill-buffer-hook 'wdired-check-kill-buffer t) (remove-hook 'after-change-functions 'wdired--restore-properties t) - (set (make-local-variable 'revert-buffer-function) 'dired-revert)) + (setq-local revert-buffer-function 'dired-revert)) (defun wdired-abort-changes () @@ -834,7 +834,7 @@ Like original function but it skips read-only words." ;; original name and permissions as a property (defun wdired-preprocess-perms () (let ((inhibit-read-only t)) - (set (make-local-variable 'wdired-col-perm) nil) + (setq-local wdired-col-perm nil) (save-excursion (goto-char (point-min)) (while (not (eobp)) |