# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1078782479 0
# Node ID 0b81a282eca36b0d7607b72ca284beebce0e1a69
# Parent  cad9b29a5224376bec3959680b273bcfa3c04a9e
* find-dired.el (find-dired): Call `shell-command' instead of
`start-process-shell-command'.  By this, Tramp takes over
handling of remote directories.

diff -r cad9b29a5224 -r 0b81a282eca3 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Mar 08 02:15:05 2004 +0000
+++ b/lisp/ChangeLog	Mon Mar 08 21:47:59 2004 +0000
@@ -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 -r cad9b29a5224 -r 0b81a282eca3 lisp/find-dired.el
--- a/lisp/find-dired.el	Mon Mar 08 02:15:05 2004 +0000
+++ b/lisp/find-dired.el	Mon Mar 08 21:47:59 2004 +0000
@@ -121,6 +121,8 @@
 			   ""
 			 (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 @@
     ;; ``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.