src/Pure/PIDE/document.ML
changeset 70665 94442fce40a5
parent 70663 4a358f8c7cb7
child 70695 5d32cca55c2a
equal deleted inserted replaced
70664:2bd9e30183b1 70665:94442fce40a5
   436                     in Position.reports (maps (blob_reports pos) blobs_digests) end;
   436                     in Position.reports (maps (blob_reports pos) blobs_digests) end;
   437               in tokens end) ());
   437               in tokens end) ());
   438       val commands' =
   438       val commands' =
   439         Inttab.update_new (command_id, (name, blobs_digests, blobs_index, span)) commands
   439         Inttab.update_new (command_id, (name, blobs_digests, blobs_index, span)) commands
   440           handle Inttab.DUP dup => err_dup "command" dup;
   440           handle Inttab.DUP dup => err_dup "command" dup;
   441       val _ =
       
   442         Position.setmp_thread_data (Position.id_only id)
       
   443           (fn () => Output.status [Markup.markup_only Markup.accepted]) ();
       
   444     in (versions, blobs, commands', execution) end);
   441     in (versions, blobs, commands', execution) end);
   445 
   442 
   446 fun the_command (State {commands, ...}) command_id =
   443 fun the_command (State {commands, ...}) command_id =
   447   (case Inttab.lookup commands command_id of
   444   (case Inttab.lookup commands command_id of
   448     NONE => err_undef "command" command_id
   445     NONE => err_undef "command" command_id