From b7e97ed5040d01cc08fe9361072e60d8a220ed54 Mon Sep 17 00:00:00 2001 From: Simon Marshall Date: Thu, 2 Mar 1995 08:59:07 +0000 Subject: [PATCH] Make sure shell-cd sets list-buffers-directory to a directory ending with `/'. --- lisp/shell.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 () -- 2.39.5