equal
deleted
inserted
replaced
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 *) |