Mercurial > emacs

diff lisp/shell.el @ 10878:9556a4d578f2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 32d4c4ca1ff8
children 5abad4aec8e0
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 ()