diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2002-03-06 13:51:28 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2002-03-06 13:51:28 +0000 |
| commit | a10cd561953281246c7b7904a55e042ae901d77b (patch) | |
| tree | 7057af6d3b40f5a12452672635f6a340dbabb85a /lisp/vc.el | |
| parent | c1a227eaf24545bc2b65fdb5aeedc326af3b4681 (diff) | |
| download | emacs-a10cd561953281246c7b7904a55e042ae901d77b.tar.gz | |
(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.
Diffstat (limited to 'lisp/vc.el')
| -rw-r--r-- | lisp/vc.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index 60a6a07e943..648deb72b52 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -6,7 +6,7 @@ ;; Maintainer: Andre Spiegel <spiegel@gnu.org> ;; 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)))) +;;;###autoload (defun vc-branch-part (rev) "Return the branch part of a revision number REV." (let ((index (string-match "\\.[0-9]+\\'" rev))) |