--- a/src/Pure/General/markup.ML Thu Jan 15 00:48:45 2009 +0100
+++ b/src/Pure/General/markup.ML Thu Jan 15 11:53:49 2009 +0100
@@ -91,7 +91,8 @@
val failedN: string val failed: T
val finishedN: string val finished: T
val disposedN: string val disposed: T
- val command_stateN: string val command_state: string -> string -> T
+ val editsN: string val edits: string -> T
+ val editN: string val edit: string -> string -> T
val pidN: string
val sessionN: string
val classN: string
@@ -269,8 +270,13 @@
val (finishedN, finished) = markup_elem "finished";
val (disposedN, disposed) = markup_elem "disposed";
-val command_stateN = "command_state";
-fun command_state id state_id : T = (command_stateN, [(idN, id), (stateN, state_id)]);
+
+(* interactive documents *)
+
+val (editsN, edits) = markup_string "edits" idN;
+
+val editN = "edit";
+fun edit id state_id : T = (editN, [(idN, id), (stateN, state_id)]);
(* messages *)
--- a/src/Pure/General/markup.scala Thu Jan 15 00:48:45 2009 +0100
+++ b/src/Pure/General/markup.scala Thu Jan 15 11:53:49 2009 +0100
@@ -117,7 +117,12 @@
val FAILED = "failed"
val FINISHED = "finished"
val DISPOSED = "disposed"
- val COMMAND_STATE = "command_state"
+
+
+ /* interactive documents */
+
+ val EDITS = "edits"
+ val EDIT = "edit"
/* messages */