Mercurial > emacs
changeset 43744:5c8c45f534eb
(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.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 06 Mar 2002 13:51:28 +0000 |
| parents | a5d4faa318e3 |
| children | e959a4317633 |
| files | lisp/vc.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc.el Wed Mar 06 11:03:56 2002 +0000 +++ b/lisp/vc.el Wed Mar 06 13:51:28 2002 +0000 @@ -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 @@ "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)))