Strip Schematron elements too, unless remove-schematron is 0 (it is 1 by default)

diff --git a/docbook/relaxng/tools/removedoc.xsl b/docbook/relaxng/tools/removedoc.xsl
index 4830dbe8f70f805b55a9d0fa4631b8dc918de120..01ce69a47dc93ffe17a2c5b8c106d386a52017a0 100644 (file)
--- a/docbook/relaxng/tools/removedoc.xsl
+++ b/docbook/relaxng/tools/removedoc.xsl
@@ -15,10 +15,21 @@
 
 <xsl:strip-space elements="*"/>
 
+<xsl:param name="remove-schematron" select="1"/>
+
 <xsl:template match="db:*"/>
 <xsl:template match="dbx:*"/>
 <xsl:template match="ctrl:*"/>
 
+<xsl:template match="s:*">
+  <xsl:if test="$remove-schematron = 0">
+    <xsl:copy>
+      <xsl:copy-of select="@*"/>
+      <xsl:apply-templates/>
+    </xsl:copy>
+  </xsl:if>
+</xsl:template>
+
 <xsl:template match="rng:element">
   <xsl:copy>
     <xsl:copy-of select="@*"/>