Mercurial > emacs
comparison lisp/vc/vc-cvs.el @ 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 | d90a3bc6b730 |
| children | 417b1e4d63cd |
comparison
equal
deleted
inserted
replaced
| 111290:33f46ffe4dad | 111291:d3584b6b6247 |
|---|---|
| 312 (expand-file-name "CVS/Entries" dir)) | 312 (expand-file-name "CVS/Entries" dir)) |
| 313 t | 313 t |
| 314 (directory-file-name dir)))) | 314 (directory-file-name dir)))) |
| 315 (eq dir t))) | 315 (eq dir t))) |
| 316 | 316 |
| 317 (defun vc-cvs-checkin (files rev comment &optional extra-args-ignored) | 317 (defun vc-cvs-checkin (files rev comment) |
| 318 "CVS-specific version of `vc-backend-checkin'." | 318 "CVS-specific version of `vc-backend-checkin'." |
| 319 (unless (or (not rev) (vc-cvs-valid-revision-number-p rev)) | 319 (unless (or (not rev) (vc-cvs-valid-revision-number-p rev)) |
| 320 (if (not (vc-cvs-valid-symbolic-tag-name-p rev)) | 320 (if (not (vc-cvs-valid-symbolic-tag-name-p rev)) |
| 321 (error "%s is not a valid symbolic tag name" rev) | 321 (error "%s is not a valid symbolic tag name" rev) |
| 322 ;; If the input revison is a valid symbolic tag name, we create it | 322 ;; If the input revison is a valid symbolic tag name, we create it |