Commit fab43c76 authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

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.
parent e7d67e73
......@@ -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.
2010-06-09 Dan Nicolaescu <>
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 <>
* emacs-lisp/smie.el (smie-indent-keyword): Remove special case that
......@@ -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"))
......@@ -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"))
(list "--only" "--")))))
......@@ -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"))
(defun vc-hg-find-revision (file rev buffer)
......@@ -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"))
(defun vc-mtn-find-revision (file rev buffer)
(vc-mtn-command buffer 0 file "cat" "-r" rev))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment