summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn Wiegley <johnw@newartisans.com>2011-08-06 01:20:33 -0500
committerJohn Wiegley <johnw@newartisans.com>2011-08-06 18:59:18 -0500
commit54c722a83a0ee2f45fa32693299abfbd7c401882 (patch)
tree1d675cdbf9f859a67c21ceceb70e8e34f0ec8ab0
parentc2c7e88677b7b1e80d6876be8cffde6884a0416b (diff)
downloadorg-mode-54c722a83a0ee2f45fa32693299abfbd7c401882.tar.gz
Added customization hook `org-log-buffer-setup-hook'
This allows changes to org-mode after the log buffer has been setup.
-rw-r--r--lisp/org.el8
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el
index 76d9947..11eaf78 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 ()