src/Doc/antiquote_setup.ML
changeset 59083 88b0b1f28adc
parent 59082 25501ba956ac
child 59175 bf465f335e85
equal deleted inserted replaced
59082:25501ba956ac 59083:88b0b1f28adc
   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;