[Emacs-diffs] /srv/bzr/emacs/trunk r102194: Remove extra leftover args to vc-*-checkin.

[Chong Yidong]

------------------------------------------------------------
revno: 102194
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2010-10-31 23:16:48 -0400
message:
  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.
modified:
  lisp/ChangeLog
  lisp/vc/vc-arch.el
  lisp/vc/vc-cvs.el
  lisp/vc/vc-mtn.el
  lisp/vc/vc-rcs.el
  lisp/vc/vc-sccs.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-11-01 02:55:12 +0000
+++ b/lisp/ChangeLog    2010-11-01 03:16:48 +0000
@@ -1,3 +1,13 @@
+2010-10-31  Chong Yidong  <address@hidden>
+
+       * 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  <address@hidden>
 
        * emacs-lisp/bytecomp.el (byte-recompile-file): Fix previous change.

=== modified file 'lisp/vc/vc-arch.el'
--- a/lisp/vc/vc-arch.el        2010-08-29 16:17:13 +0000
+++ b/lisp/vc/vc-arch.el        2010-11-01 03:16:48 +0000
@@ -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)))))

=== modified file 'lisp/vc/vc-cvs.el'
--- a/lisp/vc/vc-cvs.el 2010-10-03 21:05:47 +0000
+++ b/lisp/vc/vc-cvs.el 2010-11-01 03:16:48 +0000
@@ -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))

=== modified file 'lisp/vc/vc-mtn.el'
--- a/lisp/vc/vc-mtn.el 2010-08-29 16:17:13 +0000
+++ b/lisp/vc/vc-mtn.el 2010-11-01 03:16:48 +0000
@@ -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")

=== modified file 'lisp/vc/vc-rcs.el'
--- a/lisp/vc/vc-rcs.el 2010-10-03 21:05:47 +0000
+++ b/lisp/vc/vc-rcs.el 2010-11-01 03:16:48 +0000
@@ -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

=== modified file 'lisp/vc/vc-sccs.el'
--- a/lisp/vc/vc-sccs.el        2010-10-03 21:05:47 +0000
+++ b/lisp/vc/vc-sccs.el        2010-11-01 03:16:48 +0000
@@ -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)