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

directory name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7f4c2d8df6d1bb5243655b36e678d9d8a985077f..f88b7489d9735155cab47d02ba98014f29b21928 100644 (file)
--- 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 011262e488fff96fec0ff6436df5f83d54db1466..bd998fbac3fafc3f6988cec8b31a11a0a241656b 100644 (file)
--- 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