From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 19 Mar 2008 21:02:03 +0000 (+0000)
Subject: * net/tramp-fish.el (tramp-fish-handle-expand-file-name): Let-bind
X-Git-Tag: emacs-pretest-23.0.90~7043
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=40f245a31bd499ca850cdc01acfb0a4b3c3e9c8c;p=emacs.git

* net/tramp-fish.el (tramp-fish-handle-expand-file-name): Let-bind
`directory-sep-char'.
---

diff --git a/lisp/net/tramp-fish.el b/lisp/net/tramp-fish.el
index abf7b0c27a2..639ea60f2a0 100644
--- a/lisp/net/tramp-fish.el
+++ b/lisp/net/tramp-fish.el
@@ -380,13 +380,13 @@ pass to the OPERATION."
       ;; 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."