[Emacs-diffs] /srv/bzr/emacs/trunk r99740: * vc-bzr.el (vc-bzr-log-edit-mode): Add --fixes support to

[Glenn Morris]

------------------------------------------------------------
revno: 99740
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2010-03-23 23:32:45 -0700
message:
  * vc-bzr.el (vc-bzr-log-edit-mode): Add --fixes support to
  log-edit-before-checkin-process.
modified:
  lisp/ChangeLog
  lisp/vc-bzr.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-03-24 03:53:32 +0000
+++ b/lisp/ChangeLog    2010-03-24 06:32:45 +0000
@@ -1,5 +1,8 @@
 2010-03-24  Glenn Morris  <address@hidden>
 
+       * vc-bzr.el (vc-bzr-log-edit-mode): Add --fixes support to
+       log-edit-before-checkin-process.
+
        * vc.el (vc-modify-change-comment): Pass MODE to vc-start-logentry.
 
        * vc.el, vc-bzr.el, vc-hg.el (log-edit-mode): Declare.

=== modified file 'lisp/vc-bzr.el'
--- a/lisp/vc-bzr.el    2010-03-24 03:34:06 +0000
+++ b/lisp/vc-bzr.el    2010-03-24 06:32:45 +0000
@@ -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."