From 15cc764cd1a590eccf9516effbe28df61c78a02a Mon Sep 17 00:00:00 2001 From: =?utf8?q?Kai=20Gro=C3=9Fjohann?= Date: Sat, 26 Jun 2004 15:28:33 +0000 Subject: [PATCH] (tramp-handle-file-remote-p): New implementation to agree with new return value of `file-remote-p'. This syncs with Tramp 2.0.42. --- lisp/ChangeLog | 4 ++++ lisp/net/tramp.el | 9 ++++++++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 69ba9cc6b8..bf7e4aa4e1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2004-06-26 Kai Grossjohann + * 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 769ad3f51f..0414859c7e 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) -- 2.20.1