* 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 abf7b0c27a2aa9caa62509d33d336d23563963d0..639ea60f2a0b9e732e854c7cafa2acd3728e0329 100644 (file)
--- 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."