mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

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

Browse Source 
function.
This commit is contained in:
André Spiegel 2004-01-20 17:41:18 +00:00
parent 1b5a73430e
commit f2a2e61bb2
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/vc-cvs.el
View File

@ -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
;;;