diff lisp/vc-bzr.el @ 107487:b958f43f6055

* vc-bzr.el (vc-bzr-log-edit-mode): Add --fixes support to log-edit-before-checkin-process.

--- a/lisp/vc-bzr.el	Tue Mar 23 20:53:32 2010 -0700
+++ b/lisp/vc-bzr.el	Tue Mar 23 23:32:45 2010 -0700
@@ -553,12 +553,14 @@
   "Mode for editing Bzr commit logs.
 If a line like:
 Author: NAME
-is present in the log, it is removed, and 
+is present in the log, it is removed, and
 --author NAME
-is passed to the bzr commit command."
+is passed to the bzr commit command.  Similarly with Fixes: and --fixes."
   (set (make-local-variable 'log-edit-extra-flags) nil)
   (set (make-local-variable 'log-edit-before-checkin-process)
-       '(("^Author:[ \t]+\\(.*\\)[ \t]*$" . (list "--author" (match-string 1))))))
+       '(("^\\(Author\\|Fixes\\):[ \t]+\\(.*\\)[ \t]*$" .
+          (list (format "--%s" (downcase (match-string 1)))
+                (match-string 2))))))
 
 (defun vc-bzr-diff (files &optional rev1 rev2 buffer)
   "VC bzr backend for diff."