mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

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:
Tom Gillespie 2020-09-04 20:35:03 -07:00 committed by Kyle Meyer
parent c7abcd514a
commit 3e1c0b0f44
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/ob-core.el
View File

@ -240,9 +240,14 @@ should be asked whether to allow evaluation."
(funcall org-confirm-babel-evaluate
;; Language, code block body.
(nth 0 info)
(if (org-babel-noweb-p headers :eval)
(org-babel-expand-noweb-references info)
(nth 1 info)))
(let ((coderef (nth 6 info))
(expand
(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))))
(cond
(noeval nil)