mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-18 11:50:38 -08:00
Code Issues Projects Releases Wiki Activity

(vc-cvs-checkin): Pass the required argument to `error'.

Browse source
This commit is contained in:
Sam Steingold 2002-04-08 13:38:48 +00:00
parent 2c9dccc9e8
commit 968b980cd8
2 changed files with 23 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2002-04-07 Sam Steingold <sds@gnu.org>
* vc-cvs.el (vc-cvs-checkin): Pass the required argument to `error'.
2002-04-08 Pavel Jan,Bm(Bk <Pavel@Janik.cz> 2002-04-08 Pavel Jan,Bm(Bk <Pavel@Janik.cz>
* files.el (display-time-string): Fix last change. * files.el (display-time-string): Fix last change.

4
lisp/vc-cvs.el
View file

@ -5,7 +5,7 @@
;; Author: FSF (see vc.el for full credits) ;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <spiegel@gnu.org> ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
;; $Id: vc-cvs.el,v 1.37 2002/03/22 23:10:01 monnier Exp $ ;; $Id: vc-cvs.el,v 1.38 2002/03/28 14:27:30 spiegel Exp $
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
@ -328,7 +328,7 @@ This is only possible if CVS is responsible for FILE's directory."
(concat "-m" comment) (concat "-m" comment)
switches)) switches))
(if (not (vc-cvs-valid-symbolic-tag-name-p rev)) (if (not (vc-cvs-valid-symbolic-tag-name-p rev))
(error "%s is not a valid symbolic tag name") (error "%s is not a valid symbolic tag name" rev)
;; If the input revison is a valid symbolic tag name, we create it ;; If the input revison is a valid symbolic tag name, we create it
;; as a branch, commit and switch to it. ;; as a branch, commit and switch to it.
(apply 'vc-cvs-command nil 0 file "tag" "-b" (list rev)) (apply 'vc-cvs-command nil 0 file "tag" "-b" (list rev))