mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(vc-cvs-checkin): Use it.
This commit is contained in:
Sam Steingold 2002-04-09 17:13:51 +00:00
parent 41bfcbee0d
commit 93bcb353e7
2 changed files with 13 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

@ -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,Bm(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)

8
lisp/vc-cvs.el
View file

@ -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.