2439 |
;; default-directory should point to a local |
;; default-directory should point to a local |
2440 |
;; directory if we want to invoke rcp. |
;; directory if we want to invoke rcp. |
2441 |
(tramp-do-copy-or-rename-via-buffer |
(tramp-do-copy-or-rename-via-buffer |
2442 |
op filename newname keep-date trampbuf))))) |
op filename newname keep-date))))) |
2443 |
((or t1 t2) |
((or t1 t2) |
2444 |
;; Use the generic method via a Tramp buffer. |
;; Use the generic method via a Tramp buffer. |
2445 |
(tramp-do-copy-or-rename-via-buffer |
(tramp-do-copy-or-rename-via-buffer op filename newname keep-date)) |
|
op filename newname keep-date trampbuf)) |
|
2446 |
(t |
(t |
2447 |
;; One of them must be a Tramp file. |
;; One of them must be a Tramp file. |
2448 |
(error "Tramp implementation says this cannot happen"))))) |
(error "Tramp implementation says this cannot happen"))))) |
2449 |
|
|
2450 |
(defun tramp-do-copy-or-rename-via-buffer |
(defun tramp-do-copy-or-rename-via-buffer (op filename newname keep-date) |
|
(op filename newname keep-date) |
|
2451 |
"Use an Emacs buffer to copy or rename a file. |
"Use an Emacs buffer to copy or rename a file. |
2452 |
First arg OP is either `copy' or `rename' and indicates the operation. |
First arg OP is either `copy' or `rename' and indicates the operation. |
2453 |
FILENAME is the source file, NEWNAME the target file. |
FILENAME is the source file, NEWNAME the target file. |