Mercurial > emacs
comparison lisp/vc-svn.el @ 107430:1918e70c8b37
Add special markup processing for commit logs.
* log-edit.el (log-edit-extra-flags): New variable.
(log-edit): Add new argument MODE. Use that mode when non-nil
instead of the log-view-mode.
(log-view-process-buffer): New function.
* vc.el: Document that the checkin method takes optional
arguments. Document new backend specific method: log-view-mode.
(vc-default-log-edit-mode): New function.
(vc-checkin): Use a backend specific log-view-mode.
Pass extra arguments to the checkin method.
(vc-modify-change-comment): Pass a dummy extra argument.
* vc-dispatcher.el (vc-log-edit): Add a mode argument, pass it to
log-edit.
(vc-start-logentry): Add a mode argument, pass it to vc-log-edit.
(vc-finish-logentry): Process the log buffer before passing it
down. Pass log-edit-extra-flags.
* vc-bzr.el (vc-bzr-checkin): Pass extra arguments to the commit
command.
(log-edit-extra-flags, log-edit-before-checkin-process): New declarations.
* vc-hg.el (vc-hg-checkin): Pass extra arguments to the commit
command.
(log-edit-extra-flags, log-edit-before-checkin-process): New declarations.
(vc-hg-log-edit-mode): New derived mode.
* vc-arch.el (vc-arch-checkin):
* vc-cvs.el (vc-cvs-checkin):
* vc-git.el (vc-git-checkin):
* vc-mtn.el (vc-mtn-checkin):
* vc-rcs.el (vc-rcs-checkin):
* vc-sccs.el (vc-sccs-checkin):
* vc-svn.el (vc-svn-checkin): Add an optional ignored argument.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Fri, 19 Mar 2010 02:37:41 -0700 |
| parents | d1489c6b5705 |
| children |
comparison
equal
deleted
inserted
replaced
| 107429:024cba2776d2 | 107430:1918e70c8b37 |
|---|---|
| 280 | 280 |
| 281 (defalias 'vc-svn-could-register 'vc-svn-responsible-p | 281 (defalias 'vc-svn-could-register 'vc-svn-responsible-p |
| 282 "Return non-nil if FILE could be registered in SVN. | 282 "Return non-nil if FILE could be registered in SVN. |
| 283 This is only possible if SVN is responsible for FILE's directory.") | 283 This is only possible if SVN is responsible for FILE's directory.") |
| 284 | 284 |
| 285 (defun vc-svn-checkin (files rev comment) | 285 (defun vc-svn-checkin (files rev comment &optional extra-args-ignored) |
| 286 "SVN-specific version of `vc-backend-checkin'." | 286 "SVN-specific version of `vc-backend-checkin'." |
| 287 (if rev (error "Committing to a specific revision is unsupported in SVN")) | 287 (if rev (error "Committing to a specific revision is unsupported in SVN")) |
| 288 (let ((status (apply | 288 (let ((status (apply |
| 289 'vc-svn-command nil 1 files "ci" | 289 'vc-svn-command nil 1 files "ci" |
| 290 (nconc (list "-m" comment) (vc-switches 'SVN 'checkin))))) | 290 (nconc (list "-m" comment) (vc-switches 'SVN 'checkin))))) |