diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2023-07-31 17:49:21 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2023-07-31 17:49:21 +0200 |
| commit | 7bbd7cae0748958a623f23637b95a6fc9debb8b7 (patch) | |
| tree | 12535d4c5f5d659f62b14bd989c813686e24f4ac | |
| parent | c4a8572025e5eb7c2f8813dd647211e8870883f8 (diff) | |
| download | emacs-7bbd7cae0748958a623f23637b95a6fc9debb8b7.tar.gz emacs-7bbd7cae0748958a623f23637b95a6fc9debb8b7.tar.bz2 emacs-7bbd7cae0748958a623f23637b95a6fc9debb8b7.zip | |
Fix find-dired-with-command for remote directories
* lisp/find-dired.el (find-dired-with-command):
Use `start-file-process-shell-command'. (Bug#64897)
| -rw-r--r-- | lisp/find-dired.el | 4 |
1 files 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) |