added token;

--- a/src/Pure/General/markup.ML	Tue Aug 05 14:40:48 2008 +0200
+++ b/src/Pure/General/markup.ML	Tue Aug 05 19:29:02 2008 +0200
@@ -56,6 +56,7 @@
   val commandN: string val command: string -> T
   val keyword_declN: string val keyword_decl: string -> T
   val command_declN: string val command_decl: string -> string -> T
+  val tokenN: string val token: T
   val stringN: string val string: T
   val altstringN: string val altstring: T
   val verbatimN: string val verbatim: T
@@ -184,6 +185,7 @@
 val command_declN = "command_decl";
 fun command_decl name kind : T = (command_declN, [(nameN, name), (kindN, kind)]);
 
+val (tokenN, token) = markup_elem "token";
 val (stringN, string) = markup_elem "string";
 val (altstringN, altstring) = markup_elem "altstring";
 val (verbatimN, verbatim) = markup_elem "verbatim";