diff options
| author | Michael Albinus | 2010-11-06 13:08:58 +0100 |
|---|---|---|
| committer | Michael Albinus | 2010-11-06 13:08:58 +0100 |
| commit | f8aefe82d2bbca46b162c75b1217d8b4bd9ebb09 (patch) | |
| tree | 182405d52bf4b204a0b219c933612cc9012fe651 /lisp/shell.el | |
| parent | 4abfb7532c948b4c8305e7590b95f8a512fea6d3 (diff) | |
| download | emacs-f8aefe82d2bbca46b162c75b1217d8b4bd9ebb09.tar.gz emacs-f8aefe82d2bbca46b162c75b1217d8b4bd9ebb09.zip | |
* shell.el (shell-process-popd): Made aware of comint-file-name-prefix.
Diffstat (limited to 'lisp/shell.el')
| -rw-r--r-- | lisp/shell.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/shell.el b/lisp/shell.el index 6cb9a511101..b7f62efdb85 100644 --- a/lisp/shell.el +++ b/lisp/shell.el | |||
| @@ -700,7 +700,7 @@ Environment variables are expanded, see function `substitute-in-file-name'." | |||
| 700 | (defun shell-process-popd (arg) | 700 | (defun shell-process-popd (arg) |
| 701 | (let ((num (or (shell-extract-num arg) 0))) | 701 | (let ((num (or (shell-extract-num arg) 0))) |
| 702 | (cond ((and num (= num 0) shell-dirstack) | 702 | (cond ((and num (= num 0) shell-dirstack) |
| 703 | (shell-cd (car shell-dirstack)) | 703 | (shell-cd (shell-prefixed-directory-name (car shell-dirstack))) |
| 704 | (setq shell-dirstack (cdr shell-dirstack)) | 704 | (setq shell-dirstack (cdr shell-dirstack)) |
| 705 | (shell-dirstack-message)) | 705 | (shell-dirstack-message)) |
| 706 | ((and num (> num 0) (<= num (length shell-dirstack))) | 706 | ((and num (> num 0) (<= num (length shell-dirstack))) |