diff options
| author | Kai Großjohann <kgrossjo@eu.uu.net> | 2004-06-26 15:28:33 +0000 |
|---|---|---|
| committer | Kai Großjohann <kgrossjo@eu.uu.net> | 2004-06-26 15:28:33 +0000 |
| commit | 15cc764cd1a590eccf9516effbe28df61c78a02a (patch) | |
| tree | 0d2249bf27a3a4a618a2ec525b3505eeef157a57 /lisp/net | |
| parent | f3e6add22d05a143df590785a7e8dd98a337877a (diff) | |
| download | emacs-15cc764cd1a590eccf9516effbe28df61c78a02a.tar.gz | |
(tramp-handle-file-remote-p): New implementation to
agree with new return value of `file-remote-p'.
This syncs with Tramp 2.0.42.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/tramp.el | 9 |
1 files changed, 8 insertions, 1 deletions
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) |