Mercurial > emacs
changeset 93079:4af1d1ce512c
* net/tramp-fish.el (tramp-fish-handle-expand-file-name): Let-bind
`directory-sep-char'.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Wed, 19 Mar 2008 21:02:03 +0000 |
| parents | 232558876fd1 |
| children | d68797743640 |
| files | lisp/net/tramp-fish.el |
| diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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."