diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-11-04 08:33:51 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-11-04 08:34:57 +0100 |
commit | 4c4e8433199c15e1077c2a5ec3e73cdb07ae4744 (patch) | |
tree | 40dfec7f94caa9a64b157f780f65a64e387f668c | |
parent | 80befa1983aab12c85f4b84f5c68c5123c9bf9e8 (diff) | |
download | org-mode-4c4e8433199c15e1077c2a5ec3e73cdb07ae4744.tar.gz |
ob-core: Fix typos in messages
* lisp/ob-core.el (org-babel-check-evaluate):
(org-babel-confirm-evaluate): Fix typos.
-rw-r--r-- | lisp/ob-core.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 44b2282..7540ba2 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))))) |