Mercurial > emacs
comparison lisp/vc.el @ 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 | 60a9d71aad02 |
children | 386acc7f6c4d |
comparison
equal
deleted
inserted
replaced
43743:a5d4faa318e3 | 43744:5c8c45f534eb |
---|---|
4 | 4 |
5 ;; Author: FSF (see below for full credits) | 5 ;; Author: FSF (see below for full credits) |
6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> | 6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> |
7 ;; Keywords: tools | 7 ;; Keywords: tools |
8 | 8 |
9 ;; $Id: vc.el,v 1.329 2002/02/28 13:01:48 spiegel Exp $ | 9 ;; $Id: vc.el,v 1.330 2002/03/05 13:14:11 spiegel Exp $ |
10 | 10 |
11 ;; This file is part of GNU Emacs. | 11 ;; This file is part of GNU Emacs. |
12 | 12 |
13 ;; GNU Emacs is free software; you can redistribute it and/or modify | 13 ;; GNU Emacs is free software; you can redistribute it and/or modify |
14 ;; it under the terms of the GNU General Public License as published by | 14 ;; it under the terms of the GNU General Public License as published by |
696 | 696 |
697 (defun vc-branch-p (rev) | 697 (defun vc-branch-p (rev) |
698 "Return t if REV is a branch revision." | 698 "Return t if REV is a branch revision." |
699 (not (eq nil (string-match "\\`[0-9]+\\(\\.[0-9]+\\.[0-9]+\\)*\\'" rev)))) | 699 (not (eq nil (string-match "\\`[0-9]+\\(\\.[0-9]+\\.[0-9]+\\)*\\'" rev)))) |
700 | 700 |
701 ;;;###autoload | |
701 (defun vc-branch-part (rev) | 702 (defun vc-branch-part (rev) |
702 "Return the branch part of a revision number REV." | 703 "Return the branch part of a revision number REV." |
703 (let ((index (string-match "\\.[0-9]+\\'" rev))) | 704 (let ((index (string-match "\\.[0-9]+\\'" rev))) |
704 (if index | 705 (if index |
705 (substring rev 0 index)))) | 706 (substring rev 0 index)))) |