diff options
| author | Pierre-Marie Pédrot | 2014-11-15 19:13:11 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-11-15 19:15:14 +0100 |
| commit | 40cb5731ddfcff2a791033e84cc083c119270fc1 (patch) | |
| tree | 26533dc07af894118366d3f04e550ba8486d561e /lib | |
| parent | 8a03208daca697ec9c2414d0cf5231150ea539e5 (diff) | |
Reworking the -color flag of coqtop.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/flags.ml | 5 | ||||
| -rw-r--r-- | lib/flags.mli | 4 |
2 files changed, 0 insertions, 9 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index 993ebaa705..f95c31d9b8 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -141,11 +141,6 @@ let verbosely f x = without_option silent f x let if_silent f x = if !silent then f x let if_verbose f x = if not !silent then f x -(* Use terminal color *) -let term_color = ref false -let make_term_color b = term_color := b -let is_term_color () = !term_color - let auto_intros = ref true let make_auto_intros flag = auto_intros := flag let is_auto_intros () = version_strictly_greater V8_2 && !auto_intros diff --git a/lib/flags.mli b/lib/flags.mli index cfc3d5001e..757563926c 100644 --- a/lib/flags.mli +++ b/lib/flags.mli @@ -79,10 +79,6 @@ val if_verbose : ('a -> unit) -> 'a -> unit val make_auto_intros : bool -> unit val is_auto_intros : unit -> bool -(** Terminal colouring *) -val make_term_color : bool -> unit -val is_term_color : unit -> bool - val program_mode : bool ref val is_program_mode : unit -> bool |