Mercurial > emacs
changeset 14634:c7dfe102acc3
(dired-call-process): Put on ange-ftp property.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 21 Feb 1996 21:29:37 +0000 |
| parents | 7e5e4b8c8d10 |
| children | 7a7506ffde31 |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ange-ftp.el Wed Feb 21 21:29:14 1996 +0000 +++ b/lisp/ange-ftp.el Wed Feb 21 21:29:37 1996 +0000 @@ -3934,6 +3934,8 @@ ;; 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 @@ ;; 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.