From ba58d0cec38e48452bc76ba500279c20a421ffac Mon Sep 17 00:00:00 2001
From: Norman Walsh <ndw@nwalsh.com>
Date: Wed, 13 Mar 2002 11:39:45 +0000
Subject: [PATCH] Improve efficiency of make-verbatim; thanks to Paul Grosso,
 John Dreystadt, et. al.

---
 xsl/html/verbatim.xsl | 31 +++++++++++++++++++++----------
 1 file changed, 21 insertions(+), 10 deletions(-)

diff --git a/xsl/html/verbatim.xsl b/xsl/html/verbatim.xsl
index 6bec5c29c..9d3a2a4f0 100644
--- a/xsl/html/verbatim.xsl
+++ b/xsl/html/verbatim.xsl
@@ -268,27 +268,38 @@
 
 <xsl:template name="make-verbatim">
   <xsl:param name="text" select="''"/>
+
+  <xsl:call-template name="make-verbatim-recursive">
+    <xsl:with-param name="text" select="translate($text, ' ', '&#160;')"/>
+  </xsl:call-template>
+</xsl:template>
+
+<xsl:template name="make-verbatim-recursive">
+  <xsl:param name="text" select="''"/>
+
   <xsl:choose>
     <xsl:when test="not(contains($text, '&#xA;'))">
       <xsl:value-of select="$text"/>
     </xsl:when>
+
     <xsl:otherwise>
       <xsl:variable name="len" select="string-length($text)"/>
+
       <xsl:choose>
         <xsl:when test="$len = 1">
           <br/><xsl:text>&#xA;</xsl:text>
         </xsl:when>
+
         <xsl:otherwise>
-          <xsl:variable name="half" select="$len div 2"/>
-          <xsl:call-template name="make-verbatim">
-            <xsl:with-param name="text" select="substring($text, 1,
-$half)"/>
-          </xsl:call-template>
-          <xsl:call-template name="make-verbatim">
-            <xsl:with-param name="text"
-                            select="substring($text, ($half + 1), $len)"/>
-          </xsl:call-template>
-        </xsl:otherwise>
+    	  <xsl:variable name="half" select="$len div 2"/>
+    	  <xsl:call-template name="make-verbatim-recursive">
+    	    <xsl:with-param name="text" select="substring($text, 1, $half)"/>
+    	  </xsl:call-template>
+    	  <xsl:call-template name="make-verbatim-recursive">
+    	    <xsl:with-param name="text"
+    			    select="substring($text, ($half + 1), $len)"/>
+    	  </xsl:call-template>
+    	</xsl:otherwise>
       </xsl:choose>
     </xsl:otherwise>
   </xsl:choose>
-- 
2.40.0