mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* vc-git.el (vc-git-annotate-extract-revision-at-line): Use
vc-git-root as default direcotry for revision path (Bug#5657).
This commit is contained in:
Chong Yidong 2010-03-07 09:45:53 -05:00
parent 300ad19d43
commit 1c465a6a67
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

3
lisp/vc-git.el
View file

@ -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