[Emacs-diffs] /srv/bzr/emacs/trunk r102264: * shell.el (shell-process-popd): Made aware of comint-file-name-prefix.

[Michael Albinus]

------------------------------------------------------------
revno: 102264
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Sat 2010-11-06 13:08:58 +0100
message:
  * shell.el (shell-process-popd): Made aware of comint-file-name-prefix.
modified:
  lisp/ChangeLog
  lisp/shell.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-11-05 12:11:12 +0000
+++ b/lisp/ChangeLog    2010-11-06 12:08:58 +0000
@@ -1,3 +1,7 @@
+2010-11-05  Christian Millour  <address@hidden>  (tiny change)
+
+       * shell.el (shell-process-popd): Made aware of comint-file-name-prefix.
+
 2010-11-05  Jan Djärv  <address@hidden>
 
        * mouse.el (mouse-yank-primary): Update comment (Bug#6802).

=== modified file 'lisp/shell.el'
--- a/lisp/shell.el     2010-10-10 23:12:30 +0000
+++ b/lisp/shell.el     2010-11-06 12:08:58 +0000
@@ -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)))