From 98db1b73f6ab89763ef386a2055528db91e4e152 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Mon, 5 Sep 2011 16:47:01 +0000
Subject: Remove code concerning the obsolete Set/Unset Undo

 Even if they are no-ops now, the commands Set/Unset Undo themselves
 are kept for compatibility, in particular to avoid error messages
 or warnings during the initialization of ProofGeneral.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14451 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/coqtop.ml        | 1 -
 toplevel/vernacentries.ml | 9 ++++++---
 2 files changed, 6 insertions(+), 4 deletions(-)

(limited to 'toplevel')

diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml
index 21ecdd5b05..6d342b7ca6 100644
--- a/toplevel/coqtop.ml
+++ b/toplevel/coqtop.ml
@@ -324,7 +324,6 @@ let init arglist =
         (print_string (String.concat "\n" foreign_args); exit 0);
       if !ide_slave then begin
         Flags.make_silent true;
-        Pfedit.set_undo (Some 5000);
         Ide_slave.init_stdout ()
       end;
       if_verbose print_header ();
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml
index b5484d40f3..465302a234 100644
--- a/toplevel/vernacentries.ml
+++ b/toplevel/vernacentries.ml
@@ -933,13 +933,16 @@ let _ =
       optread  = (fun _ -> not (Vm.transp_values ()));
       optwrite = (fun b -> Vm.set_transp_values (not b)) }
 
+(* No more undo limit in the new proof engine.
+   The command still exists for compatibility (e.g. with ProofGeneral) *)
+
 let _ =
   declare_int_option
     { optsync  = false;
-      optname  = "the undo limit";
+      optname  = "the undo limit (OBSOLETE)";
       optkey   = ["Undo"];
-      optread  = Pfedit.get_undo;
-      optwrite = Pfedit.set_undo }
+      optread  = (fun _ -> None);
+      optwrite = (fun _ -> ()) }
 
 let _ =
   declare_int_option
-- 
cgit v1.2.3