--- a/src/Pure/General/markup.ML Fri Aug 08 16:54:33 2008 +0200
+++ b/src/Pure/General/markup.ML Fri Aug 08 19:28:59 2008 +0200
@@ -22,8 +22,10 @@
val property_internal: property
val lineN: string
val columnN: string
+ val offsetN: string
val end_lineN: string
val end_columnN: string
+ val end_offsetN: string
val fileN: string
val position_properties': string list
val position_properties: string list
@@ -128,13 +130,15 @@
val lineN = "line";
val columnN = "column";
+val offsetN = "offset";
val end_lineN = "end_line";
val end_columnN = "end_column";
+val end_offsetN = "end_offset";
val fileN = "file";
val idN = "id";
-val position_properties' = [end_lineN, end_columnN, fileN, idN];
-val position_properties = [lineN, columnN] @ position_properties';
+val position_properties' = [end_lineN, end_columnN, end_offsetN, fileN, idN];
+val position_properties = [lineN, columnN, offsetN] @ position_properties';
val (positionN, position) = markup_elem "position";