From 1a9c959bb2a459db4212926e62e0d9ce5e83bdc6 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 8 Mar 2004 21:47:59 +0000 Subject: [PATCH] * find-dired.el (find-dired): Call `shell-command' instead of `start-process-shell-command'. By this, Tramp takes over handling of remote directories. --- lisp/ChangeLog | 6 ++++++ lisp/find-dired.el | 5 +++-- 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 + + * 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 * cus-edit.el (fill) : 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. -- 2.39.5