From cecdb11dd918f343ebbb25855a49c7f8d4bc4fdc Mon Sep 17 00:00:00 2001
From: Bob Stayton <bobs@sagehill.net>
Date: Thu, 10 Jul 2003 23:24:31 +0000
Subject: [PATCH] Now variablelists properly handle preamble text that appears
 before the first varlistenty.

---
 xsl/fo/lists.xsl | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/xsl/fo/lists.xsl b/xsl/fo/lists.xsl
index 9d0a4f560..e5be7cf04 100644
--- a/xsl/fo/lists.xsl
+++ b/xsl/fo/lists.xsl
@@ -300,11 +300,15 @@
     <xsl:apply-templates select="title" mode="list.title.mode"/>
   </xsl:if>
 
+  <xsl:apply-templates select="*[not(self::varlistentry
+                                  or self::title
+                                  or self::titleabbrev)]"/>
+
   <fo:list-block id="{$id}"
                  provisional-distance-between-starts="{$termlength}"
                  provisional-label-separation="0.25in"
                  xsl:use-attribute-sets="list.block.spacing">
-    <xsl:apply-templates mode="vl.as.list"/>
+    <xsl:apply-templates select="varlistentry" mode="vl.as.list"/>
   </fo:list-block>
 </xsl:template>
 
@@ -362,8 +366,12 @@
     <xsl:apply-templates select="title" mode="list.title.mode"/>
   </xsl:if>
 
+  <xsl:apply-templates select="*[not(self::varlistentry
+                                  or self::title
+                                  or self::titleabbrev)]"/>
+
   <fo:block id="{$id}" xsl:use-attribute-sets="list.block.spacing">
-    <xsl:apply-templates mode="vl.as.blocks"/>
+    <xsl:apply-templates select="varlistentry" mode="vl.as.blocks"/>
   </fo:block>
 </xsl:template>
 
-- 
2.40.0