/[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.43 by rms, Thu Nov 21 17:29:22 2002 UTC revision 1.44 by lektu, Tue Feb 4 11:19:14 2003 UTC
# Line 109  as the final argument." Line 109  as the final argument."
109                    (delete-process find))                    (delete-process find))
110                (error nil))                (error nil))
111            (error "Cannot have two processes in `%s' at once" (buffer-name)))))            (error "Cannot have two processes in `%s' at once" (buffer-name)))))
112          
113      (widen)      (widen)
114      (kill-all-local-variables)      (kill-all-local-variables)
115      (setq buffer-read-only nil)      (setq buffer-read-only nil)
# Line 134  as the final argument." Line 134  as the final argument."
134          ;; and later)          ;; and later)
135          (dired-simple-subdir-alist)          (dired-simple-subdir-alist)
136        ;; else we have an ancient tree dired (or classic dired, where        ;; else we have an ancient tree dired (or classic dired, where
137        ;; this does no harm)        ;; this does no harm)
138        (set (make-local-variable 'dired-subdir-alist)        (set (make-local-variable 'dired-subdir-alist)
139             (list (cons default-directory (point-min-marker)))))             (list (cons default-directory (point-min-marker)))))
140      (setq buffer-read-only nil)      (setq buffer-read-only nil)
# Line 142  as the final argument." Line 142  as the final argument."
142      ;; subdir-alist points there.      ;; subdir-alist points there.
143      (insert "  " dir ":\n")      (insert "  " dir ":\n")
144      ;; Make second line a ``find'' line in analogy to the ``total'' or      ;; Make second line a ``find'' line in analogy to the ``total'' or
145      ;; ``wildcard'' line.      ;; ``wildcard'' line.
146      (insert "  " args "\n")      (insert "  " args "\n")
147      ;; Start the find process.      ;; Start the find process.
148      (let ((proc (start-process-shell-command find-dired-find-program (current-buffer) args)))      (let ((proc (start-process-shell-command find-dired-find-program (current-buffer) args)))

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

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