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