(vc-dir-prepare-status-buffer): Make sure we use a

directory name.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7f4c2d8df6d..f88b7489d97 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-08-23  Dan Nicolaescu  <dann@ics.uci.edu>
+
+        * vc-dir.el (vc-dir-prepare-status-buffer): Make sure we use a
+        directory name.
+
 2008-08-23  Nick Roberts  <nickrob@snap.net.nz>
 
         * progmodes/gud.el (gud-common-init): Use absolute file so that
diff --git a/lisp/vc-dir.el b/lisp/vc-dir.el
index 011262e488f..bd998fbac3f 100644
--- a/lisp/vc-dir.el
+++ b/lisp/vc-dir.el
@@ -88,7 +88,7 @@ See `run-hooks'."
 
 (defun vc-dir-prepare-status-buffer (bname dir backend &optional create-new)
   "Find a buffer named BNAME showing DIR, or create a new one."
-  (setq dir (expand-file-name dir))
+  (setq dir (file-name-as-directory (expand-file-name dir)))
   (let*
          ;; Look for another buffer name BNAME visiting the same directory.
          ((buf (save-excursion