tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ob-core: Fix typos in messages 

* lisp/ob-core.el (org-babel-check-evaluate):
(org-babel-confirm-evaluate): Fix typos.
This commit is contained in:
Nicolas Goaziou 2016-11-04 08:33:51 +01:00
parent 80befa1983
commit 4c4e843319
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/ob-core.el
View File

@ -247,15 +247,15 @@ should be asked whether to allow evaluation."
(defun org-babel-check-evaluate (info) (defun org-babel-check-evaluate (info)
"Check if code block INFO should be evaluated. "Check if code block INFO should be evaluated.
Do not query the user, but do display an informative message if Do not query the user, but do display an informative message if
evaluation is blocked. Returns non-nil if evaluation is not blocked." evaluation is blocked. Returns non-nil if evaluation is not blocked."
(let ((evalp (org-babel-check-confirm-evaluate info))) (let ((confirmed (org-babel-check-confirm-evaluate info)))
(when (null evalp) (unless confirmed
(message "Evaluation of this %s code-block%sis disabled." (message "Evaluation of this %s code block%sis disabled."
(nth 0 info) (nth 0 info)
(let ((name (nth 4 info))) (if name (format " (%s) " name) "")))) (let ((name (nth 4 info)))
evalp)) (if name (format " (%s) " name) " "))))
confirmed))
;; Dynamically scoped for asynchronous export. ;; Dynamically scoped for asynchronous export.
(defvar org-babel-confirm-evaluate-answer-no) (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? " (format "Evaluate this %s code block%son your system? "
lang name-string))) lang name-string)))
(progn (progn
(message "Evaluation of this %s code-block%sis aborted." (message "Evaluation of this %s code block%sis aborted."
lang name-string) lang name-string)
nil))) nil)))
(x (error "Unexpected value `%s' from `org-babel-check-confirm-evaluate'" x))))) (x (error "Unexpected value `%s' from `org-babel-check-confirm-evaluate'" x)))))