From 6f20dd038e1ead5741a41001efc86cca63c0cf2e Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Mon, 25 Nov 2013 04:28:02 +0200 Subject: [PATCH] * lisp/vc/vc-git.el (vc-git-annotate-extract-revision-at-line): Make it work when annotation is invisible. Fixes: debbugs:13886 --- lisp/ChangeLog | 5 +++++ lisp/vc/vc-git.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 349d12225fc..f2d2f732222 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-11-25 Dmitry Gutov + + * vc/vc-git.el (vc-git-annotate-extract-revision-at-line): Make it + work when annotation is invisible (Bug#13886). + 2013-11-24 Simon Schubert <2@0x2c.org> (tiny change) * json.el (json-alist-p): Only return non-nil if the alist has diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el index fd5c91ef490..8acb23dfd6c 100644 --- a/lisp/vc/vc-git.el +++ b/lisp/vc/vc-git.el @@ -931,7 +931,7 @@ or BRANCH^ (where \"^\" can be repeated)." (defun vc-git-annotate-extract-revision-at-line () (save-excursion - (move-beginning-of-line 1) + (beginning-of-line) (when (looking-at "\\([0-9a-f^][0-9a-f]+\\) \\(\\([^(]+\\) \\)?") (let ((revision (match-string-no-properties 1))) (if (match-beginning 2) -- 2.39.2