From a36a3bfa07be0c69add0a65d9d0fa03b03193b4d Mon Sep 17 00:00:00 2001
From: Jirka Kosek <jirka@kosek.cz>
Date: Sun, 12 Dec 2004 15:38:26 +0000
Subject: [PATCH] Added new paramater hyphenate.verbatim.characters which can
 specify characters after which line break can occur in verbatim environments.
 This parameter can be used to extend initial set of characters which contain
 only space and non-breakable space.

---
 xsl/fo/param.ent                             |  1 +
 xsl/fo/param.xweb                            |  2 ++
 xsl/fo/verbatim.xsl                          |  5 +++++
 xsl/params/hyphenate.verbatim.characters.xml | 23 ++++++++++++++++++++
 4 files changed, 31 insertions(+)
 create mode 100644 xsl/params/hyphenate.verbatim.characters.xml

diff --git a/xsl/fo/param.ent b/xsl/fo/param.ent
index 6d9a47009..d694a0e46 100644
--- a/xsl/fo/param.ent
+++ b/xsl/fo/param.ent
@@ -74,6 +74,7 @@
 <!ENTITY headers.on.blank.pages SYSTEM "../params/headers.on.blank.pages.xml">
 <!ENTITY hyphenate SYSTEM "../params/hyphenate.xml">
 <!ENTITY hyphenate.verbatim SYSTEM "../params/hyphenate.verbatim.xml">
+<!ENTITY hyphenate.verbatim.characters SYSTEM "../params/hyphenate.verbatim.characters.xml">
 <!ENTITY index.on.role SYSTEM "../params/index.on.role.xml">
 <!ENTITY index.on.type SYSTEM "../params/index.on.type.xml">
 <!ENTITY informal.object.properties SYSTEM "../params/informal.object.properties.xml">
diff --git a/xsl/fo/param.xweb b/xsl/fo/param.xweb
index 72f3701c2..245621db2 100644
--- a/xsl/fo/param.xweb
+++ b/xsl/fo/param.xweb
@@ -232,6 +232,7 @@ generate.section.toc.level;
 &shade.verbatim;
 &shade.verbatim.style;
 &hyphenate.verbatim;
+&hyphenate.verbatim.characters;
 &use.svg;
 &use.role.as.xrefstyle;
 &menuchoice.separator;
@@ -600,6 +601,7 @@ around all these parameters.</para>
 <src:fragref linkend="headers.on.blank.pages.frag"/>
 <src:fragref linkend="hyphenate.frag"/>
 <src:fragref linkend="hyphenate.verbatim.frag"/>
+<src:fragref linkend="hyphenate.verbatim.characters.frag"/>
 <src:fragref linkend="ignore.image.scaling.frag"/>
 <src:fragref linkend="index.on.role.frag"/>
 <src:fragref linkend="index.on.type.frag"/>
diff --git a/xsl/fo/verbatim.xsl b/xsl/fo/verbatim.xsl
index d0d8cfd45..f7e201471 100644
--- a/xsl/fo/verbatim.xsl
+++ b/xsl/fo/verbatim.xsl
@@ -399,6 +399,11 @@
       <xsl:text>&#160;</xsl:text>
       <xsl:text>&#x00AD;</xsl:text>
     </xsl:when>
+    <xsl:when test="$hyphenate.verbatim.characters != '' and
+                    translate($hyphenate.verbatim.characters, $head, '') = ''">
+      <xsl:value-of select="$head"/>
+      <xsl:text>&#x00AD;</xsl:text>
+    </xsl:when>
     <xsl:otherwise>
       <xsl:value-of select="$head"/>
     </xsl:otherwise>
diff --git a/xsl/params/hyphenate.verbatim.characters.xml b/xsl/params/hyphenate.verbatim.characters.xml
new file mode 100644
index 000000000..dadf3b05b
--- /dev/null
+++ b/xsl/params/hyphenate.verbatim.characters.xml
@@ -0,0 +1,23 @@
+<refentry id="hyphenate.verbatim.characters">
+<refmeta>
+<refentrytitle>hyphenate.verbatim.characters</refentrytitle>
+<refmiscinfo role="type">string</refmiscinfo>
+</refmeta>
+<refnamediv>
+<refname>hyphenate.verbatim.characters</refname>
+<refpurpose>List of characters after which line break can occur in listings</refpurpose>
+</refnamediv>
+
+<refsynopsisdiv>
+<src:fragment id='hyphenate.verbatim.characters.frag'><xsl:param name="hyphenate.verbatim.characters" select="''"/></src:fragment>
+</refsynopsisdiv>
+
+<refsect1><title>Description</title>
+
+<para>If you enable <parameter>hyphenate.verbatim</parameter> line
+breaks are allowed only on space characters. If this is not enough for
+your document, you can specify list of additional characters after
+which line break is allowed in this parameter.</para>
+
+</refsect1>
+</refentry>
-- 
2.40.0