equal
deleted
inserted
replaced
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{" "}}") |