(interactive)
(if (file-exists-p dired-local-variables-file)
(error "Old-style dired-local-variables-file `./%s' found;
-replace it with a dir-locals-file `./%s.el'"
+replace it with a dir-locals-file `./%s'"
dired-local-variables-file
dir-locals-file))
- (if (dir-locals--all-files default-directory)
- (message "File `./%s' already exists."
- (car (dir-locals--all-files default-directory)))
+ (if (file-exists-p dir-locals-file)
+ (message "File `./%s' already exists." dir-locals-file)
(add-dir-local-variable 'dired-mode 'subdirs nil)
(add-dir-local-variable 'dired-mode 'dired-omit-mode t)
;; Run extra-hooks and revert directory.