Mercurial > emacs
changeset 107347:ff09b16a7200
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).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 07 Mar 2010 09:45:53 -0500 |
| parents | 6ac7a46c38cc |
| children | 1cbedcbd728f |
| files | lisp/ChangeLog lisp/vc-git.el |
| diffstat | 2 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Mar 06 15:35:04 2010 -0500 +++ b/lisp/ChangeLog Sun Mar 07 09:45:53 2010 -0500 @@ -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
--- a/lisp/vc-git.el Sat Mar 06 15:35:04 2010 -0500 +++ b/lisp/vc-git.el Sun Mar 07 09:45:53 2010 -0500 @@ -703,7 +703,8 @@ (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