author | wenzelm |
Sat, 26 Jan 2008 17:08:41 +0100 | |
changeset 25982 | caee173104d3 |
parent 25981 | 870ae1d0452e |
child 25983 | 111d2ed164f4 |
--- a/src/Pure/General/markup.ML Sat Jan 26 17:08:40 2008 +0100 +++ b/src/Pure/General/markup.ML Sat Jan 26 17:08:41 2008 +0100 @@ -14,6 +14,7 @@ val none: T val properties: (string * string) list -> T -> T val nameN: string + val groupN: string val idN: string val kindN: string val internalK: string @@ -89,6 +90,7 @@ fun markup_int elem prop = (elem, fn i => (elem, [(prop, Int.toString i)]): T); val nameN = "name"; +val groupN = "group"; (* kind *)