From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 21 Jan 2019 10:34:32 +0000 (+0100)
Subject: * lisp/net/tramp-sh.el (tramp-set-remote-path): Fix usage of tmpfile.
X-Git-Tag: emacs-27.0.90~3773
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7fcdabdcb03a47ec028a5821f6c3fc054d00b40d;p=emacs.git

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

diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 4fa8b3fa3f1..dfb4b84517f 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))))
 
 ;; ------------------------------------------------------------