diff -r 2c94c065564e -r c26369c9eda6 src/Pure/PIDE/command.ML --- a/src/Pure/PIDE/command.ML Sun Nov 25 18:50:13 2012 +0100 +++ b/src/Pure/PIDE/command.ML Sun Nov 25 19:49:24 2012 +0100 @@ -75,7 +75,7 @@ handle exn => ML_Compiler.exn_messages exn)) (); fun timing tr t = - if Timing.is_relevant t then Toplevel.status tr (Isabelle_Markup.timing t) else (); + if Timing.is_relevant t then Toplevel.status tr (Markup.timing t) else (); fun proof_status tr st = (case try Toplevel.proof_of st of @@ -99,20 +99,20 @@ val is_proof = Keyword.is_proof (Toplevel.name_of tr); val _ = Multithreading.interrupted (); - val _ = Toplevel.status tr Isabelle_Markup.running; + val _ = Toplevel.status tr Markup.running; val start = Timing.start (); val (errs1, result) = run (is_init orelse is_proof) (Toplevel.set_print false tr) st; val errs2 = (case result of NONE => [] | SOME st' => check_cmts tr cmts st'); val errs = errs1 @ errs2; val _ = timing tr (Timing.result start); - val _ = Toplevel.status tr Isabelle_Markup.finished; + val _ = Toplevel.status tr Markup.finished; val _ = List.app (Toplevel.error_msg tr) errs; in (case result of NONE => let val _ = if null errs then Exn.interrupt () else (); - val _ = Toplevel.status tr Isabelle_Markup.failed; + val _ = Toplevel.status tr Markup.failed; in ((st, malformed'), no_print) end | SOME st' => let