Mercurial > emacs
changeset 100931:3b92ee10ce02
* net/tramp-smb.el (tramp-smb-handle-copy-file)
(tramp-smb-handle-rename-file): Delete temporary file in case of
quit.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Tue, 06 Jan 2009 07:52:01 +0000 |
| parents | 7d332b05e8ac |
| children | cbd4fb4358e5 |
| files | lisp/net/tramp-smb.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/tramp-smb.el Tue Jan 06 07:51:09 2009 +0000 +++ b/lisp/net/tramp-smb.el Tue Jan 06 07:52:01 2009 +0000 @@ -218,8 +218,9 @@ ;; Remote filename. (condition-case err (rename-file tmpfile newname ok-if-already-exists) - (error (delete-file tmpfile) - (signal (car err) (cdr err)))) + ((error quit) + (delete-file tmpfile) + (signal (car err) (cdr err)))) ;; Remote newname. (when (file-directory-p newname) @@ -554,8 +555,9 @@ ;; Remote filename. (condition-case err (rename-file tmpfile newname ok-if-already-exists) - (error (delete-file tmpfile) - (signal (car err) (cdr err)))) + ((error quit) + (delete-file tmpfile) + (signal (car err) (cdr err)))) ;; Remote newname. (when (file-directory-p newname)