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

`start-process-shell-command'.  By this, Tramp takes over
handling of remote directories.

2 files changed, 9 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 672ca187c09..5927438748f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+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.
diff --git a/lisp/find-dired.el b/lisp/find-dired.el
index 9407afc3862..5bef4d6bf3a 100644
--- a/lisp/find-dired.el
+++ b/lisp/find-dired.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.