Make vc-dir default to repository root

* lisp/vc/vc-dir.el (vc-dir): Default to repository root, not
default-directory.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cabad65d8c76eb07cd1b146abc5fb1859820f6b7..22a06a9168ce1ad41e6084136ffd1ab6d7115b0d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-01-20  Daniel Colascione  <dancol@dancol.org>
+
+       * vc/vc-dir.el (vc-dir): Default to repository root, not
+       default-directory.
+
 2015-01-20  Dmitry Gutov  <dgutov@yandex.ru>
 
        * progmodes/etags.el (xref-etags-location): New class.

diff --git a/lisp/vc/vc-dir.el b/lisp/vc/vc-dir.el
index 8bba79c111f618ed07c446331e0a3e68c02e3bdd..e050c9475041a09ed650de57bd8b0e24db5e93a9 100644 (file)
--- a/lisp/vc/vc-dir.el
+++ b/lisp/vc/vc-dir.el
@@ -1241,7 +1241,7 @@ These are the commands available for use in the file status buffer:
     ;; Otherwise if you do C-x v d -> C-x C-f -> C-c v d
     ;; you may get a new *vc-dir* buffer, different from the original
     (file-truename (read-directory-name "VC status for directory: "
-                                       default-directory default-directory t
+                                       (vc-root-dir) nil t
                                        nil))
     (if current-prefix-arg
        (intern