1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00

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

comint-filename-prefix prepended.  Strip comint-filename-prefix from elts.
This commit is contained in:
Roland McGrath 1993-09-08 07:39:14 +00:00
parent 09567b5cb1
commit 94f9dcbecf

View File

@ -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))))