376 |
(set (make-local-variable 'dired-directory) "/") |
(set (make-local-variable 'dired-directory) "/") |
377 |
(set (make-local-variable 'dired-subdir-switches) locate-ls-subdir-switches) |
(set (make-local-variable 'dired-subdir-switches) locate-ls-subdir-switches) |
378 |
(setq dired-switches-alist nil) |
(setq dired-switches-alist nil) |
379 |
(make-local-variable 'dired-move-to-filename-regexp) |
(make-local-variable 'directory-listing-before-filename-regexp) |
380 |
;; This should support both Unix and Windoze style names |
;; This should support both Unix and Windoze style names |
381 |
(setq dired-move-to-filename-regexp |
(setq directory-listing-before-filename-regexp |
382 |
(concat "^." |
(concat "^." |
383 |
(make-string (1- locate-filename-indentation) ?\ ) |
(make-string (1- locate-filename-indentation) ?\ ) |
384 |
"\\(/\\|[A-Za-z]:\\)\\|" |
"\\(/\\|[A-Za-z]:\\)\\|" |
385 |
(default-value 'dired-move-to-filename-regexp))) |
(default-value 'directory-listing-before-filename-regexp))) |
386 |
(make-local-variable 'dired-actual-switches) |
(make-local-variable 'dired-actual-switches) |
387 |
(setq dired-actual-switches "") |
(setq dired-actual-switches "") |
388 |
(make-local-variable 'dired-permission-flags-regexp) |
(make-local-variable 'dired-permission-flags-regexp) |