[Emacs-diffs] emacs/lisp/net tramp.el

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       09/01/06 07:56:42

Modified files:
        lisp/net       : tramp.el 

Log message:
        *** empty log message ***

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/tramp.el?cvsroot=emacs&r1=1.222&r2=1.223

Patches:
Index: tramp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp.el,v
retrieving revision 1.222
retrieving revision 1.223
diff -u -b -r1.222 -r1.223
--- tramp.el    6 Jan 2009 07:51:09 -0000       1.222
+++ tramp.el    6 Jan 2009 07:56:42 -0000       1.223
@@ -3259,9 +3259,10 @@
 
           ;; We need a temporary file in between.
           (t
-           (condition-case err
                ;; Create the temporary file.
                (let ((tmpfile (tramp-compat-make-temp-file localname1)))
+             (condition-case err
+                 (progn
                  (cond
                   (t1
                    (tramp-send-command
@@ -3304,7 +3305,7 @@
              ;; Error handling.
              ((error quit)
               (delete-file tmpfile)
-              (signal (car err) (cdr err)))))))))
+                (signal (car err) (cdr err))))))))))
 
       ;; Set the time and mode. Mask possible errors.
       ;; Won't be applied for 'rename.