From 30b2d604c55dcb52d86fe80d170597fb22581e05 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Thu, 25 Nov 2010 10:28:04 -0700 Subject: [PATCH] ob: more descriptive "Evaluation Aborted" message * lisp/ob.el (org-babel-confirm-evaluate): More descriptive message when evaluation is aborted or disabled. --- lisp/ob.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/ob.el b/lisp/ob.el index 62643f09f..5a9dbd3c9 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