# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 824938324 0
# Node ID 7a7506ffde311d72fea16821971f7cd007c7e79e
# Parent  c7dfe102acc3a3836c9b862538cb64cf817df10c
(dired-call-process): Call file name handler.

diff -r c7dfe102acc3 -r 7a7506ffde31 lisp/dired-aux.el
--- 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.