mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-12 09:28:24 +00:00
Code Issues Releases Activity

Fix find-dired-with-command for remote directories

Browse Source 
* 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
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/find-dired.el
View File

@ -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)