/[emacs]/emacs/lisp/find-dired.el
ViewVC logotype

Diff of /emacs/lisp/find-dired.el

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

revision 1.47 by albinus, Mon Mar 8 21:47:59 2004 UTC revision 1.48 by teirllm, Sun Jun 6 02:30:21 2004 UTC
# Line 55  LS-SWITCHES is a list of `ls' switches t Line 55  LS-SWITCHES is a list of `ls' switches t
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)
# Line 89  as the final argument." Line 99  as the final argument."
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))
# Line 115  as the final argument." Line 124  as the final argument."
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                             ""                             ""
# Line 143  as the final argument." Line 152  as the final argument."
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.
# Line 267  Thus ARG can also contain additional gre Line 277  Thus ARG can also contain additional gre
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    

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

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