From: André Spiegel <spiegel@gnu.org>
Date: Tue, 20 Jan 2004 17:41:18 +0000 (+0000)
Subject: * vc-cvs.el (vc-cvs-annotate-extract-revision-at-line): New
X-Git-Tag: ttn-vms-21-2-B4~7892
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f2a2e61bb2bde59f656ca7fa0576cc15606df28d;p=emacs.git

* vc-cvs.el (vc-cvs-annotate-extract-revision-at-line): New
function.
---

diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index 048cb6ccfb4..400a1ffb105 100644
--- a/lisp/vc-cvs.el
+++ b/lisp/vc-cvs.el
@@ -5,7 +5,7 @@
 ;; Author:      FSF (see vc.el for full credits)
 ;; Maintainer:  Andre Spiegel <spiegel@gnu.org>
 
-;; $Id$
+;; $Id: vc-cvs.el,v 1.66 2003/10/01 13:22:53 fx Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -625,6 +625,14 @@ systime, or nil if there is none."
 	  (beginning-of-line nil)
 	    (vc-cvs-annotate-time))))))
 
+(defun vc-cvs-annotate-extract-revision-at-line ()
+  (save-excursion
+    (beginning-of-line)
+    (if (re-search-forward "^\\([0-9]+\\.[0-9]+\\(\\.[0-9]+\\)*\\) +("
+			   (line-end-position) t)
+	(match-string-no-properties 1)
+      nil)))
+
 ;;;
 ;;; Snapshot system
 ;;;