[Emacs-diffs] Changes to emacs/lisp/vc-cvs.el

[Sam Steingold]

Index: emacs/lisp/vc-cvs.el
diff -c emacs/lisp/vc-cvs.el:1.39 emacs/lisp/vc-cvs.el:1.40
*** emacs/lisp/vc-cvs.el:1.39   Mon Apr  8 09:38:48 2002
--- emacs/lisp/vc-cvs.el        Tue Apr  9 13:13:51 2002
***************
*** 5,11 ****
  ;; Author:      FSF (see vc.el for full credits)
  ;; Maintainer:  Andre Spiegel <address@hidden>
  
! ;; $Id: vc-cvs.el,v 1.39 2002/04/08 13:38:48 sds Exp $
  
  ;; This file is part of GNU Emacs.
  
--- 5,11 ----
  ;; Author:      FSF (see vc.el for full credits)
  ;; Maintainer:  Andre Spiegel <address@hidden>
  
! ;; $Id: vc-cvs.el,v 1.40 2002/04/09 17:13:51 sds Exp $
  
  ;; This file is part of GNU Emacs.
  
***************
*** 322,328 ****
                      (list vc-checkin-switches)
                    vc-checkin-switches))
        status)
!     (if (not rev)
          (setq status (apply 'vc-cvs-command nil 1 file
                              "ci" (if rev (concat "-r" rev))
                              (concat "-m" comment)
--- 322,328 ----
                      (list vc-checkin-switches)
                    vc-checkin-switches))
        status)
!     (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,821 ****
--- 816,825 ----
    (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.