# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1209314188 0
# Node ID 2faa99de7eefcf787046916ae195ba118913bf75
# Parent  ed7a07d27b12d841600c7a9739400394bb57e707
* net/tramp.el (tramp-handle-make-symbolic-link)
(tramp-handle-file-name-directory)
(tramp-handle-file-name-nondirectory, tramp-handle-file-truename)
(tramp-do-copy-or-rename-file-directly)
(tramp-handle-insert-directory, tramp-handle-expand-file-name)
(tramp-handle-substitute-in-file-name)
(tramp-handle-insert-file-contents, tramp-handle-write-region)
* net/tramp-cache.el (tramp-get-file-property)
(tramp-set-file-property, tramp-flush-file-property)
(tramp-flush-directory-property)
* net/tramp-cpmpat.el (tramp-compat-make-temp-file)
* net/tramp-fish.el (tramp-fish-handle-expand-file-name): Disable
`file-name-handler-alist' when handling localname.  It could have
a remote file syntax, like a VMS file name.

diff -r ed7a07d27b12 -r 2faa99de7eef lisp/net/tramp-compat.el
--- a/lisp/net/tramp-compat.el	Sun Apr 27 16:36:14 2008 +0000
+++ b/lisp/net/tramp-compat.el	Sun Apr 27 16:36:28 2008 +0000
@@ -153,11 +153,12 @@
 (defsubst tramp-compat-make-temp-file (filename)
   "Create a temporary file (compat function).
 Add the extension of FILENAME, if existing."
-  (let ((prefix (expand-file-name
-		 (symbol-value 'tramp-temp-name-prefix)
-		 (tramp-compat-temporary-file-directory)))
-	(extension (file-name-extension filename t))
-	result)
+  (let* (file-name-handler-alist
+	 (prefix (expand-file-name
+		  (symbol-value 'tramp-temp-name-prefix)
+		  (tramp-compat-temporary-file-directory)))
+	 (extension (file-name-extension filename t))
+	 result)
     (condition-case nil
 	(setq result
 	      (funcall (symbol-function 'make-temp-file) prefix nil extension))