[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/net tramp-smb.el
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] emacs/lisp/net tramp-smb.el |
Date: |
Tue, 06 Jan 2009 07:52:01 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Michael Albinus <albinus> 09/01/06 07:52:01
Modified files:
lisp/net : tramp-smb.el
Log message:
* net/tramp-smb.el (tramp-smb-handle-copy-file)
(tramp-smb-handle-rename-file): Delete temporary file in case of
quit.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/tramp-smb.el?cvsroot=emacs&r1=1.46&r2=1.47
Patches:
Index: tramp-smb.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp-smb.el,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -b -r1.46 -r1.47
--- tramp-smb.el 5 Jan 2009 19:40:00 -0000 1.46
+++ tramp-smb.el 6 Jan 2009 07:52:01 -0000 1.47
@@ -218,7 +218,8 @@
;; Remote filename.
(condition-case err
(rename-file tmpfile newname ok-if-already-exists)
- (error (delete-file tmpfile)
+ ((error quit)
+ (delete-file tmpfile)
(signal (car err) (cdr err))))
;; Remote newname.
@@ -554,7 +555,8 @@
;; Remote filename.
(condition-case err
(rename-file tmpfile newname ok-if-already-exists)
- (error (delete-file tmpfile)
+ ((error quit)
+ (delete-file tmpfile)
(signal (car err) (cdr err))))
;; Remote newname.