Mercurial > emacs
diff lisp/net/tramp-ftp.el @ 85041:a42b8750a992
* net/tramp.el (tramp-make-temp-file): Move to tramp-compat.el.
(tramp-do-copy-or-rename-file-directly): Handle tmpfile only in
the cond clauses where needed.
(tramp-handle-write-region): Rearrange code for proper handling of
tmpfile.
* net/tramp-compat.el (tramp-compat-make-temp-file): New defsubst.
* net/tramp.el:
* net/tramp-fish.el:
* net/tramp-ftp.el:
* net/tramp-smb.el: Rename `tramp-make-temp-file' to
`tramp-compat-make-temp-file'.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Thu, 04 Oct 2007 20:09:32 +0000 |
| parents | ef71cdab0d5c |
| children | 7f134b676a0c bdb3fe0ba9fa |
line wrap: on
line diff
--- a/lisp/net/tramp-ftp.el Thu Oct 04 16:57:53 2007 +0000 +++ b/lisp/net/tramp-ftp.el Thu Oct 04 20:09:32 2007 +0000 @@ -158,7 +158,7 @@ (not (tramp-ftp-file-name-p (cadr args)))) (let* ((filename (car args)) (newname (cadr args)) - (tmpfile (tramp-make-temp-file filename)) + (tmpfile (tramp-compat-make-temp-file filename)) (args (cddr args))) (apply operation filename tmpfile args) (rename-file tmpfile newname (car args))))