Mercurial > emacs
changeset 1670:174817d23858
* ange-ftp.el (ange-ftp-unhandled-file-name-directory): New
function. Set ange-ftp's `unhandled-file-name-property' to its
name.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sat, 12 Dec 1992 15:19:13 +0000 |
| parents | 401c99f91a6c |
| children | b2a50ea75eea |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ange-ftp.el Sat Dec 12 14:44:09 1992 +0000 +++ b/lisp/ange-ftp.el Sat Dec 12 15:19:13 1992 +0000 @@ -857,7 +857,7 @@ ;;;; 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 @@ (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 @@ (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)