Mercurial > emacs

changeset 4676:a95bec390bc3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.")))))))