Commit a10cd561 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(vc-branch-part): Add autoload cookie. This function can

be called from vc-rcs-find-most-recent-rev when visiting a file
checked into RCS in a CVS sandbox.
parent c1a227ea
......@@ -6,7 +6,7 @@
;; Maintainer: Andre Spiegel <>
;; Keywords: tools
;; $Id: vc.el,v 1.329 2002/02/28 13:01:48 spiegel Exp $
;; $Id: vc.el,v 1.330 2002/03/05 13:14:11 spiegel Exp $
;; This file is part of GNU Emacs.
......@@ -698,6 +698,7 @@ The keys are \(BUFFER . BACKEND\). See also `vc-annotate-get-backend'.")
"Return t if REV is a branch revision."
(not (eq nil (string-match "\\`[0-9]+\\(\\.[0-9]+\\.[0-9]+\\)*\\'" rev))))
(defun vc-branch-part (rev)
"Return the branch part of a revision number REV."
(let ((index (string-match "\\.[0-9]+\\'" rev)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment