[nongnu] elpa/vc-fossil ec8c00c 058/111: Fix extraction of revision in annotate buffer.

[ELPA Syncer]

branch: elpa/vc-fossil
commit ec8c00cc5bffb993e9f1a107ac969b64b4a1f2db
Author: fifr <fifr>
Commit: fifr <fifr>

    Fix extraction of revision in annotate buffer.
---
 vc/el/vc-fossil.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/vc/el/vc-fossil.el b/vc/el/vc-fossil.el
index 84261a9..1b5af79 100644
--- a/vc/el/vc-fossil.el
+++ b/vc/el/vc-fossil.el
@@ -300,17 +300,19 @@ If REV is specified, annotate that revision."
 (defconst vc-fossil-annotate-re
   "\\([[:word:]]+\\)\\s-+\\([-0-9]+\\)\\s-+[0-9]+: ")
 
+;; TODO: currently only the date is used, not the time
 (defun vc-fossil-annotate-time ()
   (when (looking-at vc-fossil-annotate-re)
     (goto-char (match-end 0))
     (vc-annotate-convert-time
      (date-to-time (format "%s 00:00:00" (match-string-no-properties 2))))))
 
-;; TODO: currently only the date is used, not the time
 (defun vc-fossil-annotate-extract-revision-at-line ()
-  (when (looking-at vc-fossil-annotate-re)
-    (goto-char (match-end 0))
-    (match-string-no-properties 1)))
+  (save-excursion
+    (beginning-of-line)
+    (when (looking-at vc-fossil-annotate-re)
+      (goto-char (match-end 0))
+      (match-string-no-properties 1))))
 
 ;;; TAG SYSTEM