mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-20 07:48:36 +00:00
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:
parent
52b91acc59
commit
d6a9f1aa29
|
@ -564,7 +564,8 @@ block."
|
||||||
(let* ((params (if params
|
(let* ((params (if params
|
||||||
(org-babel-process-params merged-params)
|
(org-babel-process-params merged-params)
|
||||||
(nth 2 info)))
|
(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))
|
(cachep (and (not arg) (cdr (assoc :cache params))
|
||||||
(string= "yes" (cdr (assoc :cache params)))))
|
(string= "yes" (cdr (assoc :cache params)))))
|
||||||
(new-hash (when cachep (org-babel-sha1-hash info)))
|
(new-hash (when cachep (org-babel-sha1-hash info)))
|
||||||
|
|
Loading…
Reference in a new issue