コミットログに自動でブランチ名を入れる

参考 dsvnでcommitログに変更ファイルを自動入力する - Emacs/Lisp/Drill - Emacsグループ

(defadvice svn-commit (around svn-commit-around activate)
  (goto-char (point-min))
  (if (re-search-forward "\\(branches\\|tags\\)/[^/]+" nil t)
      (kill-new (match-string-no-properties 0))
    (kill-new "trunk")
    )
  ad-do-it
  (insert "[][")
  (yank)
  (insert "]")
  (goto-char (+ (point-min) 1))
  )