From f737fbdc6ed1d45d8629eb1347e8c8d828f77e32 Mon Sep 17 00:00:00 2001 From: David Maus Date: Sat, 18 Feb 2012 16:41:30 +0100 Subject: [PATCH] New hook: Run before the finalization process starts * org-capture.el (org-capture-prepare-finalize-hook): New hook. Run before the finalization process starts. (org-capture-finalize): Run new hook. --- lisp/org-capture.el | 9 +++++++++ 1 files changed, 9 insertions(+), 0 deletions(-) diff --git a/lisp/org-capture.el b/lisp/org-capture.el index d77415b..e3bd9f7 100644 --- a/lisp/org-capture.el +++ b/lisp/org-capture.el @@ -347,6 +347,13 @@ widened to the entire buffer." :version "24.1" :type 'hook) +(defcustom org-capture-prepare-finalize-hook nil + "Hook that is run before the finalization starts. +The capture buffer is current and still narrowed." + :group 'org-capture + :version "24.1" + :type 'hook) + ;;; The property list for keeping information about the capture process (defvar org-capture-plist nil @@ -530,6 +537,8 @@ captured item after finalizing." (buffer-base-buffer (current-buffer))) (error "This does not seem to be a capture buffer for Org-mode")) + (run-hooks 'org-capture-prepare-finalize-hook) + ;; Did we start the clock in this capture buffer? (when (and org-capture-clock-was-started org-clock-marker (marker-buffer org-clock-marker) -- 1.7.2.5