336 |
(tramp-tramp-file-p filename) |
(tramp-tramp-file-p filename) |
337 |
(not |
(not |
338 |
(let ((v (tramp-dissect-file-name filename))) |
(let ((v (tramp-dissect-file-name filename))) |
339 |
|
;; The following check is probably to test whether |
340 |
|
;; file-attributes returns correct last modification |
341 |
|
;; times. This check needs to be changed. |
342 |
(tramp-get-remote-perl (tramp-file-name-multi-method v) |
(tramp-get-remote-perl (tramp-file-name-multi-method v) |
343 |
(tramp-file-name-method v) |
(tramp-file-name-method v) |
344 |
(tramp-file-name-user v) |
(tramp-file-name-user v) |