diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2022-09-30 21:53:52 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2022-09-30 21:53:52 +0200 |
| commit | 99a8c532470d9b1b6fc40211151b1ce196530d8e (patch) | |
| tree | 297736e8b67d1852c27cc65be6768817df5d735a | |
| parent | 64e8cc14b5e8a94b8e96df386d2fde9b45c9a111 (diff) | |
| download | emacs-99a8c532470d9b1b6fc40211151b1ce196530d8e.tar.gz | |
Fix connection property incompatibility in Tramp
* lisp/net/tramp.el (tramp-get-remote-tmpdir): Remove obsolete
connection property "tmpdir". (Bug#57800)
| -rw-r--r-- | lisp/net/tramp.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index f7243625c7c..91dfb5c3c8f 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -5459,6 +5459,11 @@ This handles also chrooted environments, which are not regarded as local." (defun tramp-get-remote-tmpdir (vec) "Return directory for temporary files on the remote host identified by VEC." (with-tramp-connection-property (tramp-get-process vec) "remote-tmpdir" + ;; Prior Tramp 2.5.3.2, the connection property "tmpdir" did exist + ;; with a remote file name. This must be discarded. (Bug#57800) + (when-let ((tmpdir (tramp-get-connection-property vec "tmpdir" nil))) + (when (tramp-tramp-file-p tmpdir) + (tramp-flush-connection-property vec "tmpdir"))) (let ((dir (tramp-make-tramp-file-name vec (or (tramp-get-method-parameter vec 'tramp-tmpdir) "/tmp")))) |