From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Sat, 23 Aug 2008 16:57:13 +0000 (+0000)
Subject: (vc-dir-prepare-status-buffer): Make sure we use a
X-Git-Tag: emacs-pretest-23.0.90~3322
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4714a48169761d83a09a23cea3e7dd20226ae6e3;p=emacs.git

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

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