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 --git a/etc/NEWS b/etc/NEWS
index f37356dc032bab0fc02ac9707d2a0e31126f8dc1..2742c3535f9d763c807be8be9518507714a49698 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -183,6 +183,11 @@ with headers of the form:
 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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5dfb02188a6eb5e209a1d282d9e51c077f3b267f..681db215f379fa3d2fdac01c8e290e75072bba25 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/vc-bzr.el b/lisp/vc-bzr.el
index 117712d58fe02e626668d9ff2ccef67090b5eabf..39736bb0377c84e153da705ea0949a82cefb80fe 100644 (file)
--- a/lisp/vc-bzr.el
+++ b/lisp/vc-bzr.el
@@ -459,6 +459,7 @@ REV non-nil gets an error."
   (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 --git a/lisp/vc-git.el b/lisp/vc-git.el
index 62d1940d349927b129bb26b526ff571e5c02507e..780afd9db2705d0beb57af162b451ed467cb237a 100644 (file)
--- a/lisp/vc-git.el
+++ b/lisp/vc-git.el
@@ -554,7 +554,8 @@ or an empty string if none."
   (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 --git a/lisp/vc-hg.el b/lisp/vc-hg.el
index 0d72bfa58f824c5d426e47a5308dc247a6ef4b7f..4b434b582fa942bef6d306e806c1317127c94aed 100644 (file)
--- a/lisp/vc-hg.el
+++ b/lisp/vc-hg.el
@@ -429,7 +429,8 @@ COMMENT is ignored."
 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 --git a/lisp/vc-mtn.el b/lisp/vc-mtn.el
index d62fd1ea8c6dbf956bfee023fb291e38fee4c7a3..500c00cefe4ec5b33cd8d548fb18a9c0951f7982 100644 (file)
--- 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))