From 7bbd7cae0748958a623f23637b95a6fc9debb8b7 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 31 Jul 2023 17:49:21 +0200 Subject: [PATCH] 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) -- 2.39.2