forked from mirrors/org-mode
Fix org-confirm-babel-evaluate' with
org-sbe'
* lisp/ob-core.el (org-babel-check-confirm-evaluate): Do not move point, as it is neither necessary nor expected by `org-babel-check-confirm-evaluate'. Reported-by: Alex Bennée <alex.bennee@linaro.org> http://lists.gnu.org/archive/html/emacs-orgmode/2017-09/msg00167.html
This commit is contained in:
parent
22e916fb36
commit
b16086d9af
|
@ -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
|
(funcall org-confirm-babel-evaluate
|
||||||
(goto-char (nth 5 info))
|
;; Language, code block body.
|
||||||
(funcall org-confirm-babel-evaluate
|
(nth 0 info) (nth 1 info))
|
||||||
;; language, code block body
|
|
||||||
(nth 0 info) (nth 1 info)))
|
|
||||||
org-confirm-babel-evaluate))))
|
org-confirm-babel-evaluate))))
|
||||||
(cond
|
(cond
|
||||||
(noeval nil)
|
(noeval nil)
|
||||||
|
|
Loading…
Reference in a new issue