# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1205960523 0
# Node ID 4af1d1ce512c1512d308c6d4c3b2834b9e4849b7
# Parent  232558876fd1ab44ea0c8d192916a79e97dcbe06
* net/tramp-fish.el (tramp-fish-handle-expand-file-name): Let-bind
`directory-sep-char'.

diff -r 232558876fd1 -r 4af1d1ce512c lisp/net/tramp-fish.el
--- a/lisp/net/tramp-fish.el	Wed Mar 19 18:26:51 2008 +0000
+++ b/lisp/net/tramp-fish.el	Wed Mar 19 21:02:03 2008 +0000
@@ -380,13 +380,13 @@
       ;; would otherwise use backslash.  `default-directory' is
       ;; bound, because on Windows there would be problems with UNC
       ;; shares or Cygwin mounts.
-      (tramp-let-maybe directory-sep-char ?/
-	(let ((default-directory (tramp-compat-temporary-file-directory)))
-	  (tramp-make-tramp-file-name
-	   method user host
-	   (tramp-drop-volume-letter
-	    (tramp-run-real-handler 'expand-file-name
-				    (list localname)))))))))
+      (let ((directory-sep-char ?/)
+	    (default-directory (tramp-compat-temporary-file-directory)))
+	(tramp-make-tramp-file-name
+	 method user host
+	 (tramp-drop-volume-letter
+	  (tramp-run-real-handler 'expand-file-name
+				  (list localname))))))))
 
 (defun tramp-fish-handle-file-attributes (filename &optional id-format)
   "Like `file-attributes' for Tramp files."