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

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

2 files changed, 12 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 69ba9cc6b82..bf7e4aa4e19 100644
--- 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 769ad3f51f6..0414859c7eb 100644
--- 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)