3542 |
|
|
3543 |
(defun tramp-handle-file-remote-p (filename) |
(defun tramp-handle-file-remote-p (filename) |
3544 |
"Like `file-remote-p' for tramp files." |
"Like `file-remote-p' for tramp files." |
3545 |
(when (tramp-tramp-file-p filename) t)) |
(when (tramp-tramp-file-p filename) |
3546 |
|
(with-parsed-tramp-file-name filename nil |
3547 |
|
(make-tramp-file-name |
3548 |
|
:multi-method multi-method |
3549 |
|
:method method |
3550 |
|
:user user |
3551 |
|
:host host |
3552 |
|
:localname "")))) |
3553 |
|
|
3554 |
(defun tramp-handle-insert-file-contents |
(defun tramp-handle-insert-file-contents |
3555 |
(filename &optional visit beg end replace) |
(filename &optional visit beg end replace) |