summaryrefslogtreecommitdiff
path: root/lisp/vc-mtn.el
diff options
context:
space:
mode:
authorDan Nicolaescu <dann@ics.uci.edu>2010-06-08 22:24:01 -0700
committerDan Nicolaescu <dann@ics.uci.edu>2010-06-08 22:24:01 -0700
commitfab43c76d009176eff8c12a8cd19a0d1ed87156a (patch)
tree8a61f28b3dc491653939c38594a277cbc4bcb4f3 /lisp/vc-mtn.el
parente7d67e73b2bd68701d2972dd1ba181a78a974e8f (diff)
downloademacs-fab43c76d009176eff8c12a8cd19a0d1ed87156a.tar.gz
Improve support for special markup in the VC commit message.
* lisp/vc-mtn.el (vc-mtn-checkin): Add support for Author: and Date: markup. * lisp/vc-hg.el (vc-hg-checkin): Add support for Date:. * lisp/vc-git.el (vc-git-checkin): * lisp/vc-bzr.el (vc-bzr-checkin): Likewise.
Diffstat (limited to 'lisp/vc-mtn.el')
-rw-r--r--lisp/vc-mtn.el6
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/vc-mtn.el b/lisp/vc-mtn.el
index d62fd1ea8c6..500c00cefe4 100644
--- a/lisp/vc-mtn.el
+++ b/lisp/vc-mtn.el
@@ -173,7 +173,11 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches."
(defun vc-mtn-could-register (file) (vc-mtn-root file))
(defun vc-mtn-checkin (files rev comment &optional extra-args-ignored)
- (vc-mtn-command nil 0 files "commit" "-m" comment))
+ (apply 'vc-mtn-command nil 0 files
+ (nconc (list "commit" "-m")
+ (log-edit-extract-headers '(("Author" . "--author")
+ ("Date" . "--date"))
+ comment))))
(defun vc-mtn-find-revision (file rev buffer)
(vc-mtn-command buffer 0 file "cat" "-r" rev))