diff options
author | Karl Heuer <[email protected]> | 1996-02-21 21:32:04 +0000 |
---|---|---|
committer | Karl Heuer <[email protected]> | 1996-02-21 21:32:04 +0000 |
commit | cd69d9dd0f49736af3a9cc1df1f375d7c0cf6917 (patch) | |
tree | ce2c1f9985f6073656513cb425c3aa441cc8a269 /lisp/dired-aux.el | |
parent | 1065ecf9d8e082c43515827c661e587e05e0de9d (diff) |
(dired-call-process): Call file name handler.
Diffstat (limited to 'lisp/dired-aux.el')
-rw-r--r-- | lisp/dired-aux.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 5f6fdc542d..0e3b0f26f1 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -400,7 +400,13 @@ output files usually are created there instead of in a subdir." (defun dired-call-process (program discard &rest arguments) ; "Run PROGRAM with output to current buffer unless DISCARD is t. ;Remaining arguments are strings passed as command arguments to PROGRAM." - (apply 'call-process program nil (not discard) nil arguments)) + ;; Look for a handler for default-directory in case it is a remote file name. + (let ((handler + (find-file-name-handler (directory-file-name default-directory) + 'dired-call-process))) + (if handler (apply handler 'dired-call-process + program discard arguments) + (apply 'call-process program nil (not discard) nil arguments)))) (defun dired-check-process (msg program &rest arguments) ; "Display MSG while running PROGRAM, and check for output. |