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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 672ca187c0993c70988f1b4b7fea4a933abb4e81..5927438748fda610c0d352a6006452f25ab6390e 100644 (file)
--- 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 9407afc3862cb77324a852df74e7b442905ee615..5bef4d6bf3a9cbe4bccd6172e29ddf517abee15e 100644 (file)
--- 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.