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

[bpt/emacs.git] / lisp / vc-git.el

diff --git a/lisp/vc-git.el b/lisp/vc-git.el
index d645a4c..9362ad7 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