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 ffaeb61c0e779ef904e61114e164e35a450016c4..c9def1bb3f34c2095d4306adc975844c7e0f7796 100644 (file)
--- 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))))