Correct pathname for vc-git-annotate-extract-revision-at-line (Bug#5657)

* vc-git.el (vc-git-annotate-extract-revision-at-line): Use
vc-git-root as default direcotry for revision path (Bug#5657).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d3692e6ac7fcf9980788c8fd8511978abdf6c70f..b6374989031bcf42a77c72b341c81c1f0d787bdc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-03-07  Štěpán Němec  <stepnem@gmail.com>  (tiny change)
+
+       * vc-git.el (vc-git-annotate-extract-revision-at-line): Use
+       vc-git-root as default direcotry for revision path (Bug#5657).
+
 2010-03-06  Chong Yidong  <cyd@stupidchicken.com>
 
        * calculator.el (calculator): Don't bind split-window-keep-point

diff --git a/lisp/vc-git.el b/lisp/vc-git.el
index d645a4c05ba17e7af11ebc0a767b323d3d1b319b..9362ad743eeeb60b5a852e21ecf47caad10ef4a9 100644 (file)
--- a/lisp/vc-git.el
+++ b/lisp/vc-git.el
@@ -703,7 +703,8 @@ or BRANCH^ (where \"^\" can be repeated)."
     (when (looking-at "\\([0-9a-f^][0-9a-f]+\\) \\(\\([^(]+\\) \\)?")
       (let ((revision (match-string-no-properties 1)))
        (if (match-beginning 2)
-         (cons revision (expand-file-name (match-string-no-properties 3)))
+           (cons revision (expand-file-name (match-string-no-properties 3)
+                                            (vc-git-root default-directory)))
          revision)))))
 
 ;;; TAG SYSTEM