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/ChangeLog | 5 +++++ lisp/vc-git.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d3692e6ac7f..b6374989031 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-03-07 Štěpán Němec (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 * calculator.el (calculator): Don't bind split-window-keep-point 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