src/Pure/Isar/keyword.ML
changeset 74262 839a6e284545
parent 74183 af81e4a307be
child 74555 3ba399ecdfaf
equal deleted inserted replaced
74261:d28a51dd9da6 74262:839a6e284545
   214 fun lookup_command (Keywords {commands, ...}) = Symtab.lookup commands;
   214 fun lookup_command (Keywords {commands, ...}) = Symtab.lookup commands;
   215 
   215 
   216 fun command_markup keywords name =
   216 fun command_markup keywords name =
   217   lookup_command keywords name
   217   lookup_command keywords name
   218   |> Option.map (fn {pos, id, ...} =>
   218   |> Option.map (fn {pos, id, ...} =>
   219       Position.make_entity_markup false id Markup.command_keywordN (name, pos));
   219       Position.make_entity_markup {def = false} id Markup.command_keywordN (name, pos));
   220 
   220 
   221 fun command_kind keywords = Option.map #kind o lookup_command keywords;
   221 fun command_kind keywords = Option.map #kind o lookup_command keywords;
   222 
   222 
   223 fun command_tags keywords name =
   223 fun command_tags keywords name =
   224   (case lookup_command keywords name of
   224   (case lookup_command keywords name of