Fix find-dired-with-command for remote directories

* lisp/find-dired.el (find-dired-with-command):
Use `start-file-process-shell-command'.  (Bug#64897)
This commit is contained in:
Michael Albinus 2023-07-31 17:49:21 +02:00
parent c4a8572025
commit 7bbd7cae07

View file

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