Mercurial > emacs
changeset 10878:9556a4d578f2
Make sure shell-cd sets list-buffers-directory to a directory ending with `/'.
| author | Simon Marshall <simon@gnu.org> |
|---|---|
| date | Thu, 02 Mar 1995 08:59:07 +0000 |
| parents | 892c03bfe161 |
| children | 73ce8261c2ce |
| files | lisp/shell.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/shell.el Thu Mar 02 08:34:04 1995 +0000 +++ b/lisp/shell.el Thu Mar 02 08:59:07 1995 +0000 @@ -549,7 +549,9 @@ (defun shell-cd (dir) "Do normal `cd' to DIR, and set `list-buffers-directory'." - (if shell-dirtrackp (setq list-buffers-directory (expand-file-name dir))) + (if shell-dirtrackp + (setq list-buffers-directory (file-name-as-directory + (expand-file-name dir)))) (cd dir)) (defun shell-resync-dirs ()