From 258800f85f19157263bfdbb96c526f108009364c Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Thu, 4 Oct 2007 20:09:32 +0000 Subject: * 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'. --- lisp/net/tramp-ftp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/net/tramp-ftp.el') diff --git a/lisp/net/tramp-ftp.el b/lisp/net/tramp-ftp.el index cf98ecba7d5..85416d308d3 100644 --- a/lisp/net/tramp-ftp.el +++ b/lisp/net/tramp-ftp.el @@ -158,7 +158,7 @@ pass to the OPERATION." (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)))) -- cgit v1.2.1