46 |
|
|
47 |
;; This mode is fully documented in the Emacs user's manual. |
;; This mode is fully documented in the Emacs user's manual. |
48 |
;; |
;; |
49 |
;; Supported version-control systems presently include SCCS, RCS, and CVS. |
;; Supported version-control systems presently include CVS, RCS, GNU Arch, |
50 |
|
;; Subversion, Meta-CVS, and SCCS (or its free replacement, CSSC). |
51 |
;; |
;; |
52 |
;; Some features will not work with old RCS versions. Where |
;; Some features will not work with old RCS versions. Where |
53 |
;; appropriate, VC finds out which version you have, and allows or |
;; appropriate, VC finds out which version you have, and allows or |
69 |
;; |
;; |
70 |
;; The vc code maintains some internal state in order to reduce expensive |
;; The vc code maintains some internal state in order to reduce expensive |
71 |
;; version-control operations to a minimum. Some names are only computed |
;; version-control operations to a minimum. Some names are only computed |
72 |
;; once. If you perform version control operations with RCS/SCCS/CVS while |
;; once. If you perform version control operations with the backend while |
73 |
;; vc's back is turned, or move/rename master files while vc is running, |
;; vc's back is turned, or move/rename master files while vc is running, |
74 |
;; vc may get seriously confused. Don't do these things! |
;; vc may get seriously confused. Don't do these things! |
75 |
;; |
;; |
738 |
;; functions that operate on RCS revision numbers. This code should |
;; functions that operate on RCS revision numbers. This code should |
739 |
;; also be moved into the backends. It stays for now, however, since |
;; also be moved into the backends. It stays for now, however, since |
740 |
;; it is used in code below. |
;; it is used in code below. |
741 |
|
;;;###autoload |
742 |
(defun vc-trunk-p (rev) |
(defun vc-trunk-p (rev) |
743 |
"Return t if REV is a revision on the trunk." |
"Return t if REV is a revision on the trunk." |
744 |
(not (eq nil (string-match "\\`[0-9]+\\.[0-9]+\\'" rev)))) |
(not (eq nil (string-match "\\`[0-9]+\\.[0-9]+\\'" rev)))) |