Mercurial > emacs
changeset 1454:035c3f9fa12f
Add dummy handlers for file-truename and vc-registered.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 20 Oct 1992 06:43:48 +0000 |
| parents | fb2d16111e4b |
| children | b5a0e08b0dbe |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ange-ftp.el Tue Oct 20 06:39:24 1992 +0000 +++ b/lisp/ange-ftp.el Tue Oct 20 06:43:48 1992 +0000 @@ -857,7 +857,7 @@ ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.7 $") +(defconst ange-ftp-version "$Revision: 1.8 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") @@ -3780,6 +3780,14 @@ (put 'file-name-sans-versions 'ange-ftp 'ange-ftp-file-name-sans-versions) (put 'dired-uncache 'ange-ftp 'ange-ftp-dired-uncache) (put 'dired-compress-file 'ange-ftp 'ange-ftp-dired-compress-file) + +;; Turn off truename processing to save time. +;; Treat each name as its own truename. +(put 'file-truename 'ange-ftp 'identity) + +;; Turn off RCS/SCCS processing to save time. +;; This returns nil for any file name as argument. +(put 'vc-registered 'ange-ftp 'null) ;;; Define ways of getting at unmodified Emacs primitives, ;;; turning off our handler.