# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1276061041 25200
# Node ID c05344a913c83a56be06267190f4db533cfc35b7
# Parent  c7e85ff4bca6e7074d8b72df05484d96d82a3b20
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.

diff -r c7e85ff4bca6 -r c05344a913c8 etc/NEWS
--- a/etc/NEWS	Tue Jun 08 22:58:26 2010 -0400
+++ b/etc/NEWS	Tue Jun 08 22:24:01 2010 -0700
@@ -183,6 +183,11 @@
 Some backends handle some of those headers specially, but any unknown header
 is just left as is in the message, so it is not lost.
 
+**** vc-git handles Author: and Date:
+**** vc-hg handles  Author: and Date:
+**** vc-bzr handles Author:, Date: and Fixes:
+**** vc-mtn handles Author: and Date:
+
 ** Directory local variables can apply to file-less buffers.
 For example, adding "(diff-mode . ((mode . whitespace)))" to your
 .dir-locals.el file, will turn on `whitespace-mode' for *vc-diff* buffers.
diff -r c7e85ff4bca6 -r c05344a913c8 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Jun 08 22:58:26 2010 -0400
+++ b/lisp/ChangeLog	Tue Jun 08 22:24:01 2010 -0700
@@ -1,3 +1,11 @@
+2010-06-09  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	Improve support for special markup in the VC commit message.
+	* vc-mtn.el (vc-mtn-checkin): Add support for Author: and Date: markup.
+	* vc-hg.el (vc-hg-checkin): Add support for Date:.
+	* vc-git.el (vc-git-checkin):
+	* vc-bzr.el (vc-bzr-checkin): Likewise.
+
 2010-06-09  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* emacs-lisp/smie.el (smie-indent-keyword): Remove special case that
diff -r c7e85ff4bca6 -r c05344a913c8 lisp/vc-bzr.el
--- a/lisp/vc-bzr.el	Tue Jun 08 22:58:26 2010 -0400
+++ b/lisp/vc-bzr.el	Tue Jun 08 22:24:01 2010 -0700
@@ -459,6 +459,7 @@
   (if rev (error "Can't check in a specific revision with bzr"))
   (apply 'vc-bzr-command "commit" nil 0
          files (cons "-m" (log-edit-extract-headers '(("Author" . "--author")
+						      ("Date" . "--commit-time")
                                                       ("Fixes" . "--fixes"))
                                                     comment))))
 
diff -r c7e85ff4bca6 -r c05344a913c8 lisp/vc-git.el
--- a/lisp/vc-git.el	Tue Jun 08 22:58:26 2010 -0400
+++ b/lisp/vc-git.el	Tue Jun 08 22:24:01 2010 -0700
@@ -554,7 +554,8 @@
   (let ((coding-system-for-write vc-git-commits-coding-system))
     (apply 'vc-git-command nil 0 files
 	   (nconc (list "commit" "-m")
-                  (log-edit-extract-headers '(("Author" . "--author"))
+                  (log-edit-extract-headers '(("Author" . "--author")
+					      ("Date" . "--date"))
                                             comment)
                   (list "--only" "--")))))
 
diff -r c7e85ff4bca6 -r c05344a913c8 lisp/vc-hg.el
--- a/lisp/vc-hg.el	Tue Jun 08 22:58:26 2010 -0400
+++ b/lisp/vc-hg.el	Tue Jun 08 22:24:01 2010 -0700
@@ -429,7 +429,8 @@
 REV is ignored."
   (apply 'vc-hg-command nil 0 files
          (nconc (list "commit" "-m")
-                (log-edit-extract-headers '(("Author" . "--user"))
+                (log-edit-extract-headers '(("Author" . "--user")
+					    ("Date" . "--date"))
                                           comment))))
 
 (defun vc-hg-find-revision (file rev buffer)
diff -r c7e85ff4bca6 -r c05344a913c8 lisp/vc-mtn.el
--- a/lisp/vc-mtn.el	Tue Jun 08 22:58:26 2010 -0400
+++ b/lisp/vc-mtn.el	Tue Jun 08 22:24:01 2010 -0700
@@ -173,7 +173,11 @@
 (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))