lisp/ob-core.el: org-babel-check-confirm-evaluate strip coderefs
* lisp/ob-core.el (org-babel-check-confirm-evaluate): strip coderefs before passing the body of the block to org-confirm-babel-evaluate using the same let block as is used in org-babel-execute-src-block.
This commit is contained in:
parent
c7abcd514a
commit
3e1c0b0f44
|
@ -240,9 +240,14 @@ should be asked whether to allow evaluation."
|
||||||
(funcall org-confirm-babel-evaluate
|
(funcall org-confirm-babel-evaluate
|
||||||
;; Language, code block body.
|
;; Language, code block body.
|
||||||
(nth 0 info)
|
(nth 0 info)
|
||||||
(if (org-babel-noweb-p headers :eval)
|
(let ((coderef (nth 6 info))
|
||||||
(org-babel-expand-noweb-references info)
|
(expand
|
||||||
(nth 1 info)))
|
(if (org-babel-noweb-p headers :eval)
|
||||||
|
(org-babel-expand-noweb-references info)
|
||||||
|
(nth 1 info))))
|
||||||
|
(if (not coderef) expand
|
||||||
|
(replace-regexp-in-string
|
||||||
|
(org-src-coderef-regexp coderef) "" expand nil nil 1))))
|
||||||
org-confirm-babel-evaluate))))
|
org-confirm-babel-evaluate))))
|
||||||
(cond
|
(cond
|
||||||
(noeval nil)
|
(noeval nil)
|
||||||
|
|
Loading…
Reference in New Issue