55 |
:group 'find-dired) |
:group 'find-dired) |
56 |
|
|
57 |
;;;###autoload |
;;;###autoload |
58 |
|
(defcustom find-ls-subdir-switches "-al" |
59 |
|
"`ls' switches for inserting subdirectories in `*Find*' buffers. |
60 |
|
This should contain the \"-l\" switch. |
61 |
|
Use the \"-F\" or \"-b\" switches if and only if you also use |
62 |
|
them for `find-ls-option'." |
63 |
|
:type 'string |
64 |
|
:group 'find-dired |
65 |
|
:version "21.4") |
66 |
|
|
67 |
|
;;;###autoload |
68 |
(defcustom find-grep-options |
(defcustom find-grep-options |
69 |
(if (or (eq system-type 'berkeley-unix) |
(if (or (eq system-type 'berkeley-unix) |
70 |
(string-match "solaris2" system-configuration) |
(string-match "solaris2" system-configuration) |
99 |
(let ((dired-buffers dired-buffers)) |
(let ((dired-buffers dired-buffers)) |
100 |
;; Expand DIR ("" means default-directory), and make sure it has a |
;; Expand DIR ("" means default-directory), and make sure it has a |
101 |
;; trailing slash. |
;; trailing slash. |
102 |
(setq dir (abbreviate-file-name |
(setq dir (file-name-as-directory (expand-file-name dir))) |
|
(file-name-as-directory (expand-file-name dir)))) |
|
103 |
;; Check that it's really a directory. |
;; Check that it's really a directory. |
104 |
(or (file-directory-p dir) |
(or (file-directory-p dir) |
105 |
(error "find-dired needs a directory: %s" dir)) |
(error "find-dired needs a directory: %s" dir)) |
124 |
(setq buffer-read-only nil) |
(setq buffer-read-only nil) |
125 |
(erase-buffer) |
(erase-buffer) |
126 |
(setq default-directory dir |
(setq default-directory dir |
127 |
find-args args ; save for next interactive call |
find-args args ; save for next interactive call |
128 |
args (concat find-dired-find-program " . " |
args (concat find-dired-find-program " . " |
129 |
(if (string= args "") |
(if (string= args "") |
130 |
"" |
"" |
152 |
;; this does no harm) |
;; this does no harm) |
153 |
(set (make-local-variable 'dired-subdir-alist) |
(set (make-local-variable 'dired-subdir-alist) |
154 |
(list (cons default-directory (point-min-marker))))) |
(list (cons default-directory (point-min-marker))))) |
155 |
|
(set (make-local-variable 'dired-subdir-switches) find-ls-subdir-switches) |
156 |
(setq buffer-read-only nil) |
(setq buffer-read-only nil) |
157 |
;; Subdir headlerline must come first because the first marker in |
;; Subdir headlerline must come first because the first marker in |
158 |
;; subdir-alist points there. |
;; subdir-alist points there. |
277 |
(delete-process proc) |
(delete-process proc) |
278 |
(force-mode-line-update))) |
(force-mode-line-update))) |
279 |
(message "find-dired %s finished." (current-buffer)))))) |
(message "find-dired %s finished." (current-buffer)))))) |
280 |
|
|
281 |
|
|
282 |
(provide 'find-dired) |
(provide 'find-dired) |
283 |
|
|