瀏覽代碼

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 年之前
父節點
當前提交
30b2d604c5
共有 1 個文件被更改,包括 3 次插入1 次删除
  1. 3 1
      lisp/ob.el

+ 3 - 1
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