322 |
(list vc-checkin-switches) |
(list vc-checkin-switches) |
323 |
vc-checkin-switches)) |
vc-checkin-switches)) |
324 |
status) |
status) |
325 |
(if (not rev) |
(if (or (not rev) (vc-cvs-valid-version-number-p rev)) |
326 |
(setq status (apply 'vc-cvs-command nil 1 file |
(setq status (apply 'vc-cvs-command nil 1 file |
327 |
"ci" (if rev (concat "-r" rev)) |
"ci" (if rev (concat "-r" rev)) |
328 |
(concat "-m" comment) |
(concat "-m" comment) |
816 |
(and (string-match "^[a-zA-Z]" tag) |
(and (string-match "^[a-zA-Z]" tag) |
817 |
(not (string-match "[^a-z0-9A-Z-_]" tag)))) |
(not (string-match "[^a-z0-9A-Z-_]" tag)))) |
818 |
|
|
819 |
|
(defun vc-cvs-valid-version-number-p (tag) |
820 |
|
"Return non-nil if TAG is a valid version number." |
821 |
|
(and (string-match "^[0-9]" tag) |
822 |
|
(not (string-match "[^0-9.]" tag)))) |
823 |
|
|
824 |
(defun vc-cvs-parse-sticky-tag (match-type match-tag) |
(defun vc-cvs-parse-sticky-tag (match-type match-tag) |
825 |
"Parse and return the sticky tag as a string. |
"Parse and return the sticky tag as a string. |