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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 357cd0ceb69c49584ffe3c80ade6b2d40fced40d..5628198bb32ec19e76d55f6dd72e3f0f118800fd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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\e,Bm\e(Bk  <Pavel@Janik.cz>
 
        * files.el (display-time-string): Fix last change.

diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index 815b9abf692490759a0466110f9b7db4285d659c..5a92f8fa0f3ef0bdaead6cade08dcb522c6dbf5b 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.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.
 
@@ -114,7 +114,7 @@ Here's an example that will display the formatted date for sticky
 dates and the word \"Sticky\" for sticky tag names and revisions.
 
   (lambda (tag type)
-    (cond ((eq type 'date) (format-time-string 
+    (cond ((eq type 'date) (format-time-string
                               vc-cvs-sticky-date-format-string tag))
           ((eq type 'revision-number) \"Sticky\")
           ((eq type 'symbolic-name) \"Sticky\")))
@@ -127,11 +127,11 @@ displayed.  Date and time is displayed for sticky dates.
    (lambda (tag type)
      (cond ((eq type 'date) (format-time-string \"%Y%m%d %H:%M\" tag))
            ((eq type 'revision-number) \"Sticky\")
-           ((eq type 'symbolic-name) 
+           ((eq type 'symbolic-name)
             (condition-case nil
                 (progn
                   (string-match \"\\\\([^-]*\\\\)\\\\(.*\\\\)\" tag)
-                  (concat (substring (match-string 1 tag) 0 1) \":\" 
+                  (concat (substring (match-string 1 tag) 0 1) \":\"
                           (substring (match-string 2 tag) 1 nil)))
               (error tag)))))       ; Fall-back to given tag name.
 
@@ -328,13 +328,13 @@ This is only possible if CVS is responsible for FILE's directory."
                             (concat "-m" comment)
                             switches))
       (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
-        ;; 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 "update" "-r" (list rev))
         (setq status (apply 'vc-cvs-command nil 1 file
-                            "ci" 
+                            "ci"
                             (concat "-m" comment)
                             switches))
         (vc-file-setprop file 'vc-cvs-sticky-tag rev)))
@@ -634,12 +634,12 @@ encoded as fractional days."
 (defun vc-cvs-annotate-time ()
   "Return the time of the next annotation (as fraction of days)
 systime, or nil if there is none."
-  (let ((time-stamp 
+  (let ((time-stamp
         "^\\S-+\\s-+\\S-+\\s-+\\([0-9]+\\)-\\(\\sw+\\)-\\([0-9]+\\)): "))
     (if (looking-at time-stamp)
       (progn
        (let* ((day (string-to-number (match-string 1)))
-                (month (cdr (assoc (match-string 2) 
+                (month (cdr (assoc (match-string 2)
                                    vc-cvs-local-month-numbers)))
               (year-tmp (string-to-number (match-string 3)))
               ;; Years 0..68 are 2000..2068.
@@ -731,7 +731,7 @@ If UPDATE is non-nil, then update (resynch) any affected buffers."
 The difference to vc-do-command is that this function always invokes `cvs',
 and that it passes `vc-cvs-global-switches' to it before FLAGS."
   (apply 'vc-do-command buffer okstatus "cvs" file
-         (if (stringp vc-cvs-global-switches) 
+         (if (stringp vc-cvs-global-switches)
              (cons vc-cvs-global-switches flags)
            (append vc-cvs-global-switches
                    flags))))
@@ -782,7 +782,7 @@ essential information."
 \[\t ]+\\([0-9.]+\\)"
                     nil t))
               (vc-file-setprop file 'vc-latest-version (match-string 2)))
-          (vc-file-setprop 
+          (vc-file-setprop
            file 'vc-state
            (cond
             ((string-match "Up-to-date" status)
@@ -815,10 +815,10 @@ essential information."
   ;; lowercase letters, digits, `-', and `_'.
   (and (string-match "^[a-zA-Z]" tag)
        (not (string-match "[^a-z0-9A-Z-_]" tag))))
-      
+
 
 (defun vc-cvs-parse-sticky-tag (match-type match-tag)
-  "Parse and return the sticky tag as a string.  
+  "Parse and return the sticky tag as a string.
 `match-data' is protected."
   (let ((data (match-data))
        (tag)
@@ -830,11 +830,11 @@ essential information."
                    (t nil))))
     (unwind-protect
        (progn
-         (cond 
+         (cond
           ;; Sticky Date tag.  Convert to to a proper date value (`encode-time')
           ((eq type 'date)
-           (string-match 
-            "\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)" 
+           (string-match
+            "\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)"
             match-tag)
            (let* ((year-tmp (string-to-number (match-string 1 match-tag)))
                   (month    (string-to-number (match-string 2 match-tag)))
@@ -856,13 +856,13 @@ essential information."
           (t nil))
          (cond ((eq vc-cvs-sticky-tag-display nil) nil)
                ((eq vc-cvs-sticky-tag-display t)
-                (cond ((eq type 'date) (format-time-string 
+                (cond ((eq type 'date) (format-time-string
                                         vc-cvs-sticky-date-format-string
                                         tag))
                       ((eq type 'symbolic-name) tag)
                       ((eq type 'revision-number) tag)
                       (t nil)))
-               ((functionp vc-cvs-sticky-tag-display) 
+               ((functionp vc-cvs-sticky-tag-display)
                 (funcall vc-cvs-sticky-tag-display tag type))
                (t nil)))
 
@@ -905,7 +905,7 @@ is non-nil."
            (t
             (vc-file-setprop file 'vc-checkout-time 0)
             (if set-state (vc-file-setprop file 'vc-state 'edited))))))))
-           
+
 (provide 'vc-cvs)
 
 ;;; vc-cvs.el ends here