From 6b041a242607ec906fbab451e53c15af6339e4ef Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Thu, 18 May 2017 07:31:36 +0200
Subject: [emacs] [toplevel] Make emacs flag local to the toplevel.

We remove the emacs-specific printing code from the core of Coq, now
`-emacs` is a printing flag controlled by the toplevel.
---
 lib/flags.ml  | 1 -
 lib/flags.mli | 4 ++--
 2 files changed, 2 insertions(+), 3 deletions(-)

(limited to 'lib')

diff --git a/lib/flags.ml b/lib/flags.ml
index b2671e5b60..6a3b7a4261 100644
--- a/lib/flags.ml
+++ b/lib/flags.ml
@@ -87,7 +87,6 @@ let in_toplevel = ref false
 
 let profile = false
 
-let print_emacs = ref false
 let xml_export = ref false
 
 let ide_slave = ref false
diff --git a/lib/flags.mli b/lib/flags.mli
index 7ce808041a..e2cf09474e 100644
--- a/lib/flags.mli
+++ b/lib/flags.mli
@@ -13,7 +13,9 @@
 val boot : bool ref
 val load_init : bool ref
 
+(* Will affect STM caching *)
 val batch_mode : bool ref
+
 type compilation_mode = BuildVo | BuildVio | Vio2Vo
 val compilation_mode : compilation_mode ref
 val compilation_output_name : string option ref
@@ -56,8 +58,6 @@ val profile : bool
 
 (* Legacy flags *)
 
-(* -emacs option: printing includes emacs tags, will affect stm caching. *)
-val print_emacs : bool ref
 (* -xml option: xml hooks will be called *)
 val xml_export : bool ref
 
-- 
cgit v1.2.3