[Emacs-diffs] /srv/bzr/emacs/trunk r100548: Improve support for special markup in the VC commit message.

[Dan Nicolaescu]

------------------------------------------------------------
revno: 100548
committer: Dan Nicolaescu <address@hidden>
branch nick: trunk
timestamp: Tue 2010-06-08 22:24:01 -0700
message:
  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.
modified:
  etc/NEWS
  lisp/ChangeLog
  lisp/vc-bzr.el
  lisp/vc-git.el
  lisp/vc-hg.el
  lisp/vc-mtn.el

=== modified file 'etc/NEWS'
--- a/etc/NEWS  2010-06-05 09:56:22 +0000
+++ b/etc/NEWS  2010-06-09 05:24:01 +0000
@@ -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.

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-06-09 02:58:26 +0000
+++ b/lisp/ChangeLog    2010-06-09 05:24:01 +0000
@@ -1,3 +1,11 @@
+2010-06-09  Dan Nicolaescu  <address@hidden>
+
+       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  <address@hidden>
 
        * emacs-lisp/smie.el (smie-indent-keyword): Remove special case that

=== modified file 'lisp/vc-bzr.el'
--- a/lisp/vc-bzr.el    2010-06-01 02:34:49 +0000
+++ b/lisp/vc-bzr.el    2010-06-09 05:24:01 +0000
@@ -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))))
 

=== modified file 'lisp/vc-git.el'
--- a/lisp/vc-git.el    2010-06-05 09:56:22 +0000
+++ b/lisp/vc-git.el    2010-06-09 05:24:01 +0000
@@ -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" "--")))))
 

=== modified file 'lisp/vc-hg.el'
--- a/lisp/vc-hg.el     2010-05-08 18:47:07 +0000
+++ b/lisp/vc-hg.el     2010-06-09 05:24:01 +0000
@@ -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)

=== modified file 'lisp/vc-mtn.el'
--- a/lisp/vc-mtn.el    2010-03-19 09:37:41 +0000
+++ b/lisp/vc-mtn.el    2010-06-09 05:24:01 +0000
@@ -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))