From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 21 Feb 1996 21:32:04 +0000 (+0000)
Subject: (dired-call-process): Call file name handler.
X-Git-Tag: emacs-19.34~1225
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cd69d9dd0f49736af3a9cc1df1f375d7c0cf6917;p=emacs.git

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

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 5f6fdc542d2..0e3b0f26f12 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.