From: Kai Großjohann <kgrossjo@eu.uu.net>
Date: Sat, 26 Jun 2004 15:28:33 +0000 (+0000)
Subject: (tramp-handle-file-remote-p): New implementation to
X-Git-Tag: ttn-vms-21-2-B4~5622
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=15cc764cd1a590eccf9516effbe28df61c78a02a;p=emacs.git

(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 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)