Commit 6f20dd03 authored by Dmitry Gutov's avatar Dmitry Gutov
Browse files

* lisp/vc/vc-git.el (vc-git-annotate-extract-revision-at-line): Make it

work when annotation is invisible.

Fixes: debbugs:13886
parent 1bb1b50d
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
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment