diff options
author | John Wiegley <johnw@newartisans.com> | 2011-08-06 01:20:33 -0500 |
---|---|---|
committer | John Wiegley <johnw@newartisans.com> | 2011-08-06 18:59:18 -0500 |
commit | 54c722a83a0ee2f45fa32693299abfbd7c401882 (patch) | |
tree | 1d675cdbf9f859a67c21ceceb70e8e34f0ec8ab0 | |
parent | c2c7e88677b7b1e80d6876be8cffde6884a0416b (diff) | |
download | org-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.el | 8 |
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 () |