Mercurial > emacs
changeset 107487:b958f43f6055
* vc-bzr.el (vc-bzr-log-edit-mode): Add --fixes support to
log-edit-before-checkin-process.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 23 Mar 2010 23:32:45 -0700 |
| parents | 16cde13bf410 |
| children | d1bd7b205e98 |
| files | lisp/ChangeLog lisp/vc-bzr.el |
| diffstat | 2 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Mar 23 20:53:32 2010 -0700 +++ b/lisp/ChangeLog Tue Mar 23 23:32:45 2010 -0700 @@ -1,5 +1,8 @@ 2010-03-24 Glenn Morris <rgm@gnu.org> + * 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.
--- 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."