From cd69d9dd0f49736af3a9cc1df1f375d7c0cf6917 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 21 Feb 1996 21:32:04 +0000 Subject: [PATCH] (dired-call-process): Call file name handler. --- lisp/dired-aux.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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. -- 2.39.2