Browse Source

ob: more descriptive "Evaluation Aborted" message

* lisp/ob.el (org-babel-confirm-evaluate): More descriptive message
  when evaluation is aborted or disabled.
Eric Schulte 14 years ago
parent
commit
30b2d604c5
1 changed files with 3 additions and 1 deletions
  1. 3 1
      lisp/ob.el

+ 3 - 1
lisp/ob.el

@@ -220,7 +220,9 @@ of potentially harmful code."
 		 (not (yes-or-no-p
 		 (not (yes-or-no-p
 		       (format "Evaluate this%scode on your system? "
 		       (format "Evaluate this%scode on your system? "
 			       (if info (format " %s " (nth 0 info)) " "))))))
 			       (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)))
       t)))
 
 
 ;;;###autoload
 ;;;###autoload