avoid duplicate message for @{action} in particular (see also @{action} within Pure);
authorwenzelm
Thu, 21 Sep 2017 12:47:16 +0200
changeset 66682 c4cbe609f6a8
parent 66681 0879f2045965
child 66683 01189e46dc55
avoid duplicate message for @{action} in particular (see also @{action} within Pure);
src/Doc/antiquote_setup.ML
--- a/src/Doc/antiquote_setup.ML	Thu Sep 21 10:58:34 2017 +0200
+++ b/src/Doc/antiquote_setup.ML	Thu Sep 21 12:47:16 2017 +0200
@@ -177,7 +177,8 @@
             NONE => ""
           | SOME is_def =>
               "\\index" ^ (if is_def then "def" else "ref") ^ arg logic ^ arg kind ^ arg name);
-        val _ = check ctxt (name, pos);
+        val _ =
+          if Context_Position.is_reported ctxt pos then ignore (check ctxt (name, pos)) else ();
       in
         idx ^
         (Output.output name