emacs-29 7bbd7cae074 2/2: Fix find-dired-with-command for remote directories

[Michael Albinus]

branch: emacs-29
commit 7bbd7cae0748958a623f23637b95a6fc9debb8b7
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    Fix find-dired-with-command for remote directories
    
    * lisp/find-dired.el (find-dired-with-command):
    Use `start-file-process-shell-command'.  (Bug#64897)
---
 lisp/find-dired.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/find-dired.el b/lisp/find-dired.el
index af029fb2074..27f4a736e31 100644
--- a/lisp/find-dired.el
+++ b/lisp/find-dired.el
@@ -244,8 +244,8 @@ it finishes, type \\[kill-find]."
     (erase-buffer)
     (setq default-directory dir)
     ;; Start the find process.
-    (shell-command (concat command "&") (current-buffer))
-    (let ((proc (get-buffer-process (current-buffer))))
+    (let ((proc (start-file-process-shell-command
+                 (buffer-name) (current-buffer) command)))
       ;; Initialize the process marker; it is used by the filter.
       (move-marker (process-mark proc) (point) (current-buffer))
       (set-process-filter proc #'find-dired-filter)