Mercurial > emacs

diff lisp/shell.el @ 111416:7a88e72dff57

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* shell.el (shell-process-popd): Made aware of comint-file-name-prefix.
author Michael Albinus <michael.albinus@gmx.de>
date Sat, 06 Nov 2010 13:08:58 +0100
parents cc035ccb9275
children 249a1455856a
line wrap: on
line diff
--- a/lisp/shell.el	Sat Nov 06 11:31:56 2010 +0100
+++ b/lisp/shell.el	Sat Nov 06 13:08:58 2010 +0100
@@ -700,7 +700,7 @@
 (defun shell-process-popd (arg)
   (let ((num (or (shell-extract-num arg) 0)))
     (cond ((and num (= num 0) shell-dirstack)
-	   (shell-cd (car shell-dirstack))
+	   (shell-cd (shell-prefixed-directory-name (car shell-dirstack)))
 	   (setq shell-dirstack (cdr shell-dirstack))
 	   (shell-dirstack-message))
 	  ((and num (> num 0) (<= num (length shell-dirstack)))