diff options
| author | herbelin | 2006-10-28 09:58:16 +0000 |
|---|---|---|
| committer | herbelin | 2006-10-28 09:58:16 +0000 |
| commit | c09da18298d947335cb572ca5f688298b1b8238e (patch) | |
| tree | e4c14c5daf47027928996a4390bcce55b28f0f50 /toplevel | |
| parent | 3f41c704aa09301df18cfc90f72a3895e169d74c (diff) | |
Ajout option Set Printing Universes et amélioration affichage des univers
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9304 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/vernacentries.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index c72fb248bd..5ae3998f31 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -800,6 +800,14 @@ let _ = optread=Pp_control.get_margin; optwrite=Pp_control.set_margin } +let _ = + declare_bool_option + { optsync=true; + optkey=SecondaryTable("Printing","Universes"); + optname="the printing of universes"; + optread=(fun () -> !Constrextern.print_universes); + optwrite=(fun b -> Constrextern.print_universes:=b) } + let vernac_debug b = set_debug (if b then Tactic_debug.DebugOn 0 else Tactic_debug.DebugOff) |