From dfac5aa2285de5b89f08ada3c30c0a1594737440 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Wed, 7 Sep 2016 18:02:52 +0200
Subject: Making Vernacexpr independent from Tacexpr.

---
 ide/texmacspp.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ide')

diff --git a/ide/texmacspp.ml b/ide/texmacspp.ml
index 53a29008ad..458e84835b 100644
--- a/ide/texmacspp.ml
+++ b/ide/texmacspp.ml
@@ -742,7 +742,7 @@ let rec tmpp v loc =
   | VernacShow _ as x -> xmlTODO loc x
   | VernacCheckGuard as x -> xmlTODO loc x
   | VernacProof (tac,using) ->
-      let tac = Option.map (xmlRawTactic "closingtactic") tac in
+      let tac = None (** FIXME *) in
       let using = Option.map (xmlSectionSubsetDescr "using") using in
       xmlProof loc (Option.List.(cons tac (cons using [])))
   | VernacProofMode name -> xmlProofMode loc name
-- 
cgit v1.2.3


From a6cd6948fa592f21b67916f423fe2adb62085492 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Fri, 9 Sep 2016 00:47:46 +0200
Subject: Removing the last uses of Pptactic in the lower layers.

---
 ide/richprinter.ml | 1 -
 ide/texmacspp.ml   | 4 ----
 2 files changed, 5 deletions(-)

(limited to 'ide')

diff --git a/ide/richprinter.ml b/ide/richprinter.ml
index 5f39f36eab..995cef1ac5 100644
--- a/ide/richprinter.ml
+++ b/ide/richprinter.ml
@@ -2,7 +2,6 @@ open Richpp
 
 module RichppConstr = Ppconstr.Richpp
 module RichppVernac = Ppvernac.Richpp
-module RichppTactic = Pptactic.Richpp
 
 type rich_pp =
     Ppannotation.t Richpp.located Xml_datatype.gxml
diff --git a/ide/texmacspp.ml b/ide/texmacspp.ml
index 458e84835b..328ddd0cdf 100644
--- a/ide/texmacspp.ml
+++ b/ide/texmacspp.ml
@@ -127,10 +127,6 @@ let xmlProofMode loc name = xmlWithLoc loc "proofmode" ["name",name] []
 
 let xmlProof loc xml = xmlWithLoc loc "proof" [] xml
 
-let xmlRawTactic name rtac =
-  Element("rawtactic", ["name",name],
-    [PCData (Pp.string_of_ppcmds (Pptactic.pr_raw_tactic rtac))])
-
 let xmlSectionSubsetDescr name ssd =
   Element("sectionsubsetdescr",["name",name],
     [PCData (Proof_using.to_string ssd)])
-- 
cgit v1.2.3