From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 31 Jul 2023 15:49:21 +0000 (+0200)
Subject: Fix find-dired-with-command for remote directories
X-Git-Tag: emacs-29.1.90~270
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7bbd7cae0748958a623f23637b95a6fc9debb8b7;p=emacs.git

Fix find-dired-with-command for remote directories

* lisp/find-dired.el (find-dired-with-command):
Use `start-file-process-shell-command'.  (Bug#64897)
---

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)