Mercurial > emacs
changeset 14635:7a7506ffde31
(dired-call-process): Call file name handler.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 21 Feb 1996 21:32:04 +0000 |
| parents | c7dfe102acc3 |
| children | 2edced5a8756 |
| files | lisp/dired-aux.el |
| diffstat | 1 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired-aux.el Wed Feb 21 21:29:37 1996 +0000 +++ b/lisp/dired-aux.el Wed Feb 21 21:32:04 1996 +0000 @@ -400,7 +400,13 @@ (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.