(tramp-handle-file-remote-p): New implementation to

agree with new return value of `file-remote-p'.
This syncs with Tramp 2.0.42.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 69ba9cc6b825afb43656f407f6b6e2df097427df..bf7e4aa4e1903cf0a7e71c459a00aa8535b4ee31 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2004-06-26  Kai Grossjohann  <kai.grossjohann@gmx.net>
 
+       * net/tramp.el (tramp-handle-file-remote-p): New implementation to
+       agree with new return value of `file-remote-p'.
+       This syncs with Tramp 2.0.42.
+
        * net/ange-ftp.el (ange-ftp-file-remote-p): New return value,
        according to new documentation of `file-remote-p'.
 

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 769ad3f51f6aab3b5c61250dba9502cdfa9694b2..0414859c7eb423b9e25c0530633927e6dde5791b 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -3542,7 +3542,14 @@ This will break if COMMAND prints a newline, followed by the value of
 
 (defun tramp-handle-file-remote-p (filename)
   "Like `file-remote-p' for tramp files."
-  (when (tramp-tramp-file-p filename) t))
+  (when (tramp-tramp-file-p filename)
+    (with-parsed-tramp-file-name filename nil
+      (make-tramp-file-name
+       :multi-method multi-method
+       :method method
+       :user user
+       :host host
+       :localname ""))))
 
 (defun tramp-handle-insert-file-contents
   (filename &optional visit beg end replace)