2975 |
filename)) |
filename)) |
2976 |
(setq tmpfil (tramp-make-temp-file)) |
(setq tmpfil (tramp-make-temp-file)) |
2977 |
(cond (copy-program |
(cond (copy-program |
2978 |
|
;; The following should be changed. We need a more general |
2979 |
|
;; mechanism to parse extra host args. |
2980 |
|
(when (string-match "\\([^#]*\\)#\\(.*\\)" host) |
2981 |
|
(setq copy-args (cons "-p" (cons (match-string 2 host) |
2982 |
|
rsh-args))) |
2983 |
|
(setq host (match-string 1 host))) |
2984 |
;; Use rcp-like program for file transfer. |
;; Use rcp-like program for file transfer. |
2985 |
(tramp-message-for-buffer |
(tramp-message-for-buffer |
2986 |
multi-method method user host |
multi-method method user host |
3173 |
;; _also_ specifies an encoding function, then that is used for |
;; _also_ specifies an encoding function, then that is used for |
3174 |
;; encoding the contents of the tmp file. |
;; encoding the contents of the tmp file. |
3175 |
(cond (copy-program |
(cond (copy-program |
3176 |
|
;; The following should be changed. We need a more general |
3177 |
|
;; mechanism to parse extra host args. |
3178 |
|
(when (string-match "\\([^#]*\\)#\\(.*\\)" host) |
3179 |
|
(setq copy-args (cons "-p" (cons (match-string 2 host) |
3180 |
|
rsh-args))) |
3181 |
|
(setq host (match-string 1 host))) |
3182 |
|
|
3183 |
;; use rcp-like program for file transfer |
;; use rcp-like program for file transfer |
3184 |
(let ((argl (append copy-args |
(let ((argl (append copy-args |
3185 |
(list |
(list |