# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1219510633 0
# Node ID cf2cf606d5d7e5922fe8592856b8425e5daf819c
# Parent  6358f03eb00324957dbbecf578c3aaa1c9e02ba3
(vc-dir-prepare-status-buffer): Make sure we use a
directory name.

diff -r 6358f03eb003 -r cf2cf606d5d7 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Aug 23 16:56:59 2008 +0000
+++ b/lisp/ChangeLog	Sat Aug 23 16:57:13 2008 +0000
@@ -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 -r 6358f03eb003 -r cf2cf606d5d7 lisp/vc-dir.el
--- a/lisp/vc-dir.el	Sat Aug 23 16:56:59 2008 +0000
+++ b/lisp/vc-dir.el	Sat Aug 23 16:57:13 2008 +0000
@@ -88,7 +88,7 @@
 
 (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