src/Doc/antiquote_setup.ML
changeset 66682 c4cbe609f6a8
parent 62829 4141c2a8458b
child 67386 998e01d6f8fd
equal deleted inserted replaced
66681:0879f2045965 66682:c4cbe609f6a8
   175         val idx =
   175         val idx =
   176           (case index of
   176           (case index of
   177             NONE => ""
   177             NONE => ""
   178           | SOME is_def =>
   178           | SOME is_def =>
   179               "\\index" ^ (if is_def then "def" else "ref") ^ arg logic ^ arg kind ^ arg name);
   179               "\\index" ^ (if is_def then "def" else "ref") ^ arg logic ^ arg kind ^ arg name);
   180         val _ = check ctxt (name, pos);
   180         val _ =
       
   181           if Context_Position.is_reported ctxt pos then ignore (check ctxt (name, pos)) else ();
   181       in
   182       in
   182         idx ^
   183         idx ^
   183         (Output.output name
   184         (Output.output name
   184           |> (if markup = "" then I else enclose ("\\" ^ markup ^ "{") "}")
   185           |> (if markup = "" then I else enclose ("\\" ^ markup ^ "{") "}")
   185           |> hyper o enclose "\\mbox{\\isa{" "}}")
   186           |> hyper o enclose "\\mbox{\\isa{" "}}")