From bc6564ab48db43c083802b3b87b971ff64da8a88 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Sat, 9 Mar 2013 10:16:20 -0700 Subject: [PATCH] whitespace changes spaces between lines, and fix overlong lines * lisp/ob-core.el (org-babel-check-confirm-evaluate): Whitespace. (org-babel-confirm-evaluate): Whitespace. --- lisp/ob-core.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/ob-core.el b/lisp/ob-core.el index e70ba5a4d..4ca103dc8 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -303,11 +303,13 @@ Returns a list (query (or (equal eval "query") (and export (equal eval "query-export")) (when (functionp org-confirm-babel-evaluate) - (funcall org-confirm-babel-evaluate info0th info1st)) + (funcall org-confirm-babel-evaluate + info0th info1st)) org-confirm-babel-evaluate)) (code-block (if info (format " %s " info0th) " ")) (block-name (if info4th (format " (%s) " info4th) " "))) ,@body)) + (defsubst org-babel-check-evaluate (info) "Check if code block INFO should be evaluated. Do not query the user." @@ -315,6 +317,7 @@ Do not query the user." (not (when noeval (message (format "Evaluation of this%scode-block%sis disabled." code-block block-name)))))) + (defsubst org-babel-confirm-evaluate (info) "Confirm evaluation of the code block INFO. This behavior can be suppressed by setting the value of @@ -326,8 +329,9 @@ Note disabling confirmation may result in accidental evaluation of potentially harmful code." (org-babel-check-confirm-evaluate info (not (when query - (unless (yes-or-no-p (format "Evaluate this%scode block%son your system? " - code-block block-name)) + (unless (yes-or-no-p (format + "Evaluate this%scode block%son your system? " + code-block block-name)) (message (format "Evaluation of this%scode-block%sis aborted." code-block block-name)))))))