From 1c465a6a67c09f05045d2bdcd60f722f0ccc57e4 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 7 Mar 2010 09:45:53 -0500 Subject: 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/vc-git.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisp/vc-git.el') diff --git a/lisp/vc-git.el b/lisp/vc-git.el index d645a4c05ba..9362ad743ee 100644 --- 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 -- cgit v1.2.1