diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2023-08-27 20:06:13 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2023-08-27 20:06:13 +0200 |
| commit | 34f7a47c9ce0581a89b30cc06243788b354f2e7a (patch) | |
| tree | e614f05e8cb2a6f143b819df07ac4d09f8f3edea /lisp/net | |
| parent | ea5fd6c96bcf62e999ed2b8491b7a80e9e52ec33 (diff) | |
| download | emacs-34f7a47c9ce0581a89b30cc06243788b354f2e7a.tar.gz emacs-34f7a47c9ce0581a89b30cc06243788b354f2e7a.tar.bz2 emacs-34f7a47c9ce0581a89b30cc06243788b354f2e7a.zip | |
Fix Tramp on MS Windows
* lisp/net/tramp-sh.el (tramp-sh-handle-expand-file-name):
Apply `tramp-drop-volume-letter' consequently.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/tramp-sh.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index ffd910b41c4..5a1e73aab2b 100644 --- a/lisp/net/tramp-sh.el +++ b/lisp/net/tramp-sh.el @@ -2825,7 +2825,8 @@ the result will be a local, non-Tramp, file name." (with-parsed-tramp-file-name name nil ;; If connection is not established yet, run the real handler. (if (not (tramp-connectable-p v)) - (tramp-run-real-handler #'expand-file-name (list name)) + (tramp-drop-volume-letter + (tramp-run-real-handler #'expand-file-name (list name))) (unless (tramp-run-real-handler #'file-name-absolute-p (list localname)) (setq localname (concat "~/" localname))) ;; Tilde expansion if necessary. This needs a shell which |