# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1288581408 14400
# Node ID d3584b6b6247a72d2826260ffb6de7e69d1c048b
# Parent  33f46ffe4dad2ff42c4005643d778d3a2c02141c
Remove extra leftover args to vc-*-checkin.

* vc/vc-arch.el (vc-arch-checkin):
* vc/vc-cvs.el (vc-cvs-checkin):
* vc/vc-mtn.el (vc-mtn-checkin):
* vc/vc-rcs.el (vc-rcs-checkin):
* vc/vc-sccs.el (vc-sccs-checkin):
* vc/vc-svn.el (vc-svn-checkin): Remove optional extra arg, unused
since 2010-04-21 commit by Stefan Monnier.

diff -r 33f46ffe4dad -r d3584b6b6247 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Oct 31 19:55:12 2010 -0700
+++ b/lisp/ChangeLog	Sun Oct 31 23:16:48 2010 -0400
@@ -1,3 +1,13 @@
+2010-10-31  Chong Yidong  <cyd@stupidchicken.com>
+
+	* vc/vc-arch.el (vc-arch-checkin):
+	* vc/vc-cvs.el (vc-cvs-checkin):
+	* vc/vc-mtn.el (vc-mtn-checkin):
+	* vc/vc-rcs.el (vc-rcs-checkin):
+	* vc/vc-sccs.el (vc-sccs-checkin):
+	* vc/vc-svn.el (vc-svn-checkin): Remove optional extra arg, unused
+	since 2010-04-21 commit by Stefan Monnier.
+
 2010-11-01  Glenn Morris  <rgm@gnu.org>
 
 	* emacs-lisp/bytecomp.el (byte-recompile-file): Fix previous change.
diff -r 33f46ffe4dad -r d3584b6b6247 lisp/vc/vc-arch.el
--- a/lisp/vc/vc-arch.el	Sun Oct 31 19:55:12 2010 -0700
+++ b/lisp/vc/vc-arch.el	Sun Oct 31 23:16:48 2010 -0400
@@ -428,7 +428,7 @@
 	(message "There are unresolved conflicts in %s"
 		 (file-name-nondirectory rej))))))
 
-(defun vc-arch-checkin (files rev comment  &optional extra-args-ignored)
+(defun vc-arch-checkin (files rev comment)
   (if rev (error "Committing to a specific revision is unsupported"))
   ;; FIXME: This implementation probably only works for singleton filesets
   (let ((summary (file-relative-name (car files) (vc-arch-root (car files)))))
diff -r 33f46ffe4dad -r d3584b6b6247 lisp/vc/vc-cvs.el
--- a/lisp/vc/vc-cvs.el	Sun Oct 31 19:55:12 2010 -0700
+++ b/lisp/vc/vc-cvs.el	Sun Oct 31 23:16:48 2010 -0400
@@ -314,7 +314,7 @@
                   (directory-file-name dir))))
     (eq dir t)))
 
-(defun vc-cvs-checkin (files rev comment  &optional extra-args-ignored)
+(defun vc-cvs-checkin (files rev comment)
   "CVS-specific version of `vc-backend-checkin'."
   (unless (or (not rev) (vc-cvs-valid-revision-number-p rev))
     (if (not (vc-cvs-valid-symbolic-tag-name-p rev))
diff -r 33f46ffe4dad -r d3584b6b6247 lisp/vc/vc-mtn.el
--- a/lisp/vc/vc-mtn.el	Sun Oct 31 19:55:12 2010 -0700
+++ b/lisp/vc/vc-mtn.el	Sun Oct 31 23:16:48 2010 -0400
@@ -175,7 +175,7 @@
 
 (declare-function log-edit-extract-headers "log-edit" (headers string))
 
-(defun vc-mtn-checkin (files rev comment  &optional extra-args-ignored)
+(defun vc-mtn-checkin (files rev comment)
   (apply 'vc-mtn-command nil 0 files
 	 (nconc (list "commit" "-m")
 		(log-edit-extract-headers '(("Author" . "--author")
diff -r 33f46ffe4dad -r d3584b6b6247 lisp/vc/vc-rcs.el
--- a/lisp/vc/vc-rcs.el	Sun Oct 31 19:55:12 2010 -0700
+++ b/lisp/vc/vc-rcs.el	Sun Oct 31 23:16:48 2010 -0400
@@ -349,7 +349,7 @@
 	 (yes-or-no-p (format "Directory %s is empty; remove it? " dir))
 	 (delete-directory dir))))
 
-(defun vc-rcs-checkin (files rev comment &optional extra-args-ignored)
+(defun vc-rcs-checkin (files rev comment)
   "RCS-specific version of `vc-backend-checkin'."
   (let ((switches (vc-switches 'RCS 'checkin)))
     ;; Now operate on the files
diff -r 33f46ffe4dad -r d3584b6b6247 lisp/vc/vc-sccs.el
--- a/lisp/vc/vc-sccs.el	Sun Oct 31 19:55:12 2010 -0700
+++ b/lisp/vc/vc-sccs.el	Sun Oct 31 23:16:48 2010 -0400
@@ -237,7 +237,7 @@
       (stringp (vc-sccs-search-project-dir (or (file-name-directory file) "")
 					   (file-name-nondirectory file)))))
 
-(defun vc-sccs-checkin (files rev comment &optional extra-args-ignored)
+(defun vc-sccs-checkin (files rev comment)
   "SCCS-specific version of `vc-backend-checkin'."
   (dolist (file (vc-expand-dirs files))
     (apply 'vc-sccs-do-command nil 0 "delta" (vc-name file)