equal
deleted
inserted
replaced
202 val keywords = Thy_Header.get_keywords thy; |
202 val keywords = Thy_Header.get_keywords thy; |
203 in |
203 in |
204 Keyword.is_command keywords name andalso |
204 Keyword.is_command keywords name andalso |
205 let |
205 let |
206 val markup = |
206 val markup = |
207 Outer_Syntax.scan keywords Position.none name |
207 Token.explode keywords Position.none name |
208 |> maps (Outer_Syntax.command_reports thy) |
208 |> maps (Outer_Syntax.command_reports thy) |
209 |> map (snd o fst); |
209 |> map (snd o fst); |
210 val _ = Context_Position.reports ctxt (map (pair pos) markup); |
210 val _ = Context_Position.reports ctxt (map (pair pos) markup); |
211 in true end |
211 in true end |
212 end; |
212 end; |