tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Merge branch 'maint'

Browse source
This commit is contained in:
Nicolas Goaziou 2017-09-07 18:03:03 +02:00
parent 9c5d03ca3b b16086d9af
commit f22c23277f
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ob-core.el
View file

@ -241,11 +241,9 @@ should be asked whether to allow evaluation."
(query (or (equal eval "query") (query (or (equal eval "query")
(and export (equal eval "query-export")) (and export (equal eval "query-export"))
(if (functionp org-confirm-babel-evaluate) (if (functionp org-confirm-babel-evaluate)
(save-excursion
(goto-char (nth 5 info))
(funcall org-confirm-babel-evaluate (funcall org-confirm-babel-evaluate
;; language, code block body ;; Language, code block body.
(nth 0 info) (nth 1 info))) (nth 0 info) (nth 1 info))
org-confirm-babel-evaluate)))) org-confirm-babel-evaluate))))
(cond (cond
(noeval nil) (noeval nil)