clarified markup;
authorwenzelm
Sun, 24 Mar 2019 19:17:42 +0100
changeset 70153 4e98239aa083
parent 70152 b5a47478897a
child 70154 5e82015fa879
clarified markup;
src/Pure/Syntax/syntax.ML
--- a/src/Pure/Syntax/syntax.ML	Sun Mar 24 18:38:42 2019 +0100
+++ b/src/Pure/Syntax/syntax.ML	Sun Mar 24 19:17:42 2019 +0100
@@ -202,7 +202,9 @@
         val source = input_source tree;
         val syms = Input.source_explode source;
         val pos = Input.pos_of source;
-        val _ = Context_Position.report ctxt pos (markup (Input.is_delimited source));
+        val _ =
+          Context_Position.reports ctxt
+            [(pos, Markup.cartouche), (pos, markup (Input.is_delimited source))];
         val _ =
           if Options.default_bool "update_inner_syntax_cartouches" then
             Context_Position.report_text ctxt