(vc-cvs-valid-version-number-p): New function.

(vc-cvs-checkin): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7a14c1a419de881be5506d48a389fa91e24398ec..124a1cf006352377c5ce406f73baa04f32c40b2b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -43,14 +43,19 @@
        * international/mule-cmds.el (reset-language-environment):
        Handle coding-systems not being defined yet.
 
-2002-04-07  Sam Steingold  <sds@gnu.org>
+2002-04-08  Sam Steingold  <sds@gnu.org>
 
-       * vc-cvs.el (vc-cvs-checkin): Pass the required argument to `error'.
+       * vc-cvs.el (vc-cvs-valid-version-number-p): New function.
+       (vc-cvs-checkin): Use it.
 
 2002-04-08  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
 
        * files.el (display-time-string): Fix last change.
 
+2002-04-07  Sam Steingold  <sds@gnu.org>
+
+       * vc-cvs.el (vc-cvs-checkin): Pass the required argument to `error'.
+
 2002-04-07  Jason Rumney  <jasonr@gnu.org>
 
        * international/mule-cmds.el (set-default-coding-systems)

diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index 5a92f8fa0f3ef0bdaead6cade08dcb522c6dbf5b..67c209eb31b9fc75e26a60fde65ff80a40319ed8 100644 (file)
--- a/lisp/vc-cvs.el
+++ b/lisp/vc-cvs.el
@@ -5,7 +5,7 @@
 ;; Author:      FSF (see vc.el for full credits)
 ;; Maintainer:  Andre Spiegel <spiegel@gnu.org>
 
-;; $Id: vc-cvs.el,v 1.38 2002/03/28 14:27:30 spiegel Exp $
+;; $Id: vc-cvs.el,v 1.39 2002/04/08 13:38:48 sds Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -322,7 +322,7 @@ This is only possible if CVS is responsible for FILE's directory."
                      (list vc-checkin-switches)
                    vc-checkin-switches))
        status)
-    (if (not rev)
+    (if (or (not rev) (vc-cvs-valid-version-number-p rev))
         (setq status (apply 'vc-cvs-command nil 1 file
                             "ci" (if rev (concat "-r" rev))
                             (concat "-m" comment)
@@ -816,6 +816,10 @@ essential information."
   (and (string-match "^[a-zA-Z]" tag)
        (not (string-match "[^a-z0-9A-Z-_]" tag))))
 
+(defun vc-cvs-valid-version-number-p (tag)
+  "Return non-nil if TAG is a valid version number."
+  (and (string-match "^[0-9]" tag)
+       (not (string-match "[^0-9.]" tag))))
 
 (defun vc-cvs-parse-sticky-tag (match-type match-tag)
   "Parse and return the sticky tag as a string.