From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 2 Apr 2008 18:58:45 +0000 (+0000)
Subject: * net/tramp.el (tramp-make-tramp-temp-file): Use
X-Git-Tag: emacs-pretest-23.0.90~6683
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=113e2a8447cea12970b6e37ce3bd544628fa2cae;p=emacs.git

* net/tramp.el (tramp-make-tramp-temp-file): Use
`tramp-drop-volume-letter' for the local file name part.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7a7f15493f4..b4593b6fba4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-04-02  Michael Albinus  <michael.albinus@gmx.de>
+
+	* net/tramp.el (tramp-make-tramp-temp-file): Use
+	`tramp-drop-volume-letter' for the local file name part.
+
 2008-04-02  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* progmodes/sh-script.el (sh-mode-map): Rename the menu. Add :help.
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index b30667fa9fb..685c6bda298 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -1965,8 +1965,9 @@ Return the local name of the temporary file."
 	  (tramp-file-name-method vec)
 	  (tramp-file-name-user vec)
 	  (tramp-file-name-host vec)
-	  (expand-file-name
-	   tramp-temp-name-prefix (tramp-get-remote-tmpdir vec))))
+	  (tramp-drop-volume-letter
+	   (expand-file-name
+	    tramp-temp-name-prefix (tramp-get-remote-tmpdir vec)))))
 	result)
     (while (not result)
       ;; `make-temp-file' would be the natural choice for