Mercurial > emacs
changeset 55846:aed680fa845d
(ange-ftp-file-remote-p): New defun.
(top): Remove setting of `file-remote-p' property for
`ange-ftp-hook-function'. Add `ange-ftp' property to
`file-remote-p'.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Sat, 29 May 2004 22:43:24 +0000 |
| parents | 6d0508ef2a09 |
| children | d87f8236b6fd |
| files | lisp/net/ange-ftp.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/ange-ftp.el Sat May 29 22:42:06 2004 +0000 +++ b/lisp/net/ange-ftp.el Sat May 29 22:43:24 2004 +0000 @@ -4116,6 +4116,9 @@ (format "Getting %s" fn1)) tmp1)))) +(defun ange-ftp-file-remote-p (file) + (when (ange-ftp-ftp-name file) t)) + (defun ange-ftp-load (file &optional noerror nomessage nosuffix) (if (ange-ftp-ftp-name file) (let ((tryfiles (if nosuffix @@ -4257,9 +4260,6 @@ (let ((fn (get operation 'ange-ftp))) (if fn (save-match-data (apply fn args)) (ange-ftp-run-real-handler operation args)))) -;;;###autoload -;;; These file names are remote file names. -(put 'ange-ftp-hook-function 'file-remote-p t) ;; The following code is commented out because Tramp now deals with ;; Ange-FTP filenames, too. @@ -4327,6 +4327,7 @@ (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 'file-remote-p 'ange-ftp 'ange-ftp-file-remote-p) (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)