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