/[emacs]/emacs/lisp/locate.el
ViewVC logotype

Diff of /emacs/lisp/locate.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.30 by rfrancoise, Sat Sep 24 13:44:02 2005 UTC revision 1.31 by albinus, Sun Oct 23 12:17:27 2005 UTC
# Line 376  do not work in subdirectories. Line 376  do not work in subdirectories.
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)

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26