mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-22 05:31:01 -08:00
Fix connection property incompatibility in Tramp
* lisp/net/tramp.el (tramp-get-remote-tmpdir): Remove obsolete connection property "tmpdir". (Bug#57800)
This commit is contained in:
parent
64e8cc14b5
commit
99a8c53247
1 changed files with 5 additions and 0 deletions
|
|
@ -5459,6 +5459,11 @@ This handles also chrooted environments, which are not regarded as local."
|
||||||
(defun tramp-get-remote-tmpdir (vec)
|
(defun tramp-get-remote-tmpdir (vec)
|
||||||
"Return directory for temporary files on the remote host identified by VEC."
|
"Return directory for temporary files on the remote host identified by VEC."
|
||||||
(with-tramp-connection-property (tramp-get-process vec) "remote-tmpdir"
|
(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
|
(let ((dir
|
||||||
(tramp-make-tramp-file-name
|
(tramp-make-tramp-file-name
|
||||||
vec (or (tramp-get-method-parameter vec 'tramp-tmpdir) "/tmp"))))
|
vec (or (tramp-get-method-parameter vec 'tramp-tmpdir) "/tmp"))))
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue