2618 |
;; directory if we want to invoke rcp. |
;; directory if we want to invoke rcp. |
2619 |
(tramp-do-copy-or-rename-via-buffer |
(tramp-do-copy-or-rename-via-buffer |
2620 |
op filename newname keep-date))))) |
op filename newname keep-date))))) |
2621 |
((or t1 t2) |
((or t1 t2) |
2622 |
;; Use the generic method via a Tramp buffer. |
;; Use the generic method via a Tramp buffer. |
2623 |
(tramp-do-copy-or-rename-via-buffer op filename newname keep-date)) |
(tramp-do-copy-or-rename-via-buffer op filename newname keep-date)) |
2624 |
(t |
(t |
2625 |
;; One of them must be a Tramp file. |
;; One of them must be a Tramp file. |
2626 |
(error "Tramp implementation says this cannot happen"))))) |
(error "Tramp implementation says this cannot happen"))))) |
2627 |
|
|
2628 |
|
;; CCC: implement keep-date if possible -- via touch? |
2629 |
(defun tramp-do-copy-or-rename-via-buffer (op filename newname keep-date) |
(defun tramp-do-copy-or-rename-via-buffer (op filename newname keep-date) |
2630 |
"Use an Emacs buffer to copy or rename a file. |
"Use an Emacs buffer to copy or rename a file. |
2631 |
First arg OP is either `copy' or `rename' and indicates the operation. |
First arg OP is either `copy' or `rename' and indicates the operation. |
2670 |
"Copying directly failed, see buffer `%s' for details." |
"Copying directly failed, see buffer `%s' for details." |
2671 |
(buffer-name))))) |
(buffer-name))))) |
2672 |
|
|
2673 |
|
(defun tramp-do-copy-or-rename-file-one-local |
2674 |
|
(op filename newname keep-date) |
2675 |
|
"Invoke rcp program to copy. |
2676 |
|
One of FILENAME and NEWNAME must be a Tramp name, the other must |
2677 |
|
be a local filename. The method used must be an out-of-band method." |
2678 |
|
;; CCC |
2679 |
|
) |
2680 |
|
|
2681 |
;; mkdir |
;; mkdir |
2682 |
(defun tramp-handle-make-directory (dir &optional parents) |
(defun tramp-handle-make-directory (dir &optional parents) |
2683 |
"Like `make-directory' for tramp files." |
"Like `make-directory' for tramp files." |