(shell-dirstack-message): Recognize ~ by matching the expansion of "~" with

comint-filename-prefix prepended.  Strip comint-filename-prefix from elts.

diff --git a/lisp/shell.el b/lisp/shell.el
index 530ea4478ac4131d400f029742c4ce2963af660e..27f16685a1bcf3164e2d598e011824d7d5d14504 100644 (file)
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -522,12 +522,21 @@ command again."
 ;;; All the commands that mung the buffer's dirstack finish by calling
 ;;; this guy.
 (defun shell-dirstack-message ()
-  (let ((msg "")
-       (ds (cons default-directory shell-dirstack)))
+  (let* ((msg "")
+        (ds (cons default-directory shell-dirstack))
+        (home (expand-file-name (concat comint-filename-prefix "~/")))
+        (homelen (length home)))
     (while ds
       (let ((dir (car ds)))
-       (if (string-match (format "^%s\\(/\\|$\\)" (getenv "HOME")) dir)
-           (setq dir (concat "~/" (substring dir (match-end 0)))))
+       (and (>= (length dir) homelen) (string= home (substring dir 0 homelen))
+           (setq dir (concat "~/" (substring dir homelen))))
+       ;; Strip off comint-filename-prefix if present.
+       (and comint-filename-prefix
+            (>= (length dir) (length comint-filename-prefix))
+            (string= comint-filename-prefix
+                     (substring dir 0 (length comint-filename-prefix)))
+            (setq dir (substring dir (length comint-filename-prefix)))
+            (setcar ds dir))
        (if (string-equal dir "~/") (setq dir "~"))
        (setq msg (concat msg dir " "))
        (setq ds (cdr ds))))