diff options
author | David Maus <dmaus@ictsoc.de> | 2012-02-18 16:41:30 +0100 |
---|---|---|
committer | David Maus <dmaus@ictsoc.de> | 2012-02-18 16:41:30 +0100 |
commit | f737fbdc6ed1d45d8629eb1347e8c8d828f77e32 (patch) | |
tree | 5457c665b9011389c38b9e26bc83b1845b8e4010 | |
parent | 05480513573fcd4438748c8d35881eda9deac7ea (diff) | |
download | org-mode-f737fbdc6ed1d45d8629eb1347e8c8d828f77e32.tar.gz |
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.
-rw-r--r-- | 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) |