diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-02-21 21:29:37 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-02-21 21:29:37 +0000 |
| commit | 1065ecf9d8e082c43515827c661e587e05e0de9d (patch) | |
| tree | d8a61ef03b74b1387b629d841660555fced39b9e /lisp/ange-ftp.el | |
| parent | 4d23eb4bd34e5cb7a9ed3f91464d9fe2ea58a724 (diff) | |
| download | emacs-1065ecf9d8e082c43515827c661e587e05e0de9d.tar.gz | |
(dired-call-process): Put on ange-ftp property.
Diffstat (limited to 'lisp/ange-ftp.el')
| -rw-r--r-- | lisp/ange-ftp.el | 4 |
1 files changed, 3 insertions, 1 deletions
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. |