# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1085870604 0
# Node ID aed680fa845d779e2b89d49e342c7e7aae1ca809
# Parent  6d0508ef2a09cd3fca5313f600491878fd11d72c
(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'.

diff -r 6d0508ef2a09 -r aed680fa845d lisp/net/ange-ftp.el
--- 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)