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).

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

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