src/Pure/Isar/proof.ML
changeset 50912 8d391f185cac
parent 50885 f3588e59aeaa
child 51048 123be08eed88
--- a/src/Pure/Isar/proof.ML	Wed Jan 16 16:26:36 2013 +0100
+++ b/src/Pure/Isar/proof.ML	Wed Jan 16 18:43:59 2013 +0100
@@ -827,7 +827,8 @@
     val (finish_text, terminal_pos, finished_pos) =
       (case opt_text of
         NONE => (Method.finish_text (NONE, immed), Position.none, prev_pos)
-      | SOME (text, (pos, end_pos)) => (Method.finish_text (SOME text, immed), pos, end_pos));
+      | SOME (text, (pos, end_pos)) =>
+          (Method.finish_text (SOME text, immed), Position.set_range (pos, end_pos), end_pos));
   in
     Seq.APPEND (fn state =>
       state