From: Simon Marshall <simon@gnu.org>
Date: Thu, 2 Mar 1995 08:59:07 +0000 (+0000)
Subject: Make sure shell-cd sets list-buffers-directory to a directory ending with `/'.
X-Git-Tag: emacs-19.34~4980
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b7e97ed5040d01cc08fe9361072e60d8a220ed54;p=emacs.git

Make sure shell-cd sets list-buffers-directory to a directory ending with `/'.
---

diff --git a/lisp/shell.el b/lisp/shell.el
index ba87a0f8ba4..9f07194d305 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -549,7 +549,9 @@ Environment variables are expanded, see function `substitute-in-file-name'."
 
 (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 ()