src/Pure/General/pretty.ML

   in fmt (prune prt) Buffer.empty end;
 
 (*ML toplevel pretty printing*)
 fun pprint prt (put_str, begin_blk, put_brk, put_fbrk, end_blk) =
   let
-    fun pp (Block (_, prts, ind, _)) = (begin_blk ind; pp_lst prts; end_blk ())
+    fun pp (Block (m, prts, ind, _)) =
+          let val (bg, en) = Markup.output m
+          in put_str bg; begin_blk ind; pp_lst prts; end_blk (); put_str en end
       | pp (String (s, _)) = put_str s
       | pp (Break (false, wd)) = put_brk wd
       | pp (Break (true, _)) = put_fbrk ()
     and pp_lst [] = ()
       | pp_lst (prt :: prts) = (pp prt; pp_lst prts);