From 215d11c09276fd8c46cbe13b751e7b9eef9d2c80 Mon Sep 17 00:00:00 2001 From: Dan Davison Date: Sat, 13 Mar 2010 12:34:02 -0500 Subject: [PATCH] babel: New hook org-babel-after-execute-hook Runs at the end of org-babel-execute-src-block --- contrib/babel/lisp/org-babel.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/contrib/babel/lisp/org-babel.el b/contrib/babel/lisp/org-babel.el index 8bf023aef..4254ffe67 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)