diff options
| author | letouzey | 2011-09-05 16:47:01 +0000 |
|---|---|---|
| committer | letouzey | 2011-09-05 16:47:01 +0000 |
| commit | 98db1b73f6ab89763ef386a2055528db91e4e152 (patch) | |
| tree | 1743e12160bef3ace6ea46fa00f5618df65ebecc /toplevel | |
| parent | e4c505927b0ebe06f87ecc14567431822e8e0b5c (diff) | |
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
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/coqtop.ml | 1 | ||||
| -rw-r--r-- | toplevel/vernacentries.ml | 9 |
2 files changed, 6 insertions, 4 deletions
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 |