From: bobstayton <bobs@sagehill.net>
Date: Sat, 21 Jul 2018 15:52:04 +0000 (-0700)
Subject: fix issue #43 Spurious escapes caused by manpage title truncation
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=refs%2Fheads%2Fbobs_bugfix_43;p=docbook-dsssl

fix issue #43 Spurious escapes caused by manpage title truncation
---

diff --git a/xsl/manpages/other.xsl b/xsl/manpages/other.xsl
index c87b08c17..850fa08f0 100644
--- a/xsl/manpages/other.xsl
+++ b/xsl/manpages/other.xsl
@@ -326,15 +326,33 @@
     <!-- * validation does not provide a way to constrain them to be -->
     <!-- * "space free" -->
     <xsl:text>.TH "</xsl:text>
+    <xsl:variable name="title.n" select="normalize-space($title)"/>
     <xsl:call-template name="string.upper">
       <xsl:with-param name="string">
         <xsl:choose>
           <xsl:when test="$man.th.title.max.length != ''">
-            <xsl:value-of
-                select="normalize-space(substring($title, 1, $man.th.title.max.length))"/>
+            <xsl:choose>
+              <!-- if last two are double backslash, then two less -->
+              <xsl:when test="substring($title.n,$man.th.title.max.length - 1, 2) = '\\'">
+                <xsl:value-of select="substring($title.n, 1, $man.th.title.max.length - 2)"/>
+              </xsl:when>
+              <xsl:when test="substring($title.n,$man.th.title.max.length - 1, 2) = '\E'">
+                <xsl:value-of select="substring($title.n, 1, $man.th.title.max.length - 2)"/>
+              </xsl:when>
+              <xsl:when test="substring($title.n,$man.th.title.max.length - 1, 2) = '\e'">
+                <xsl:value-of select="substring($title.n, 1, $man.th.title.max.length - 2)"/>
+              </xsl:when>
+              <!-- if last character is backslash, then one less -->
+              <xsl:when test="substring($title.n,$man.th.title.max.length,1) = '\'">
+                <xsl:value-of select="substring($title.n, 1, $man.th.title.max.length - 1)"/>
+              </xsl:when>
+              <xsl:otherwise>
+                <xsl:value-of select="substring($title.n, 1, $man.th.title.max.length)"/>
+              </xsl:otherwise>
+            </xsl:choose>
           </xsl:when>
           <xsl:otherwise>
-            <xsl:value-of select="normalize-space($title)"/>
+            <xsl:value-of select="$title.n"/>
           </xsl:otherwise>
         </xsl:choose>
       </xsl:with-param>