diff options
| author | Michael Albinus | 2022-12-15 16:37:16 +0100 |
|---|---|---|
| committer | Michael Albinus | 2022-12-15 16:37:16 +0100 |
| commit | bb27be36ddfd753a8f78e638f23cc782c7b2c3de (patch) | |
| tree | 142530fdae2aa04acfc9ffcb9ee0230d4b2f6583 | |
| parent | d4c2aa4f913d07d627296c3e96125c4a8c143bd7 (diff) | |
| download | emacs-bb27be36ddfd753a8f78e638f23cc782c7b2c3de.tar.gz emacs-bb27be36ddfd753a8f78e638f23cc782c7b2c3de.zip | |
Fix bug#60060 in Tramp
* lisp/net/tramp-sh.el (tramp-sh-handle-file-local-copy):
Delete `tmpfile' in case of error. (Bug#60060)
| -rw-r--r-- | lisp/net/tramp-sh.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index df5800f4e9d..6087f16431e 100644 --- a/lisp/net/tramp-sh.el +++ b/lisp/net/tramp-sh.el | |||
| @@ -3431,6 +3431,7 @@ implementation will be used." | |||
| 3431 | (signal (car err) (cdr err))))) | 3431 | (signal (car err) (cdr err))))) |
| 3432 | 3432 | ||
| 3433 | ;; Impossible to copy. Trigger `file-missing' error. | 3433 | ;; Impossible to copy. Trigger `file-missing' error. |
| 3434 | (delete-file tmpfile) | ||
| 3434 | (setq tmpfile nil)))) | 3435 | (setq tmpfile nil)))) |
| 3435 | 3436 | ||
| 3436 | (defun tramp-sh-handle-write-region | 3437 | (defun tramp-sh-handle-write-region |