diff options
author | Dan Davison <davison@stats.ox.ac.uk> | 2010-03-13 12:34:02 -0500 |
---|---|---|
committer | Dan Davison <davison@stats.ox.ac.uk> | 2010-03-13 14:02:22 -0500 |
commit | 215d11c09276fd8c46cbe13b751e7b9eef9d2c80 (patch) | |
tree | 5f99d99129225ba96b59ab52ea935842f782712d | |
parent | a9a8cbe39b09ea9fa4051629a8a21fb3c1167ca1 (diff) | |
download | org-mode-215d11c09276fd8c46cbe13b751e7b9eef9d2c80.tar.gz |
babel: New hook org-babel-after-execute-hook
Runs at the end of org-babel-execute-src-block
-rw-r--r-- | contrib/babel/lisp/org-babel.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/contrib/babel/lisp/org-babel.el b/contrib/babel/lisp/org-babel.el index 8bf023a..4254ffe 100644 --- a/contrib/babel/lisp/org-babel.el +++ b/contrib/babel/lisp/org-babel.el @@ -124,6 +124,8 @@ can not be resolved.") (defvar org-babel-hash-show 4 "Number of initial characters to show of a hidden results hash.") +(defvar org-babel-after-execute-hook nil + "Hook for functions to be called after `org-babel-execute-src-block'") (defun org-babel-named-src-block-regexp-for-name (name) "Regexp used to match named src block." (concat org-babel-source-name-regexp (regexp-quote name) "[ \t\n]*" @@ -240,6 +242,7 @@ block." (list (list result)) result))) (org-babel-insert-result result result-params info new-hash) + (run-hooks 'org-babel-after-execute-hook) result)))) (defun org-babel-load-in-session (&optional arg info) |