[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r115219: * lisp/vc/vc-git.el (vc-git-annotate-extrac
From: |
Dmitry Gutov |
Subject: |
[Emacs-diffs] trunk r115219: * lisp/vc/vc-git.el (vc-git-annotate-extract-revision-at-line): Make it |
Date: |
Mon, 25 Nov 2013 02:28:12 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 115219
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/13886
committer: Dmitry Gutov <address@hidden>
branch nick: trunk
timestamp: Mon 2013-11-25 04:28:02 +0200
message:
* lisp/vc/vc-git.el (vc-git-annotate-extract-revision-at-line): Make it
work when annotation is invisible.
modified:
lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432
lisp/vc/vc-git.el vcgit.el-20091113204419-o5vbwnq5f7feedwu-5070
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-11-24 22:53:35 +0000
+++ b/lisp/ChangeLog 2013-11-25 02:28:02 +0000
@@ -1,3 +1,8 @@
+2013-11-25 Dmitry Gutov <address@hidden>
+
+ * 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 <address@hidden> (tiny change)
* json.el (json-alist-p): Only return non-nil if the alist has
=== modified file 'lisp/vc/vc-git.el'
--- a/lisp/vc/vc-git.el 2013-11-19 20:23:53 +0000
+++ b/lisp/vc/vc-git.el 2013-11-25 02:28:02 +0000
@@ -931,7 +931,7 @@
(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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r115219: * lisp/vc/vc-git.el (vc-git-annotate-extract-revision-at-line): Make it,
Dmitry Gutov <=