diff options
| author | Richard M. Stallman <rms@gnu.org> | 1992-10-20 06:43:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1992-10-20 06:43:48 +0000 |
| commit | c5788cc30e06da254a087a068560e744700d6a9d (patch) | |
| tree | 9fc8348b5ff08e1ec72fedec3e58579c829fef92 /lisp/ange-ftp.el | |
| parent | 78df6d8cebc7f1515aa263248d037c73c51539a5 (diff) | |
| download | emacs-c5788cc30e06da254a087a068560e744700d6a9d.tar.gz | |
Add dummy handlers for file-truename and vc-registered.
Diffstat (limited to 'lisp/ange-ftp.el')
| -rw-r--r-- | lisp/ange-ftp.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index ce3357726c3..09c9bab1427 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -857,7 +857,7 @@ SIZE, if supplied, should be a prime number." ;;;; 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 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") (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. |