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:
parent
c4a8572025
commit
7bbd7cae07
1 changed files with 2 additions and 2 deletions
|
@ -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)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue