(dired-call-process): Call file name handler.

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 5f6fdc542d28166fddd0a94fb1d35822118117de..0e3b0f26f12e256e65737e9b5beae838077884ea 100644 (file)
--- 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.