From 2086fe4be30d5383b9db4d5db91da6b03357c128 Mon Sep 17 00:00:00 2001 From: Allen S. Rout Date: Wed, 17 Nov 2010 12:52:02 -0500 Subject: [PATCH 3/3] Add post-finalize hook --- lisp/org-capture.el | 8 ++++++++ 1 files changed, 8 insertions(+), 0 deletions(-) diff --git a/lisp/org-capture.el b/lisp/org-capture.el index 2abe5c7..5d2f8d3 100644 --- a/lisp/org-capture.el +++ b/lisp/org-capture.el @@ -313,6 +313,12 @@ The remember buffer is still current when this hook runs." :group 'org-capture :type 'hook) +(defcustom org-capture-after-finalize-hook nil + "Hook that is run right after a capture process is finalized. + Suitable for window cleanup" + :group 'org-capture + :type 'hook) + ;;; The property list for keeping information about the capture process (defvar org-capture-plist nil @@ -548,6 +554,8 @@ bypassed." ;; Restore the window configuration before capture (set-window-configuration return-wconf)) + + (run-hooks 'org-capture-after-finalize-hook) (when abort-note (cond ((equal abort-note 'clean) -- 1.7.0.4