src/Pure/General/position.ML
changeset 38236 d8c7be27e01d
parent 37533 d775bd70f571
child 38887 1261481ef5e5
equal deleted inserted replaced
38235:25d6f789618b 38236:d8c7be27e01d
   125   if exists (member (op =) Markup.position_properties o #1) props then props
   125   if exists (member (op =) Markup.position_properties o #1) props then props
   126   else properties_of default @ props;
   126   else properties_of default @ props;
   127 
   127 
   128 fun report_text markup (pos as Pos (count, _)) txt =
   128 fun report_text markup (pos as Pos (count, _)) txt =
   129   if invalid_count count then ()
   129   if invalid_count count then ()
   130   else Output.status (Markup.markup (Markup.properties (properties_of pos) markup) txt);
   130   else Output.report (Markup.markup (Markup.properties (properties_of pos) markup) txt);
   131 
   131 
   132 fun report markup pos = report_text markup pos "";
   132 fun report markup pos = report_text markup pos "";
   133 
   133 
   134 
   134 
   135 (* str_of *)
   135 (* str_of *)