From 54c722a83a0ee2f45fa32693299abfbd7c401882 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Sat, 6 Aug 2011 01:20:33 -0500 Subject: [PATCH] Added customization hook `org-log-buffer-setup-hook' This allows changes to org-mode after the log buffer has been setup. --- lisp/org.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index 76d99476f..11eaf780e 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -251,6 +251,11 @@ With prefix arg HERE, insert it at point." :group 'org :type 'hook) +(defcustom org-log-buffer-setup-hook nil + "Hook that is run after an Org log buffer is created." + :group 'org + :type 'hook) + (defvar org-modules) ; defined below (defvar org-modules-loaded nil "Have the modules been loaded already?") @@ -12066,7 +12071,8 @@ EXTRA is additional text that will be inserted into the notes buffer." "this entry") (t (error "This should not happen"))))) (if org-log-note-extra (insert org-log-note-extra)) - (org-set-local 'org-finish-function 'org-store-log-note))) + (org-set-local 'org-finish-function 'org-store-log-note) + (run-hooks 'org-log-buffer-setup-hook))) (defvar org-note-abort nil) ; dynamically scoped (defun org-store-log-note ()