diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2004-05-29 22:43:24 +0000 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2004-05-29 22:43:24 +0000 |
| commit | e28c0668252a06f20ae3a81ad62accba51146d8a (patch) | |
| tree | 63369293b09a18c88747954fb6a7535024534fd0 /lisp/net/ange-ftp.el | |
| parent | 04621aaa0c85151039564d1a732f202306fa4b5f (diff) | |
| download | emacs-e28c0668252a06f20ae3a81ad62accba51146d8a.tar.gz | |
(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'.
Diffstat (limited to 'lisp/net/ange-ftp.el')
| -rw-r--r-- | lisp/net/ange-ftp.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 8e1068a5bed..09448e87329 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -4116,6 +4116,9 @@ directory, so that Emacs will know its current contents." (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 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") (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 @@ 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 '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) |