From f2a2e61bb2bde59f656ca7fa0576cc15606df28d Mon Sep 17 00:00:00 2001 From: =?utf8?q?Andr=C3=A9=20Spiegel?= Date: Tue, 20 Jan 2004 17:41:18 +0000 Subject: [PATCH] * vc-cvs.el (vc-cvs-annotate-extract-revision-at-line): New function. --- lisp/vc-cvs.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) 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 -;; $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 ;;; -- 2.39.2