From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 21 Feb 1996 21:29:37 +0000 (+0000)
Subject: (dired-call-process): Put on ange-ftp property.
X-Git-Tag: emacs-19.34~1226
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1065ecf9d8e082c43515827c661e587e05e0de9d;p=emacs.git

(dired-call-process): Put on ange-ftp property.
---

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 0d0066e7c80..047b77eb371 100644
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -3934,6 +3934,8 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
 ;; Turn off RCS/SCCS processing to save time.
 ;; This returns nil for any file name as argument.
 (put 'vc-registered 'ange-ftp 'null)
+
+(put 'dired-call-process 'ange-ftp 'ange-ftp-dired-call-process)
 
 ;;; Define ways of getting at unmodified Emacs primitives,
 ;;; turning off our handler.
@@ -4070,7 +4072,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
       ;; default-directory is in ange-ftp syntax for remote file names.
       (ange-ftp-real-shell-command command))))
 
-;;; Thisis not hooked up yet.	    
+;;; This is the handler for call-process.
 (defun ange-ftp-dired-call-process (program discard &rest arguments)
   ;; PROGRAM is always one of those below in the cond in dired.el.
   ;; The ARGUMENTS are (nearly) always files.