Mercurial > emacs

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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 79c0352f271f
children d47e1fb98df3
comparison
equal deleted inserted replaced
107486:16cde13bf410 107487:b958f43f6055
551 551
552 (define-derived-mode vc-bzr-log-edit-mode log-edit-mode "Bzr-Log-Edit" 552 (define-derived-mode vc-bzr-log-edit-mode log-edit-mode "Bzr-Log-Edit"
553 "Mode for editing Bzr commit logs. 553 "Mode for editing Bzr commit logs.
554 If a line like: 554 If a line like:
555 Author: NAME 555 Author: NAME
556 is present in the log, it is removed, and 556 is present in the log, it is removed, and
557 --author NAME 557 --author NAME
558 is passed to the bzr commit command." 558 is passed to the bzr commit command. Similarly with Fixes: and --fixes."
559 (set (make-local-variable 'log-edit-extra-flags) nil) 559 (set (make-local-variable 'log-edit-extra-flags) nil)
560 (set (make-local-variable 'log-edit-before-checkin-process) 560 (set (make-local-variable 'log-edit-before-checkin-process)
561 '(("^Author:[ \t]+\\(.*\\)[ \t]*$" . (list "--author" (match-string 1)))))) 561 '(("^\\(Author\\|Fixes\\):[ \t]+\\(.*\\)[ \t]*$" .
562 (list (format "--%s" (downcase (match-string 1)))
563 (match-string 2))))))
562 564
563 (defun vc-bzr-diff (files &optional rev1 rev2 buffer) 565 (defun vc-bzr-diff (files &optional rev1 rev2 buffer)
564 "VC bzr backend for diff." 566 "VC bzr backend for diff."
565 ;; `bzr diff' exits with code 1 if diff is non-empty. 567 ;; `bzr diff' exits with code 1 if diff is non-empty.
566 (apply #'vc-bzr-command "diff" (or buffer "*vc-diff*") 568 (apply #'vc-bzr-command "diff" (or buffer "*vc-diff*")