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

diff --git a/lisp/shell.el b/lisp/shell.el
index ba87a0f8ba4089561e47a37b96729a60f2dbd4d0..9f07194d305c76718aec93fb9c6544a9b624e7fe 100644 (file)
--- 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 ()