From: Dmitry Gutov <dgutov@yandex.ru>
Date: Mon, 25 Nov 2013 02:28:02 +0000 (+0200)
Subject: * lisp/vc/vc-git.el (vc-git-annotate-extract-revision-at-line): Make it
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~712
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6f20dd038e1ead5741a41001efc86cca63c0cf2e;p=emacs.git

* lisp/vc/vc-git.el (vc-git-annotate-extract-revision-at-line): Make it
work when annotation is invisible.

Fixes: debbugs:13886
---

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  <dgutov@yandex.ru>
+
+	* 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)