src/Pure/General/name_space.ML
changeset 45666 d83797ef0d2d
parent 45412 7797f5351ec4
child 46869 26a9a4e0a631
equal deleted inserted replaced
45665:129db1416717 45666:d83797ef0d2d
    81   theory_name: string,
    81   theory_name: string,
    82   pos: Position.T,
    82   pos: Position.T,
    83   id: serial};
    83   id: serial};
    84 
    84 
    85 fun entry_markup def kind (name, {pos, id, ...}: entry) =
    85 fun entry_markup def kind (name, {pos, id, ...}: entry) =
    86   Markup.properties (Position.entity_properties_of def id pos) (Markup.entity kind name);
    86   Markup.properties (Position.entity_properties_of def id pos) (Isabelle_Markup.entity kind name);
    87 
    87 
    88 fun print_entry def kind (name, entry) =
    88 fun print_entry def kind (name, entry) =
    89   quote (Markup.markup (entry_markup def kind (name, entry)) name);
    89   quote (Markup.markup (entry_markup def kind (name, entry)) name);
    90 
    90 
    91 fun err_dup kind entry1 entry2 =
    91 fun err_dup kind entry1 entry2 =
   124 
   124 
   125 fun entry_ord space = int_ord o pairself (#id o the_entry space);
   125 fun entry_ord space = int_ord o pairself (#id o the_entry space);
   126 
   126 
   127 fun markup (Name_Space {kind, entries, ...}) name =
   127 fun markup (Name_Space {kind, entries, ...}) name =
   128   (case Symtab.lookup entries name of
   128   (case Symtab.lookup entries name of
   129     NONE => Markup.hilite
   129     NONE => Isabelle_Markup.hilite
   130   | SOME (_, entry) => entry_markup false kind (name, entry));
   130   | SOME (_, entry) => entry_markup false kind (name, entry));
   131 
   131 
   132 fun is_concealed space name = #concealed (the_entry space name);
   132 fun is_concealed space name = #concealed (the_entry space name);
   133 
   133 
   134 
   134