Mercurial > emacs
changeset 4676:a95bec390bc3
(shell-resync-dirs, shell-process-cd, shell-process-pushd,
shell-process-popd): Prepend comint-filename-prefix to directory names when
calling cd.
author | Roland McGrath <roland@gnu.org> |
---|---|
date | Wed, 08 Sep 1993 07:01:42 +0000 |
parents | f4ab5299a1e4 |
children | 835ecfabae68 |
files | lisp/shell.el |
diffstat | 1 files changed, 8 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/shell.el Wed Sep 08 06:59:23 1993 +0000 +++ b/lisp/shell.el Wed Sep 08 07:01:42 1993 +0000 @@ -382,7 +382,8 @@ (shell-extract-num arg)))) (if (and num (< num (length shell-dirstack))) (if (= num 0) ; condition-case because the CD could lose. - (condition-case nil (progn (cd (car shell-dirstack)) + (condition-case nil (progn (cd (concat comint-filename-prefix + (car shell-dirstack))) (setq shell-dirstack (cdr shell-dirstack)) (shell-dirstack-message)) @@ -403,7 +404,7 @@ ((string-equal "-" arg) shell-last-dir) (t arg)))) (setq shell-last-dir default-directory) - (cd new-dir) + (cd (concat comint-filename-prefix new-dir)) (shell-dirstack-message)) (error (message "Couldn't cd.")))) @@ -413,7 +414,8 @@ ;; no arg -- swap pwd and car of shell stack (condition-case nil (if shell-dirstack (let ((old default-directory)) - (cd (car shell-dirstack)) + (cd (concat comint-filename-prefix + (car shell-dirstack))) (setq shell-dirstack (cons old (cdr shell-dirstack))) (shell-dirstack-message)) @@ -431,7 +433,7 @@ (back (reverse (nthcdr (- dslen num) (reverse ds)))) (new-ds (append front back))) (condition-case nil - (progn (cd (car new-ds)) + (progn (cd (concat comint-filename-prefix (car new-ds))) (setq shell-dirstack (cdr new-ds)) (shell-dirstack-message)) (error (message "Couldn't cd."))))) @@ -439,7 +441,7 @@ ;; pushd <dir> (let ((old-wd default-directory)) (condition-case nil - (progn (cd arg) + (progn (cd (concat comint-filename-prefix arg)) (setq shell-dirstack (cons old-wd shell-dirstack)) (shell-dirstack-message)) @@ -501,7 +503,7 @@ (setq i (match-end 0))) (let ((ds (reverse ds))) (condition-case nil - (progn (cd (car ds)) + (progn (cd (concat comint-filename-prefix (car ds))) (setq shell-dirstack (cdr ds)) (shell-dirstack-message)) (error (message "Couldn't cd.")))))))