# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1231228321 0
# Node ID 3b92ee10ce02b37806699956eecfc2a4c18fc725
# Parent  7d332b05e8ac9f37f325f1f6237bb1c487c5187f
* net/tramp-smb.el (tramp-smb-handle-copy-file)
(tramp-smb-handle-rename-file): Delete temporary file in case of
quit.

diff -r 7d332b05e8ac -r 3b92ee10ce02 lisp/net/tramp-smb.el
--- 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)