Mercurial > emacs
comparison lisp/ange-ftp.el @ 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 | c64371c0dbb9 |
children | 20f4c4a078b2 |
comparison
equal
deleted
inserted
replaced
14633:7e5e4b8c8d10 | 14634:c7dfe102acc3 |
---|---|
3932 (put 'file-truename 'ange-ftp 'identity) | 3932 (put 'file-truename 'ange-ftp 'identity) |
3933 | 3933 |
3934 ;; Turn off RCS/SCCS processing to save time. | 3934 ;; Turn off RCS/SCCS processing to save time. |
3935 ;; This returns nil for any file name as argument. | 3935 ;; This returns nil for any file name as argument. |
3936 (put 'vc-registered 'ange-ftp 'null) | 3936 (put 'vc-registered 'ange-ftp 'null) |
3937 | |
3938 (put 'dired-call-process 'ange-ftp 'ange-ftp-dired-call-process) | |
3937 | 3939 |
3938 ;;; Define ways of getting at unmodified Emacs primitives, | 3940 ;;; Define ways of getting at unmodified Emacs primitives, |
3939 ;;; turning off our handler. | 3941 ;;; turning off our handler. |
3940 | 3942 |
3941 (defun ange-ftp-run-real-handler (operation args) | 3943 (defun ange-ftp-run-real-handler (operation args) |
4068 ;; Cannot call ange-ftp-real-dired-run-shell-command here as it | 4070 ;; Cannot call ange-ftp-real-dired-run-shell-command here as it |
4069 ;; would prepend "cd default-directory" --- which bombs because | 4071 ;; would prepend "cd default-directory" --- which bombs because |
4070 ;; default-directory is in ange-ftp syntax for remote file names. | 4072 ;; default-directory is in ange-ftp syntax for remote file names. |
4071 (ange-ftp-real-shell-command command)))) | 4073 (ange-ftp-real-shell-command command)))) |
4072 | 4074 |
4073 ;;; Thisis not hooked up yet. | 4075 ;;; This is the handler for call-process. |
4074 (defun ange-ftp-dired-call-process (program discard &rest arguments) | 4076 (defun ange-ftp-dired-call-process (program discard &rest arguments) |
4075 ;; PROGRAM is always one of those below in the cond in dired.el. | 4077 ;; PROGRAM is always one of those below in the cond in dired.el. |
4076 ;; The ARGUMENTS are (nearly) always files. | 4078 ;; The ARGUMENTS are (nearly) always files. |
4077 (if (ange-ftp-ftp-name default-directory) | 4079 (if (ange-ftp-ftp-name default-directory) |
4078 ;; Can't use ange-ftp-dired-host-type here because the current | 4080 ;; Can't use ange-ftp-dired-host-type here because the current |