From 40f245a31bd499ca850cdc01acfb0a4b3c3e9c8c Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Wed, 19 Mar 2008 21:02:03 +0000 Subject: [PATCH] * net/tramp-fish.el (tramp-fish-handle-expand-file-name): Let-bind `directory-sep-char'. --- lisp/net/tramp-fish.el | 14 +++++++------- 1 file 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." -- 2.39.5