[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/vc-cvs.el
From: |
Sam Steingold |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/vc-cvs.el |
Date: |
Tue, 09 Apr 2002 13:13:52 -0400 |
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.