Add <undoitem> for theory-state undos.
authoraspinall
Mon, 15 Nov 2004 13:51:43 +0100
changeset 15286 b084384960d1
parent 15285 ce83b7e74a91
child 15287 55b7f7920622
Add <undoitem> for theory-state undos.
src/Pure/proof_general.ML
--- a/src/Pure/proof_general.ML	Mon Nov 15 12:13:14 2004 +0100
+++ b/src/Pure/proof_general.ML	Mon Nov 15 13:51:43 2004 +0100
@@ -1168,7 +1168,7 @@
      | "spuriouscmd"    => isarscript data
      | "badcmd"		=> isarscript data
      (* improperproofcmd: improper commands which *do not* belong in script *)
-     | "undostep"       => isarcmd "undos_proof 1" (* ProofGeneral.undo" *)
+     | "undostep"       => isarcmd "undos_proof 1"
      | "abortgoal"      => isarcmd "ProofGeneral.kill_proof"  
      | "forget"         => error "Not implemented" 
      | "restoregoal"    => error "Not implemented"  (* could just treat as forget? *)
@@ -1190,6 +1190,7 @@
 			       writeln ("Theory \""^thyname^"\" completed."))
 			   end
      (* improperfilecmd: theory-level commands not in script *)
+     | "undoitem"       => isarcmd "ProofGeneral.undo"
      | "aborttheory"    => isarcmd ("init_toplevel")
      | "retracttheory"  => isarcmd ("kill_thy " ^ (quote (thyname_attr attrs)))
      | "loadfile"       => use_thy_or_ml_file (fileurl_of attrs)