equal
deleted
inserted
replaced
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 |