procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix Tramp on MS Windows

Browse source 
* lisp/net/tramp-sh.el (tramp-sh-handle-expand-file-name):
Apply `tramp-drop-volume-letter' consequently.
This commit is contained in:
Michael Albinus 2023-08-27 20:06:13 +02:00
parent ea5fd6c96b
commit 34f7a47c9c
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/net/tramp-sh.el
View file

@ -2825,7 +2825,8 @@ the result will be a local, non-Tramp, file name."
(with-parsed-tramp-file-name name nil (with-parsed-tramp-file-name name nil
;; If connection is not established yet, run the real handler. ;; If connection is not established yet, run the real handler.
(if (not (tramp-connectable-p v)) (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)) (unless (tramp-run-real-handler #'file-name-absolute-p (list localname))
(setq localname (concat "~/" localname))) (setq localname (concat "~/" localname)))
;; Tilde expansion if necessary. This needs a shell which ;; Tilde expansion if necessary. This needs a shell which