From: Michael Albinus <michael.albinus@gmx.de>
Date: Tue, 15 Feb 2022 17:13:04 +0000 (+0100)
Subject: Fix problem with popd for in remote shell buffers
X-Git-Tag: emacs-28.0.92~47
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5b7752a865f22171a6389b6c26dd13ad7009a2de;p=emacs.git

Fix problem with popd for in remote shell buffers

* lisp/shell.el (shell-prefixed-directory-name):
Use `file-local-name' for DIR.  (Bug#53927)
---

diff --git a/lisp/shell.el b/lisp/shell.el
index ffaeb61c0e7..c9def1bb3f3 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -941,7 +941,7 @@ Environment variables are expanded, see function `substitute-in-file-name'."
       dir
     (if (file-name-absolute-p dir)
 	;; The name is absolute, so prepend the prefix.
-	(concat comint-file-name-prefix dir)
+	(concat comint-file-name-prefix (file-local-name dir))
       ;; For relative name we assume default-directory already has the prefix.
       (expand-file-name dir))))