Mercurial > emacs
comparison lisp/net/tramp.el @ 78411:58cb4546b377
* net/tramp.el (tramp-handle-file-remote-p): Return a string as
remote identification.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Sun, 05 Aug 2007 12:43:06 +0000 |
| parents | 84cf1e2214c5 |
| children | 45e0e9795cdb |
comparison
equal
deleted
inserted
replaced
| 78410:7ed1b196b926 | 78411:58cb4546b377 |
|---|---|
| 3870 | 3870 |
| 3871 (defun tramp-handle-file-remote-p (filename) | 3871 (defun tramp-handle-file-remote-p (filename) |
| 3872 "Like `file-remote-p' for tramp files." | 3872 "Like `file-remote-p' for tramp files." |
| 3873 (when (tramp-tramp-file-p filename) | 3873 (when (tramp-tramp-file-p filename) |
| 3874 (with-parsed-tramp-file-name filename nil | 3874 (with-parsed-tramp-file-name filename nil |
| 3875 (vector multi-method method user host "")))) | 3875 (tramp-make-tramp-file-name multi-method method user host "")))) |
| 3876 | 3876 |
| 3877 (defun tramp-handle-insert-file-contents | 3877 (defun tramp-handle-insert-file-contents |
| 3878 (filename &optional visit beg end replace) | 3878 (filename &optional visit beg end replace) |
| 3879 "Like `insert-file-contents' for tramp files." | 3879 "Like `insert-file-contents' for tramp files." |
| 3880 (barf-if-buffer-read-only) | 3880 (barf-if-buffer-read-only) |