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.
This commit is contained in:
Eric Schulte 2013-06-06 10:58:52 -06:00
parent 52b91acc59
commit d6a9f1aa29
1 changed files with 2 additions and 1 deletions

View File

@ -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)))