Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
suppress empty messages as usual;
authorwenzelm
Fri, 07 Aug 2015 16:15:53 +0200
changeset 60864 20cfa048fe7c
parent 60863 21d70681ec05
child 60865 4194901fd513
suppress empty messages as usual;
src/Pure/Tools/debugger.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/Tools/debugger.ML	Fri Aug 07 14:55:35 2015 +0200
+++ b/src/Pure/Tools/debugger.ML	Fri Aug 07 16:15:53 2015 +0200
@@ -19,9 +19,11 @@
 val _ = Session.protocol_handler "isabelle.Debugger$Handler";
 
 fun output_message kind msg =
-  Output.protocol_message
-    (Markup.debugger_output (Simple_Thread.the_name ()))
-    [Markup.markup (kind, Markup.serial_properties (serial ())) msg];
+  if msg = "" then ()
+  else
+    Output.protocol_message
+      (Markup.debugger_output (Simple_Thread.the_name ()))
+      [Markup.markup (kind, Markup.serial_properties (serial ())) msg];
 
 val writeln_message = output_message Markup.writelnN;
 val warning_message = output_message Markup.warningN;
isabelle