[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-28 99a8c53247 1/2: Fix connection property incompatibility in Tram
From: |
Michael Albinus |
Subject: |
emacs-28 99a8c53247 1/2: Fix connection property incompatibility in Tramp |
Date: |
Fri, 30 Sep 2022 15:54:15 -0400 (EDT) |
branch: emacs-28
commit 99a8c532470d9b1b6fc40211151b1ce196530d8e
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>
Fix connection property incompatibility in Tramp
* lisp/net/tramp.el (tramp-get-remote-tmpdir): Remove obsolete
connection property "tmpdir". (Bug#57800)
---
lisp/net/tramp.el | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index f7243625c7..91dfb5c3c8 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"))))