[Emacs-diffs] master 7fcdabd: * lisp/net/tramp-sh.el (tramp-set-remote-path): Fix usage of tmpfile.

[Michael Albinus]

branch: master
commit 7fcdabdcb03a47ec028a5821f6c3fc054d00b40d
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    * lisp/net/tramp-sh.el (tramp-set-remote-path): Fix usage of tmpfile.
---
 lisp/net/tramp-sh.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 4fa8b3f..dfb4b84 100644
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -3973,9 +3973,11 @@ variable PATH."
     (if (< (length command) pipe-buf)
        (tramp-send-command vec command)
       ;; Use a temporary file.
-      (setq tmpfile (tramp-make-tramp-temp-file vec))
+      (setq tmpfile
+           (tramp-make-tramp-file-name vec (tramp-make-tramp-temp-file vec)))
       (write-region command nil tmpfile)
-      (tramp-send-command vec (format ". %s" tmpfile))
+      (tramp-send-command
+       vec (format ". %s" (tramp-compat-file-local-name tmpfile)))
       (delete-file tmpfile))))
 
 ;; ------------------------------------------------------------