Mercurial > emacs
comparison lisp/vc/vc-sccs.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 |
|---|---|
| 235 ;; TODO: check for all the patterns in vc-sccs-master-templates | 235 ;; TODO: check for all the patterns in vc-sccs-master-templates |
| 236 (or (file-directory-p (expand-file-name "SCCS" (file-name-directory file))) | 236 (or (file-directory-p (expand-file-name "SCCS" (file-name-directory file))) |
| 237 (stringp (vc-sccs-search-project-dir (or (file-name-directory file) "") | 237 (stringp (vc-sccs-search-project-dir (or (file-name-directory file) "") |
| 238 (file-name-nondirectory file))))) | 238 (file-name-nondirectory file))))) |
| 239 | 239 |
| 240 (defun vc-sccs-checkin (files rev comment &optional extra-args-ignored) | 240 (defun vc-sccs-checkin (files rev comment) |
| 241 "SCCS-specific version of `vc-backend-checkin'." | 241 "SCCS-specific version of `vc-backend-checkin'." |
| 242 (dolist (file (vc-expand-dirs files)) | 242 (dolist (file (vc-expand-dirs files)) |
| 243 (apply 'vc-sccs-do-command nil 0 "delta" (vc-name file) | 243 (apply 'vc-sccs-do-command nil 0 "delta" (vc-name file) |
| 244 (if rev (concat "-r" rev)) | 244 (if rev (concat "-r" rev)) |
| 245 (concat "-y" comment) | 245 (concat "-y" comment) |