src/Pure/Isar/isar_document.ML
changeset 34242 5ccdc8bf3849
parent 34212 8c3e1f73953d
child 34285 218fa4267718
equal deleted inserted replaced
34241:8611f1813fc9 34242:5ccdc8bf3849
   232       in put_state state_id' state' end;
   232       in put_state state_id' state' end;
   233   in (state_id', ((id, state_id'), make_state') :: updates) end;
   233   in (state_id', ((id, state_id'), make_state') :: updates) end;
   234 
   234 
   235 fun report_updates [] = ()
   235 fun report_updates [] = ()
   236   | report_updates updates =
   236   | report_updates updates =
   237       Output.status
   237       implode (map (fn (id, state_id) => Markup.markup (Markup.edit id state_id) "") updates)
   238         (implode (map (fn (id, state_id) => Markup.markup (Markup.edit id state_id) "") updates));
   238       |> Markup.markup Markup.assign
       
   239       |> Output.status;
   239 
   240 
   240 in
   241 in
   241 
   242 
   242 fun edit_document (old_id: document_id) (new_id: document_id) edits =
   243 fun edit_document (old_id: document_id) (new_id: document_id) edits =
   243   NAMED_CRITICAL "Isar" (fn () =>
   244   NAMED_CRITICAL "Isar" (fn () =>