2469 |
;; At least one file a tramp file? |
;; At least one file a tramp file? |
2470 |
(if (or (tramp-tramp-file-p filename) |
(if (or (tramp-tramp-file-p filename) |
2471 |
(tramp-tramp-file-p newname)) |
(tramp-tramp-file-p newname)) |
2472 |
(tramp-do-copy-or-rename-file |
(let ((modes (file-modes filename))) |
2473 |
'copy filename newname ok-if-already-exists keep-date) |
(tramp-do-copy-or-rename-file |
2474 |
|
'copy filename newname ok-if-already-exists keep-date) |
2475 |
|
(set-file-modes newname modes)) |
2476 |
(tramp-run-real-handler |
(tramp-run-real-handler |
2477 |
'copy-file |
'copy-file |
2478 |
(list filename newname ok-if-already-exists keep-date)))) |
(list filename newname ok-if-already-exists keep-date)))) |