diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/net/tramp-fish.el | 14 |
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." | |||
| 380 | ;; would otherwise use backslash. `default-directory' is | 380 | ;; would otherwise use backslash. `default-directory' is |
| 381 | ;; bound, because on Windows there would be problems with UNC | 381 | ;; bound, because on Windows there would be problems with UNC |
| 382 | ;; shares or Cygwin mounts. | 382 | ;; shares or Cygwin mounts. |
| 383 | (tramp-let-maybe directory-sep-char ?/ | 383 | (let ((directory-sep-char ?/) |
| 384 | (let ((default-directory (tramp-compat-temporary-file-directory))) | 384 | (default-directory (tramp-compat-temporary-file-directory))) |
| 385 | (tramp-make-tramp-file-name | 385 | (tramp-make-tramp-file-name |
| 386 | method user host | 386 | method user host |
| 387 | (tramp-drop-volume-letter | 387 | (tramp-drop-volume-letter |
| 388 | (tramp-run-real-handler 'expand-file-name | 388 | (tramp-run-real-handler 'expand-file-name |
| 389 | (list localname))))))))) | 389 | (list localname)))))))) |
| 390 | 390 | ||
| 391 | (defun tramp-fish-handle-file-attributes (filename &optional id-format) | 391 | (defun tramp-fish-handle-file-attributes (filename &optional id-format) |
| 392 | "Like `file-attributes' for Tramp files." | 392 | "Like `file-attributes' for Tramp files." |