# HG changeset patch
# User Bryan O'Sullivan <bos@serpentine.com>
# Date 2007-05-08 18:54:39
# Node ID b59611e9dd640400a8400fbe9e5bc998b1cd94c5
# Parent  807c7b99ff137e6300e2860c64a37acf829ac3dd

mq.el: add hook to run when finishing the edit of a patch.

diff --git a/contrib/mq.el b/contrib/mq.el
--- a/contrib/mq.el
+++ b/contrib/mq.el
@@ -36,6 +36,11 @@
   :type 'sexp
   :group 'mercurial)
 
+(defcustom mq-edit-finish-hook nil
+  "Hook run before a patch description is finished up with."
+  :type 'sexp
+  :group 'mercurial)
+
 
 ;;; Internal variables.
 
@@ -237,6 +242,7 @@ This would become the active patch if po
   (unless (equal (mq-patch-info "qtop") mq-top)
     (error "Topmost patch has changed!"))
   (hg-sync-buffers hg-root)
+  (run-hooks 'mq-edit-finish-hook)
   (mq-refresh-internal hg-root "-m" (buffer-substring (point-min) (point-max)))
   (let ((buf mq-prev-buffer))
     (kill-buffer nil)