mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

* shell.el (shell-process-popd): Made aware of comint-file-name-prefix.

Browse Source
This commit is contained in:
Michael Albinus 2010-11-06 13:08:58 +01:00
parent 4abfb7532c
commit f8aefe82d2
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2010-11-05 Christian Millour <cm@abtela.com> (tiny change)
* shell.el (shell-process-popd): Made aware of comint-file-name-prefix.
2010-11-05 Jan Djärv <jan.h.d@swipnet.se>
* mouse.el (mouse-yank-primary): Update comment (Bug#6802).

2
lisp/shell.el
View File

@ -700,7 +700,7 @@ Environment variables are expanded, see function `substitute-in-file-name'."
(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)))