diff options
Diffstat (limited to 'lisp/net/tramp-smb.el')
| -rw-r--r-- | lisp/net/tramp-smb.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el index 554aa354c00..8985f751bb1 100644 --- a/lisp/net/tramp-smb.el +++ b/lisp/net/tramp-smb.el | |||
| @@ -610,11 +610,9 @@ PRESERVE-UID-GID and PRESERVE-EXTENDED-ATTRIBUTES are completely ignored." | |||
| 610 | (and (tramp-tramp-file-p filename) | 610 | (and (tramp-tramp-file-p filename) |
| 611 | (file-local-copy filename)))) | 611 | (file-local-copy filename)))) |
| 612 | ;; Remote filename. | 612 | ;; Remote filename. |
| 613 | (condition-case err | 613 | (unwind-protect |
| 614 | (rename-file tmpfile newname ok-if-already-exists) | 614 | (rename-file tmpfile newname ok-if-already-exists) |
| 615 | ((error quit) | 615 | (delete-file tmpfile)) |
| 616 | (delete-file tmpfile) | ||
| 617 | (signal (car err) (cdr err)))) | ||
| 618 | 616 | ||
| 619 | ;; Remote newname. | 617 | ;; Remote newname. |
| 620 | (when (and (file-directory-p newname) | 618 | (when (and (file-directory-p newname) |
| @@ -852,7 +850,7 @@ PRESERVE-UID-GID and PRESERVE-EXTENDED-ATTRIBUTES are completely ignored." | |||
| 852 | nil ;9 gid weird | 850 | nil ;9 gid weird |
| 853 | inode ;10 inode number | 851 | inode ;10 inode number |
| 854 | device)))) ;11 file system number | 852 | device)))) ;11 file system number |
| 855 | (remote-file-error (signal (car err) (cdr err))) | 853 | (remote-file-error (signal err)) |
| 856 | (error))))) | 854 | (error))))) |
| 857 | 855 | ||
| 858 | (defun tramp-smb-do-file-attributes-with-stat (vec) | 856 | (defun tramp-smb-do-file-attributes-with-stat (vec) |
| @@ -2125,7 +2123,7 @@ If ARGUMENT is non-nil, use it as argument for | |||
| 2125 | (tramp-cleanup-connection vec t) | 2123 | (tramp-cleanup-connection vec t) |
| 2126 | (tramp-smb-maybe-open-connection vec argument)) | 2124 | (tramp-smb-maybe-open-connection vec argument)) |
| 2127 | ;; Propagate the error. | 2125 | ;; Propagate the error. |
| 2128 | (signal (car err) (cdr err)))))))))))))) | 2126 | (signal err))))))))))))) |
| 2129 | 2127 | ||
| 2130 | ;; We don't use timeouts. If needed, the caller shall wrap around. | 2128 | ;; We don't use timeouts. If needed, the caller shall wrap around. |
| 2131 | (defun tramp-smb-wait-for-output (vec) | 2129 | (defun tramp-smb-wait-for-output (vec) |