diff lisp/net/ange-ftp.el @ 56259:ed6c2f79cef5

* net/ange-ftp.el (ange-ftp-file-remote-p): New return value, according to new documentation of `file-remote-p'. * files.el (file-remote-p): Fix doc to say that return value is identification of remote system, if not nil. (file-relative-name): Use new return value of `file-remote-p'.

--- a/lisp/net/ange-ftp.el	Sat Jun 26 13:12:28 2004 +0000
+++ b/lisp/net/ange-ftp.el	Sat Jun 26 14:41:13 2004 +0000
@@ -4117,7 +4117,7 @@
 	  tmp1))))
 
 (defun ange-ftp-file-remote-p (file)
-  (when (ange-ftp-ftp-name file) t))
+  (ange-ftp-replace-name-component file ""))
 
 (defun ange-ftp-load (file &optional noerror nomessage nosuffix)
   (if (ange-ftp-ftp-name file)