diff options
| author | Michael Albinus | 2023-07-31 17:49:21 +0200 |
|---|---|---|
| committer | Michael Albinus | 2023-07-31 17:49:21 +0200 |
| commit | 7bbd7cae0748958a623f23637b95a6fc9debb8b7 (patch) | |
| tree | 12535d4c5f5d659f62b14bd989c813686e24f4ac | |
| parent | c4a8572025e5eb7c2f8813dd647211e8870883f8 (diff) | |
| download | emacs-7bbd7cae0748958a623f23637b95a6fc9debb8b7.tar.gz 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]." | |||
| 244 | (erase-buffer) | 244 | (erase-buffer) |
| 245 | (setq default-directory dir) | 245 | (setq default-directory dir) |
| 246 | ;; Start the find process. | 246 | ;; Start the find process. |
| 247 | (shell-command (concat command "&") (current-buffer)) | 247 | (let ((proc (start-file-process-shell-command |
| 248 | (let ((proc (get-buffer-process (current-buffer)))) | 248 | (buffer-name) (current-buffer) command))) |
| 249 | ;; Initialize the process marker; it is used by the filter. | 249 | ;; Initialize the process marker; it is used by the filter. |
| 250 | (move-marker (process-mark proc) (point) (current-buffer)) | 250 | (move-marker (process-mark proc) (point) (current-buffer)) |
| 251 | (set-process-filter proc #'find-dired-filter) | 251 | (set-process-filter proc #'find-dired-filter) |