Commit 1a9c959b authored by Michael Albinus's avatar Michael Albinus
Browse files

* find-dired.el (find-dired): Call `shell-command' instead of

`start-process-shell-command'.  By this, Tramp takes over
handling of remote directories.
parent d8a8cbe2
2004-03-08 Michael Albinus <Michael.Albinus@alcatel.de>
* find-dired.el (find-dired): Call `shell-command' instead of
`start-process-shell-command'. By this, Tramp takes over
handling of remote directories.
2004-03-07 Stefan Monnier <monnier@iro.umontreal.ca>
* cus-edit.el (fill) <defgroup>: Move to fill.el.
......
......@@ -121,6 +121,8 @@ as the final argument."
""
(concat "\\( " args " \\) "))
(car find-ls-option)))
;; Start the find process.
(shell-command (concat args "&") (current-buffer))
;; The next statement will bomb in classic dired (no optional arg allowed)
(dired-mode dir (cdr find-ls-option))
(let ((map (make-sparse-keymap)))
......@@ -149,8 +151,7 @@ as the final argument."
;; ``wildcard'' line.
(insert " " args "\n")
(setq buffer-read-only t)
;; Start the find process.
(let ((proc (start-process-shell-command find-dired-find-program (current-buffer) args)))
(let ((proc (get-buffer-process (current-buffer))))
(set-process-filter proc (function find-dired-filter))
(set-process-sentinel proc (function find-dired-sentinel))
;; Initialize the process marker; it is used by the filter.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment