src/Pure/PIDE/document.ML
changeset 45674 eb65c9d17e2f
parent 45666 d83797ef0d2d
child 46739 6024353549ca
equal deleted inserted replaced
45673:cd41e3903fbf 45674:eb65c9d17e2f
   306 (* toplevel transactions *)
   306 (* toplevel transactions *)
   307 
   307 
   308 local
   308 local
   309 
   309 
   310 fun timing tr t =
   310 fun timing tr t =
   311   if Timing.is_relevant t then Toplevel.status tr (Markup.timing t) else ();
   311   if Timing.is_relevant t then Toplevel.status tr (Isabelle_Markup.timing t) else ();
   312 
   312 
   313 fun proof_status tr st =
   313 fun proof_status tr st =
   314   (case try Toplevel.proof_of st of
   314   (case try Toplevel.proof_of st of
   315     SOME prf => Toplevel.status tr (Proof.status_markup prf)
   315     SOME prf => Toplevel.status tr (Proof.status_markup prf)
   316   | NONE => ());
   316   | NONE => ());