From 4c4e8433199c15e1077c2a5ec3e73cdb07ae4744 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Fri, 4 Nov 2016 08:33:51 +0100 Subject: [PATCH] ob-core: Fix typos in messages * lisp/ob-core.el (org-babel-check-evaluate): (org-babel-confirm-evaluate): Fix typos. --- lisp/ob-core.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 44b228299..7540ba210 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -247,15 +247,15 @@ should be asked whether to allow evaluation." (defun org-babel-check-evaluate (info) "Check if code block INFO should be evaluated. - Do not query the user, but do display an informative message if evaluation is blocked. Returns non-nil if evaluation is not blocked." - (let ((evalp (org-babel-check-confirm-evaluate info))) - (when (null evalp) - (message "Evaluation of this %s code-block%sis disabled." + (let ((confirmed (org-babel-check-confirm-evaluate info))) + (unless confirmed + (message "Evaluation of this %s code block%sis disabled." (nth 0 info) - (let ((name (nth 4 info))) (if name (format " (%s) " name) "")))) - evalp)) + (let ((name (nth 4 info))) + (if name (format " (%s) " name) " ")))) + confirmed)) ;; Dynamically scoped for asynchronous export. (defvar org-babel-confirm-evaluate-answer-no) @@ -288,7 +288,7 @@ environment, to override this check." (format "Evaluate this %s code block%son your system? " lang name-string))) (progn - (message "Evaluation of this %s code-block%sis aborted." + (message "Evaluation of this %s code block%sis aborted." lang name-string) nil))) (x (error "Unexpected value `%s' from `org-babel-check-confirm-evaluate'" x))))) -- 2.11.4.GIT