From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 27 Aug 2023 18:06:13 +0000 (+0200)
Subject: Fix Tramp on MS Windows
X-Git-Tag: emacs-29.1.90~169
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=34f7a47c9ce;p=emacs.git

Fix Tramp on MS Windows

* lisp/net/tramp-sh.el (tramp-sh-handle-expand-file-name):
Apply `tramp-drop-volume-letter' consequently.
---

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