* net/tramp-fish.el (tramp-fish-handle-expand-file-name): Let-bind

`directory-sep-char'.

1 files changed, 7 insertions, 7 deletions

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."