Mercurial > emacs
changeset 56261:d863bc830907
(tramp-handle-file-remote-p): New implementation to
agree with new return value of `file-remote-p'.
This syncs with Tramp 2.0.42.
| author | Kai Großjohann <kgrossjo@eu.uu.net> |
|---|---|
| date | Sat, 26 Jun 2004 15:28:33 +0000 |
| parents | 2e0a719f6a41 |
| children | 29d03615f533 |
| files | lisp/ChangeLog lisp/net/tramp.el |
| diffstat | 2 files changed, 12 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Jun 26 15:26:09 2004 +0000 +++ b/lisp/ChangeLog Sat Jun 26 15:28:33 2004 +0000 @@ -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'.
--- a/lisp/net/tramp.el Sat Jun 26 15:26:09 2004 +0000 +++ b/lisp/net/tramp.el Sat Jun 26 15:28:33 2004 +0000 @@ -3542,7 +3542,14 @@ (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)