mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-26 10:49:38 +00:00
Code

ob-core: allow auto-denial of source block evaluation

Browse Source 
* lisp/ob-core.el (org-babel-confirm-evaluate-answer-no): Dynamically
  scoped variable, if bound non-nil the confirmation dialog will not
  be initiated and denial of evaluation is assumed.

  The new variable `org-babel-confirm-evaluate-answer-no´ can be bound
  to suppress the user interaction as is needed for async export, as
  discussed in http://thread.gmane.org/gmane.emacs.orgmode/67719
This commit is contained in:
Achim Gratz 2013-03-09 22:22:49 +01:00
parent d7758f565c
commit 4f7d514f13
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/ob-core.el
View File

@ -325,9 +325,16 @@ Do not query the user."
(message (format "Evaluation of this%scode-block%sis disabled."
code-block block-name))))))
;; dynamically scoped for asynchroneous export
(defvar org-babel-confirm-evaluate-answer-no)
(defsubst org-babel-confirm-evaluate (info)
"Confirm evaluation of the code block INFO.
This behavior can be suppressed by setting the value of
If the variable `org-babel-confirm-evaluate-answer-no´ is bound
to a non-nil value, auto-answer with \"no\".
This query can also be suppressed by setting the value of
`org-confirm-babel-evaluate' to nil, in which case all future
interactive code block evaluations will proceed without any
confirmation from the user.
@ -336,9 +343,12 @@ Note disabling confirmation may result in accidental evaluation
of potentially harmful code."
(org-babel-check-confirm-evaluate info
(not (when query
(unless (yes-or-no-p (format
"Evaluate this%scode block%son your system? "
code-block block-name))
(unless
(and (not (org-bound-and-true-p
org-babel-confirm-evaluate-answer-no))
(yes-or-no-p
(format "Evaluate this%scode block%son your system? "
code-block block-name)))
(message (format "Evaluation of this%scode-block%sis aborted."
code-block block-name)))))))