summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDan Davison <davison@stats.ox.ac.uk>2010-03-13 12:34:02 -0500
committerDan Davison <davison@stats.ox.ac.uk>2010-03-13 14:02:22 -0500
commit215d11c09276fd8c46cbe13b751e7b9eef9d2c80 (patch)
tree5f99d99129225ba96b59ab52ea935842f782712d
parenta9a8cbe39b09ea9fa4051629a8a21fb3c1167ca1 (diff)
downloadorg-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.el3
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)