diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2013-06-06 10:58:52 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2013-06-06 10:58:52 -0600 |
commit | d6a9f1aa295a98faaab2b08c9767d87e26f74342 (patch) | |
tree | f4bd1929aec73dfc4cd201b267aae3e00f9ee15a | |
parent | 52b91acc59e4bebc3697d6cbe1e9a778deecee04 (diff) | |
download | org-mode-d6a9f1aa295a98faaab2b08c9767d87e26f74342.tar.gz |
org-babel-current-exec-src-block-head -> outermost
* lisp/ob-core.el (org-babel-execute-src-block): The
org-babel-current-exec-src-block-head variable should point to the
outermost code block.
-rw-r--r-- | lisp/ob-core.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 93c5d5e..3e28cef 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -564,7 +564,8 @@ block." (let* ((params (if params (org-babel-process-params merged-params) (nth 2 info))) - (org-babel-current-exec-src-block-head (nth 6 info)) + (org-babel-current-exec-src-block-head + (or org-babel-current-exec-src-block-head (nth 6 info))) (cachep (and (not arg) (cdr (assoc :cache params)) (string= "yes" (cdr (assoc :cache params))))) (new-hash (when cachep (org-babel-sha1-hash info))) |