* lisp/net/tramp-sh.el (tramp-set-remote-path): Fix usage of tmpfile.

7fcdabdc · Michael Albinus · e5ef4c66 · 7fcdabdc
Commit 7fcdabdc authored Jan 21, 2019 by Michael Albinus
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 2 deletions

lisp/net/tramp-sh.el lisp/net/tramp-sh.el +4 -2

No files found.
--- 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))))

 ;; ------------------------------------------------------------