Mercurial > emacs
changeset 54316:0b81a282eca3
* find-dired.el (find-dired): Call `shell-command' instead of
`start-process-shell-command'. By this, Tramp takes over
handling of remote directories.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Mon, 08 Mar 2004 21:47:59 +0000 |
| parents | cad9b29a5224 |
| children | 5bb4ac4ec8d7 |
| files | lisp/ChangeLog lisp/find-dired.el |
| diffstat | 2 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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.