Mercurial > emacs
changeset 111291:d3584b6b6247
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.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 31 Oct 2010 23:16:48 -0400 |
| parents | 33f46ffe4dad |
| children | c93578464b09 |
| files | 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 |
| diffstat | 6 files changed, 15 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)))))
--- 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))
--- 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")
--- 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
--- 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)