ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed bug causing extra prompt in ob-confirm-evaluate in some cases 

* lisp/ob.el (org-babel-confirm-evaluate): fixed bug causing extra
  prompt in ob-confirm-evaluate in some cases
This commit is contained in:
Eric Schulte 2010-09-27 07:43:33 -06:00
parent eb0068e9cd
commit 8d272b0d3b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ob.el
View File

@ -180,10 +180,10 @@ of potentially harmful code."
(let* ((eval (or (cdr (assoc :eval (nth 2 info))) (let* ((eval (or (cdr (assoc :eval (nth 2 info)))
(when (assoc :noeval (nth 2 info)) "no"))) (when (assoc :noeval (nth 2 info)) "no")))
(query (or (equal eval "query") (query (or (equal eval "query")
(and (functionp org-confirm-babel-evaluate) (if (functionp org-confirm-babel-evaluate)
(funcall org-confirm-babel-evaluate (funcall org-confirm-babel-evaluate
(nth 0 info) (nth 1 info))) (nth 0 info) (nth 1 info))
org-confirm-babel-evaluate))) org-confirm-babel-evaluate))))
(if (or (equal eval "never") (equal eval "no") (if (or (equal eval "never") (equal eval "no")
(and query (and query
(not (yes-or-no-p (not (yes-or-no-p