diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-12-12 15:19:13 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-12-12 15:19:13 +0000 |
| commit | 3c75b559194a9fc5e83b2d4f6793f27ae04e048b (patch) | |
| tree | 6348862d02401b40932d11a1aa943ee3ccb5a597 /lisp/ange-ftp.el | |
| parent | 7381aaaf9de20fbfe0f6eca97b23c0947370efd1 (diff) | |
| download | emacs-3c75b559194a9fc5e83b2d4f6793f27ae04e048b.tar.gz | |
* ange-ftp.el (ange-ftp-unhandled-file-name-directory): New
function. Set ange-ftp's `unhandled-file-name-property' to its
name.
Diffstat (limited to 'lisp/ange-ftp.el')
| -rw-r--r-- | lisp/ange-ftp.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 37fead3c4ce..34610f87588 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.11 $") +(defconst ange-ftp-version "$Revision: 1.12 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") @@ -3612,6 +3612,11 @@ system TYPE.") (format "Getting %s" fn1)) tmp1)))) +;; Calculate default-unhandled-directory for a given ange-ftp buffer. +(defun ange-ftp-unhandled-file-name-directory (filename) + (file-name-directory ange-ftp-tmp-name-template)) + + ;; Need the following functions for making filenames of compressed ;; files, because some OS's (unlike UNIX) do not allow a filename to ;; have two extensions. @@ -3763,6 +3768,8 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") (put 'file-name-completion 'ange-ftp 'ange-ftp-file-name-completion) (put 'insert-directory 'ange-ftp 'ange-ftp-insert-directory) (put 'file-local-copy 'ange-ftp 'ange-ftp-file-local-copy) +(put 'unhandled-file-name-directory 'ange-ftp + 'ange-ftp-unhandled-file-name-directory) (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) |