From c3d0839b9ae457af2df3b0029461f243148f35ec Mon Sep 17 00:00:00 2001
From: Mike Gerwitz <mtg@gnu.org>
Date: Mon, 28 Sep 2015 23:59:33 -0400
Subject: [PATCH] Prevent reading preceding sibling's docblock

---
 src/texinfo.xsl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/texinfo.xsl b/src/texinfo.xsl
index f17cf5f..9c3fe5d 100644
--- a/src/texinfo.xsl
+++ b/src/texinfo.xsl
@@ -189,8 +189,10 @@
 <function name="xt:get-docblock" as="comment()?">
   <param name="context" as="node()" />
 
-  <sequence select="$context/preceding-sibling::comment()[1][
-                      xt:is-docblock( . ) ]" />
+  <sequence select="( ( $context/preceding-sibling::node()[
+                          not( . instance of text() ) ] )
+                        [ last() ] )
+                      [ . instance of comment() ]" />
 </function>