From 3f6e71e62e558f4a1c4316c9ecf0519a905e87f3 Mon Sep 17 00:00:00 2001 From: Charles Berry Date: Fri, 6 Nov 2015 16:00:50 -0800 Subject: [PATCH] ob-core.el: org-babel-confirm-evaluate bugfix * lisp/ob-core.el (org-babel-confirm-evaluate): Return t/nil for y/n answer to query. Minor edits of prompt and message. --- lisp/ob-core.el | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/lisp/ob-core.el b/lisp/ob-core.el index e2ad46b81..b8ea12df1 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -340,19 +340,21 @@ environment, to override this check." (let* ((evalp (org-babel-check-confirm-evaluate info)) (lang (nth 0 info)) (name (nth 4 info)) - (name-string (if name (format " (%s) " name) ""))) + (name-string (if name (format " (%s) " name) " "))) (pcase evalp (`nil nil) (`t t) - (`query (unless - (and (not (org-bound-and-true-p - org-babel-confirm-evaluate-answer-no)) - (yes-or-no-p - (format "Evaluate this %s code block%son your system? " - lang name-string))) + (`query (or + (and (not (org-bound-and-true-p + org-babel-confirm-evaluate-answer-no)) + (yes-or-no-p + (format "Evaluate this %s code block%son your system? " + lang name-string))) + (progn (message "Evaluation of this %s code-block%sis aborted." - lang name-string))) - (x (error "Unexepcted value `%s' from `org-babel-check-confirm-evaluate'" x))))) + lang name-string) + nil))) + (x (error "Unexpected value `%s' from `org-babel-check-confirm-evaluate'" x))))) ;;;###autoload (defun org-babel-execute-safely-maybe ()