--- a/src/Pure/System/isabelle_process.ML Mon Oct 01 19:30:36 2018 +0200
+++ b/src/Pure/System/isabelle_process.ML Tue Oct 02 19:02:47 2018 +0200
@@ -71,7 +71,8 @@
Synchronized.change_result tracing_messages (fn tab =>
let
val n = the_default 0 (Inttab.lookup tab exec_id) + 1;
- val ok = n <= Options.default_int "editor_tracing_messages";
+ val limit = Options.default_int "editor_tracing_messages";
+ val ok = limit <= 0 orelse n <= limit;
in (ok, Inttab.update (exec_id, n) tab) end);
in
if ok then ()