summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2010-11-25 10:28:04 -0700
committerEric Schulte <schulte.eric@gmail.com>2010-11-25 10:28:04 -0700
commit30b2d604c55dcb52d86fe80d170597fb22581e05 (patch)
tree1efc0d157dc78fb2c28dc00a35b2e44f02f4359d
parent9cc19e3919ab5904d71088e10dd2943d5afd476a (diff)
downloadorg-mode-30b2d604c55dcb52d86fe80d170597fb22581e05.tar.gz
ob: more descriptive "Evaluation Aborted" message
* lisp/ob.el (org-babel-confirm-evaluate): More descriptive message when evaluation is aborted or disabled.
-rw-r--r--lisp/ob.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/ob.el b/lisp/ob.el
index 62643f0..5a9dbd3 100644
--- a/lisp/ob.el
+++ b/lisp/ob.el
@@ -220,7 +220,9 @@ of potentially harmful code."
(not (yes-or-no-p
(format "Evaluate this%scode on your system? "
(if info (format " %s " (nth 0 info)) " "))))))
- (prog1 nil (message "evaluation aborted"))
+ (prog1 nil (message "Evaluation %s"
+ (if (or (equal eval "never") (equal eval "no"))
+ "Disabled" "Aborted")))
t)))
;;;###autoload