From 305c490a8801511d16a88a07e6d0f85c977fc346 Mon Sep 17 00:00:00 2001
From: Norman Walsh <ndw@nwalsh.com>
Date: Wed, 26 Sep 2001 18:36:34 +0000
Subject: [PATCH] Bug #464487: use (new) anchor template to consistently
 generate HTML anchors (usually conditionally, in other words, only for
 elements that actually have an ID)

---
 xsl/html/admon.xsl     | 38 +-----------------
 xsl/html/biblio.xsl    | 46 ++++++++++-----------
 xsl/html/block.xsl     | 39 +++++-------------
 xsl/html/callout.xsl   |  2 +-
 xsl/html/component.xsl | 19 +++------
 xsl/html/division.xsl  | 27 ++-----------
 xsl/html/ebnf.xsl      |  6 +--
 xsl/html/formal.xsl    | 12 ++----
 xsl/html/glossary.xsl  | 20 +++-------
 xsl/html/graphics.xsl  |  4 +-
 xsl/html/html.xsl      | 13 ++++++
 xsl/html/index.xsl     | 27 +++----------
 xsl/html/inline.xsl    | 40 +++++--------------
 xsl/html/lists.xsl     | 91 ++++++++++++------------------------------
 xsl/html/qandaset.xsl  | 28 ++++---------
 xsl/html/refentry.xsl  | 26 ++----------
 xsl/html/sections.xsl  | 68 +++++++++++--------------------
 xsl/html/synop.xsl     |  6 +--
 xsl/html/table.xsl     |  8 ++--
 xsl/html/verbatim.xsl  |  4 +-
 xsl/html/xref.xsl      | 15 ++-----
 21 files changed, 155 insertions(+), 384 deletions(-)

diff --git a/xsl/html/admon.xsl b/xsl/html/admon.xsl
index 09eae16fe..c3f8e6010 100644
--- a/xsl/html/admon.xsl
+++ b/xsl/html/admon.xsl
@@ -62,11 +62,7 @@
         </img>
       </td>
       <th>
-        <a>
-          <xsl:attribute name="name">
-            <xsl:call-template name="object.id"/>
-          </xsl:attribute>
-        </a>
+        <xsl:call-template name="anchor"/>
         <xsl:apply-templates select="." mode="object.title.markup"/>
       </th>
     </tr>
@@ -88,11 +84,7 @@
     </xsl:if>
 
     <h3 class="title">
-      <a>
-        <xsl:attribute name="name">
-          <xsl:call-template name="object.id"/>
-        </xsl:attribute>
-      </a>
+      <xsl:call-template name="anchor"/>
       <xsl:apply-templates select="." mode="object.title.markup"/>
     </h3>
 
@@ -106,30 +98,4 @@
 <xsl:template match="caution/title"></xsl:template>
 <xsl:template match="tip/title"></xsl:template>
 
-<xsl:template match="title" mode="admonition.title.mode">
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id">
-      <xsl:with-param name="object" select=".."/>
-    </xsl:call-template>
-  </xsl:variable>
-  <h3 class="title">
-    <a name="{$id}">
-      <xsl:apply-templates/>
-    </a>
-  </h3>
-</xsl:template>
-
-<xsl:template match="title" mode="graphic.admonition.title.mode">
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id">
-      <xsl:with-param name="object" select=".."/>
-    </xsl:call-template>
-  </xsl:variable>
-  <b class="title">
-    <a name="{$id}">
-      <xsl:apply-templates/>
-    </a>
-  </b>
-</xsl:template>
-
 </xsl:stylesheet>
diff --git a/xsl/html/biblio.xsl b/xsl/html/biblio.xsl
index 8a8930b64..4be40be63 100644
--- a/xsl/html/biblio.xsl
+++ b/xsl/html/biblio.xsl
@@ -30,15 +30,11 @@
 <xsl:template match="bibliography/titleabbrev"></xsl:template>
 
 <xsl:template match="bibliography/title" mode="component.title.mode">
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id">
-      <xsl:with-param name="object" select=".."/>
-    </xsl:call-template>
-  </xsl:variable>
   <h2 class="title">
-    <a name="{$id}">
-      <xsl:apply-templates/>
-    </a>
+    <xsl:call-template name="anchor">
+      <xsl:with-param name="node" select=".."/>
+    </xsl:call-template>
+    <xsl:apply-templates/>
   </h2>
 </xsl:template>
 
@@ -57,22 +53,21 @@
 </xsl:template>
 
 <xsl:template match="bibliodiv/title">
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id">
-      <xsl:with-param name="object" select=".."/>
-    </xsl:call-template>
-  </xsl:variable>
   <h3 class="{name(.)}">
-    <a name="{$id}">
-      <xsl:apply-templates/>
-    </a>
+    <xsl:call-template name="anchor">
+      <xsl:with-param name="node" select=".."/>
+    </xsl:call-template>
+    <xsl:apply-templates/>
   </h3>
 </xsl:template>
 
 <!-- ==================================================================== -->
 
 <xsl:template match="biblioentry">
-  <xsl:variable name="id"><xsl:call-template name="object.id"/></xsl:variable>
+  <xsl:variable name="id">
+    <xsl:call-template name="object.id"/>
+  </xsl:variable>
+
   <xsl:choose>
     <xsl:when test="string(.) = ''">
       <xsl:variable name="bib" select="document($bibliography.collection)"/>
@@ -88,8 +83,8 @@
             <xsl:text> found in </xsl:text>
             <xsl:value-of select="$bibliography.collection"/>
           </xsl:message>
-          <div id="{$id}" class="{name(.)}">
-            <a name="{$id}"/>
+          <div class="{name(.)}">
+            <xsl:call-template name="anchor"/>
             <p>
               <xsl:text>Error: no bibliography entry: </xsl:text>
               <xsl:value-of select="$id"/>
@@ -101,8 +96,8 @@
       </xsl:choose>
     </xsl:when>
     <xsl:otherwise>
-      <div id="{$id}" class="{name(.)}">
-        <a name="{$id}"/>
+      <div class="{name(.)}">
+        <xsl:call-template name="anchor"/>
         <p>
           <xsl:apply-templates mode="bibliography.mode"/>
         </p>
@@ -112,7 +107,10 @@
 </xsl:template>
 
 <xsl:template match="bibliomixed">
-  <xsl:variable name="id"><xsl:call-template name="object.id"/></xsl:variable>
+  <xsl:variable name="id">
+    <xsl:call-template name="object.id"/>
+  </xsl:variable>
+
   <xsl:choose>
     <xsl:when test="string(.) = ''">
       <xsl:variable name="bib" select="document($bibliography.collection)"/>
@@ -129,7 +127,7 @@
             <xsl:value-of select="$bibliography.collection"/>
           </xsl:message>
           <div id="{$id}" class="{name(.)}">
-            <a name="{$id}"/>
+            <xsl:call-template name="anchor"/>
             <p>
               <xsl:text>Error: no bibliography entry: </xsl:text>
               <xsl:value-of select="$id"/>
@@ -142,7 +140,7 @@
     </xsl:when>
     <xsl:otherwise>
       <div id="{$id}" class="{name(.)}">
-        <a name="{$id}"/>
+        <xsl:call-template name="anchor"/>
         <p>
           <xsl:choose>
             <xsl:when test="local-name(*[1]) = 'abbrev'">
diff --git a/xsl/html/block.xsl b/xsl/html/block.xsl
index 815ac868b..399fb0176 100644
--- a/xsl/html/block.xsl
+++ b/xsl/html/block.xsl
@@ -16,11 +16,7 @@
 
 <xsl:template name="block.object">
   <div class="{name(.)}">
-    <a>
-      <xsl:attribute name="name">
-        <xsl:call-template name="object.id"/>
-      </xsl:attribute>
-    </a>
+    <xsl:call-template name="anchor"/>
     <xsl:apply-templates/>
   </div>
 </xsl:template>
@@ -30,18 +26,12 @@
 <xsl:template match="para">
   <p>
     <xsl:if test="position() = 1 and parent::listitem">
-      <a>
-        <xsl:attribute name="name">
-          <xsl:call-template name="object.id">
-            <xsl:with-param name="object" select="parent::listitem"/>
-          </xsl:call-template>
-        </xsl:attribute>
-      </a>
+      <xsl:call-template name="anchor">
+        <xsl:with-param name="node" select="parent::listitem"/>
+      </xsl:call-template>
     </xsl:if>
 
-    <xsl:if test="@id">
-      <a name="{@id}"/>
-    </xsl:if>
+    <xsl:call-template name="anchor"/>
     <xsl:apply-templates/>
   </p>
 </xsl:template>
@@ -49,18 +39,14 @@
 <xsl:template match="simpara">
   <!-- see also listitem/simpara in lists.xsl -->
   <p>
-    <xsl:if test="@id">
-      <a name="{@id}"/>
-    </xsl:if>
+    <xsl:call-template name="anchor"/>
     <xsl:apply-templates/>
   </p>
 </xsl:template>
 
 <xsl:template match="formalpara">
   <p>
-    <xsl:if test="@id">
-      <a name="{@id}"/>
-    </xsl:if>
+    <xsl:call-template name="anchor"/>
     <xsl:apply-templates/>
   </p>
 </xsl:template>
@@ -90,9 +76,7 @@
 <!-- ==================================================================== -->
 
 <xsl:template match="blockquote">
-  <xsl:if test="@id">
-    <a name="{@id}"/>
-  </xsl:if>
+  <xsl:call-template name="anchor"/>
   <xsl:choose>
     <xsl:when test="attribution">
       <table border="0" width="100%"
@@ -138,12 +122,7 @@
 
 <xsl:template match="sidebar">
   <div class="{name(.)}">
-    <a>
-      <xsl:attribute name="name">
-        <xsl:call-template name="object.id"/>
-      </xsl:attribute>
-    </a>
-
+    <xsl:call-template name="anchor"/>
     <xsl:apply-templates/>
   </div>
 </xsl:template>
diff --git a/xsl/html/callout.xsl b/xsl/html/callout.xsl
index 9af572252..c591a9e5b 100644
--- a/xsl/html/callout.xsl
+++ b/xsl/html/callout.xsl
@@ -89,7 +89,7 @@
 </xsl:template>
 
 <xsl:template match="co">
-  <a name="{@id}"/>
+  <xsl:call-template name="anchor"/>
   <xsl:apply-templates select="." mode="callout-bug"/>
 </xsl:template>
 
diff --git a/xsl/html/component.xsl b/xsl/html/component.xsl
index ea98b84a2..7c4395eea 100644
--- a/xsl/html/component.xsl
+++ b/xsl/html/component.xsl
@@ -16,14 +16,10 @@
 
 <xsl:template name="component.title">
   <xsl:param name="node" select="."/>
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id">
-      <xsl:with-param name="object" select="$node"/>
-    </xsl:call-template>
-  </xsl:variable>
-
   <h2 class="title">
-    <a name="{$id}"/>
+    <xsl:call-template name="anchor">
+      <xsl:with-param name="node" select="$node"/>
+    </xsl:call-template>
     <xsl:apply-templates select="$node" mode="object.title.markup"/>
   </h2>
 </xsl:template>
@@ -54,8 +50,7 @@
 <!-- ==================================================================== -->
 
 <xsl:template match="dedication" mode="dedication">
-  <xsl:variable name="id"><xsl:call-template name="object.id"/></xsl:variable>
-  <div id="{$id}" class="{name(.)}">
+  <div class="{name(.)}">
     <xsl:call-template name="dedication.titlepage"/>
     <xsl:apply-templates/>
     <xsl:call-template name="process.footnotes"/>
@@ -97,11 +92,7 @@
 <!-- ==================================================================== -->
 
 <xsl:template match="preface">
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id"/>
-  </xsl:variable>
-
-  <div id="{$id}" class="{name(.)}">
+  <div class="{name(.)}">
     <xsl:call-template name="component.separator"/>
     <xsl:call-template name="preface.titlepage"/>
     <xsl:if test="$generate.preface.toc != '0'">
diff --git a/xsl/html/division.xsl b/xsl/html/division.xsl
index 63760ee8b..fa9a7138b 100644
--- a/xsl/html/division.xsl
+++ b/xsl/html/division.xsl
@@ -15,11 +15,7 @@
 <!-- ==================================================================== -->
 
 <xsl:template match="set">
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id"/>
-  </xsl:variable>
-
-  <div class="{name(.)}" id="{$id}">
+  <div class="{name(.)}">
     <xsl:call-template name="set.titlepage"/>
     <xsl:if test="$generate.set.toc != '0'">
       <xsl:call-template name="set.toc"/>
@@ -36,11 +32,7 @@
 <!-- ==================================================================== -->
 
 <xsl:template match="book">
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id"/>
-  </xsl:variable>
-
-  <div class="{name(.)}" id="{$id}">
+  <div class="{name(.)}">
     <xsl:call-template name="book.titlepage"/>
     <xsl:apply-templates select="dedication" mode="dedication"/>
     <xsl:if test="$generate.book.toc != '0'">
@@ -58,11 +50,7 @@
 <!-- ==================================================================== -->
 
 <xsl:template match="part">
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id"/>
-  </xsl:variable>
-
-  <div class="{name(.)}" id="{$id}">
+  <div class="{name(.)}">
     <xsl:call-template name="part.titlepage"/>
     <xsl:if test="not(partintro) and $generate.part.toc != '0'">
       <xsl:call-template name="division.toc"/>
@@ -102,15 +90,8 @@
 <xsl:template match="partintro/subtitle"></xsl:template>
 
 <xsl:template match="partintro/title" mode="partintro.title.mode">
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id">
-      <xsl:with-param name="object" select=".."/>
-    </xsl:call-template>
-  </xsl:variable>
   <h2>
-    <a name="{$id}">
-      <xsl:apply-templates/>
-    </a>
+    <xsl:apply-templates/>
   </h2>
 </xsl:template>
 
diff --git a/xsl/html/ebnf.xsl b/xsl/html/ebnf.xsl
index 117eec57c..9cbdc3dd1 100644
--- a/xsl/html/ebnf.xsl
+++ b/xsl/html/ebnf.xsl
@@ -127,7 +127,6 @@ borders, otherwise they don't.</para>
 
 <xsl:template match="production">
   <xsl:param name="recap" select="false()"/>
-  <xsl:variable name="id"><xsl:call-template name="object.id"/></xsl:variable>
   <tr>
     <td align="left" valign="top" width="3%">
       <xsl:text>[</xsl:text>
@@ -147,7 +146,7 @@ borders, otherwise they don't.</para>
 	  </a>
 	</xsl:when>
 	<xsl:otherwise>
-	  <a name="{$id}"/>
+          <xsl:call-template name="anchor"/>
 	  <xsl:apply-templates select="lhs"/>
 	</xsl:otherwise>
       </xsl:choose>
@@ -334,9 +333,8 @@ borders, otherwise they don't.</para>
 </xsl:template>
 
 <xsl:template match="constraintdef">
-  <xsl:variable name="id"><xsl:call-template name="object.id"/></xsl:variable>
   <div class="{name(.)}">
-    <a name="{$id}"/>
+    <xsl:call-template name="anchor"/>
     <xsl:apply-templates/>
   </div>
 </xsl:template>
diff --git a/xsl/html/formal.xsl b/xsl/html/formal.xsl
index 1d1a0cb1e..fda3c0d91 100644
--- a/xsl/html/formal.xsl
+++ b/xsl/html/formal.xsl
@@ -21,11 +21,7 @@
 
 <xsl:template name="formal.object.heading">
   <p>
-    <a>
-      <xsl:attribute name="name">
-	<xsl:call-template name="object.id"/>
-      </xsl:attribute>
-    </a>
+    <xsl:call-template name="anchor"/>
     <b>
       <xsl:apply-templates select="." mode="object.title.markup">
         <xsl:with-param name="allow-anchors" select="1"/>
@@ -35,11 +31,9 @@
 </xsl:template>
 
 <xsl:template name="informal.object">
-  <xsl:variable name="id"><xsl:call-template name="object.id"/></xsl:variable>
-
-  <div class="{name(.)}" id="{$id}">
+  <div class="{name(.)}">
     <xsl:if test="$spacing.paras != 0"><p/></xsl:if>
-    <a name="{$id}"/>
+    <xsl:call-template name="anchor"/>
     <xsl:apply-templates/>
     <xsl:if test="$spacing.paras != 0"><p/></xsl:if>
   </div>
diff --git a/xsl/html/glossary.xsl b/xsl/html/glossary.xsl
index 138cb916f..fe3e836d6 100644
--- a/xsl/html/glossary.xsl
+++ b/xsl/html/glossary.xsl
@@ -65,12 +65,7 @@
 
 <xsl:template match="glosslist">
   <div class="{name(.)}">
-    <a>
-      <xsl:attribute name="name">
-        <xsl:call-template name="object.id"/>
-      </xsl:attribute>
-    </a>
-
+    <xsl:call-template name="anchor"/>
     <dl>
       <xsl:apply-templates/>
     </dl>
@@ -117,15 +112,10 @@ GlossEntry ::=
 
 <xsl:template match="glossentry/glossterm[1]" priority="2">
   <dt>
-    <a>
-      <xsl:attribute name="name">
-        <xsl:call-template name="object.id">
-           <xsl:with-param name="object" select=".."/>
-        </xsl:call-template>
-      </xsl:attribute>
-
-      <xsl:apply-templates/>
-    </a>
+    <xsl:call-template name="anchor">
+      <xsl:with-param name="node" select=".."/>
+    </xsl:call-template>
+    <xsl:apply-templates/>
   </dt>
 </xsl:template>
 
diff --git a/xsl/html/graphics.xsl b/xsl/html/graphics.xsl
index d49c10e4f..c8153fbf4 100644
--- a/xsl/html/graphics.xsl
+++ b/xsl/html/graphics.xsl
@@ -143,9 +143,7 @@
 
 <xsl:template match="graphic">
   <p>
-    <xsl:if test="@id">
-      <a name="{@id}"/>
-    </xsl:if>
+    <xsl:call-template name="anchor"/>
     <xsl:call-template name="process.image"/>
   </p>
 </xsl:template>
diff --git a/xsl/html/html.xsl b/xsl/html/html.xsl
index 839c8ac68..2d773f8da 100644
--- a/xsl/html/html.xsl
+++ b/xsl/html/html.xsl
@@ -12,6 +12,19 @@
 
      ******************************************************************** -->
 
+<xsl:template name="anchor">
+  <xsl:param name="node" select="."/>
+  <xsl:param name="conditional" select="1"/>
+  <xsl:variable name="id">
+    <xsl:call-template name="object.id">
+      <xsl:with-param name="object" select="$node"/>
+    </xsl:call-template>
+  </xsl:variable>
+  <xsl:if test="$conditional = 0 or $node/@id">
+    <a name="{$id}"/>
+  </xsl:if>
+</xsl:template>
+
 <xsl:template name="dingbat">
   <xsl:param name="dingbat">bullet</xsl:param>
   <xsl:choose>
diff --git a/xsl/html/index.xsl b/xsl/html/index.xsl
index dbfe89d25..7f931626f 100644
--- a/xsl/html/index.xsl
+++ b/xsl/html/index.xsl
@@ -22,11 +22,8 @@
   <!-- generated index should go. -->
 
   <xsl:if test="count(*)>0 or $generate.index != '0'">
-    <xsl:variable name="id">
-      <xsl:call-template name="object.id"/>
-    </xsl:variable>
-
-    <div id="{$id}" class="{name(.)}">
+    <div class="{name(.)}">
+      <xsl:call-template name="anchor"/>
       <xsl:call-template name="index.titlepage"/>
       <xsl:apply-templates/>
 
@@ -44,15 +41,8 @@
 <xsl:template match="index/titleabbrev"></xsl:template>
 
 <xsl:template match="index/title" mode="component.title.mode">
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id">
-      <xsl:with-param name="object" select=".."/>
-    </xsl:call-template>
-  </xsl:variable>
   <h2 class="title">
-    <a name="{$id}">
-      <xsl:apply-templates/>
-    </a>
+    <xsl:apply-templates/>
   </h2>
 </xsl:template>
 
@@ -66,6 +56,7 @@
 
 <xsl:template match="indexdiv">
   <div class="{name(.)}">
+    <xsl:call-template name="anchor"/>
     <xsl:apply-templates mode="not-indexentrys"/>
     <dl>
       <xsl:apply-templates select="indexentry"/>
@@ -78,21 +69,15 @@
 </xsl:template>
 
 <xsl:template match="indexdiv/title">
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id">
-      <xsl:with-param name="object" select=".."/>
-    </xsl:call-template>
-  </xsl:variable>
   <h3 class="{name(.)}">
-    <a name="{$id}">
-      <xsl:apply-templates/>
-    </a>
+    <xsl:apply-templates/>
   </h3>
 </xsl:template>
 
 <!-- ==================================================================== -->
 
 <xsl:template match="indexterm">
+  <!-- this one must have a name, even if it doesn't have an ID -->
   <xsl:variable name="id">
     <xsl:call-template name="object.id"/>
   </xsl:variable>
diff --git a/xsl/html/inline.xsl b/xsl/html/inline.xsl
index 5d15b01a2..1635d5188 100644
--- a/xsl/html/inline.xsl
+++ b/xsl/html/inline.xsl
@@ -14,9 +14,7 @@
 
 <xsl:template name="inline.charseq">
   <xsl:param name="content">
-    <xsl:if test="@id">
-      <a name="{@id}"/>
-    </xsl:if>
+    <xsl:call-template name="anchor"/>
     <xsl:apply-templates/>
   </xsl:param>
   <xsl:copy-of select="$content"/>
@@ -24,9 +22,7 @@
 
 <xsl:template name="inline.monoseq">
   <xsl:param name="content">
-    <xsl:if test="@id">
-      <a name="{@id}"/>
-    </xsl:if>
+    <xsl:call-template name="anchor"/>
     <xsl:apply-templates/>
   </xsl:param>
   <tt><xsl:copy-of select="$content"/></tt>
@@ -34,9 +30,7 @@
 
 <xsl:template name="inline.boldseq">
   <xsl:param name="content">
-    <xsl:if test="@id">
-      <a name="{@id}"/>
-    </xsl:if>
+    <xsl:call-template name="anchor"/>
     <xsl:apply-templates/>
   </xsl:param>
   <!-- don't put <b> inside figure, example, or table titles -->
@@ -55,9 +49,7 @@
 
 <xsl:template name="inline.italicseq">
   <xsl:param name="content">
-    <xsl:if test="@id">
-      <a name="{@id}"/>
-    </xsl:if>
+    <xsl:call-template name="anchor"/>
     <xsl:apply-templates/>
   </xsl:param>
   <i><xsl:copy-of select="$content"/></i>
@@ -65,9 +57,7 @@
 
 <xsl:template name="inline.boldmonoseq">
   <xsl:param name="content">
-    <xsl:if test="@id">
-      <a name="{@id}"/>
-    </xsl:if>
+    <xsl:call-template name="anchor"/>
     <xsl:apply-templates/>
   </xsl:param>
   <!-- don't put <b> inside figure, example, or table titles -->
@@ -88,9 +78,7 @@
 
 <xsl:template name="inline.italicmonoseq">
   <xsl:param name="content">
-    <xsl:if test="@id">
-      <a name="{@id}"/>
-    </xsl:if>
+    <xsl:call-template name="anchor"/>
     <xsl:apply-templates/>
   </xsl:param>
   <i><tt><xsl:copy-of select="$content"/></tt></i>
@@ -98,9 +86,7 @@
 
 <xsl:template name="inline.superscriptseq">
   <xsl:param name="content">
-    <xsl:if test="@id">
-      <a name="{@id}"/>
-    </xsl:if>
+    <xsl:call-template name="anchor"/>
     <xsl:apply-templates/>
   </xsl:param>
   <sup><xsl:copy-of select="$content"/></sup>
@@ -108,9 +94,7 @@
 
 <xsl:template name="inline.subscriptseq">
   <xsl:param name="content">
-    <xsl:if test="@id">
-      <a name="{@id}"/>
-    </xsl:if>
+    <xsl:call-template name="anchor"/>
     <xsl:apply-templates/>
   </xsl:param>
   <sub><xsl:copy-of select="$content"/></sub>
@@ -405,9 +389,7 @@
         </xsl:attribute>
       </xsl:otherwise>
     </xsl:choose>
-    <xsl:if test="@id">
-      <a name="{@id}"/>
-    </xsl:if>
+    <xsl:call-template name="anchor"/>
 
     <xsl:choose>
       <xsl:when test="@role = 'bold'">
@@ -447,9 +429,7 @@
         <xsl:value-of select="@role"/>
       </xsl:attribute>
     </xsl:if>
-    <xsl:if test="@id">
-      <a name="{@id}"/>
-    </xsl:if>
+    <xsl:call-template name="anchor"/>
     <xsl:apply-templates/>
   </span>
 </xsl:template>
diff --git a/xsl/html/lists.xsl b/xsl/html/lists.xsl
index 14b79ee66..338b23169 100644
--- a/xsl/html/lists.xsl
+++ b/xsl/html/lists.xsl
@@ -16,9 +16,7 @@
 
 <xsl:template match="itemizedlist">
   <div class="{name(.)}">
-    <xsl:if test="@id">
-      <a name="{@id}"/>
-    </xsl:if>
+    <xsl:call-template name="anchor"/>
     <xsl:if test="title">
       <xsl:apply-templates select="title"/>
     </xsl:if>
@@ -93,9 +91,7 @@
   </xsl:variable>
 
   <div class="{name(.)}">
-    <xsl:if test="@id">
-      <a name="{@id}"/>
-    </xsl:if>
+    <xsl:call-template name="anchor"/>
     <xsl:if test="title">
       <xsl:apply-templates select="title"/>
     </xsl:if>
@@ -126,9 +122,7 @@
 
 <xsl:template match="variablelist">
   <div class="{name(.)}">
-    <xsl:if test="@id">
-      <a name="{@id}"/>
-    </xsl:if>
+    <xsl:call-template name="anchor"/>
     <xsl:if test="title">
       <xsl:apply-templates select="title"/>
     </xsl:if>
@@ -143,9 +137,6 @@
 </xsl:template>
 
 <xsl:template match="listitem">
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id"/>
-  </xsl:variable>
   <xsl:variable name="mark" select="ancestor-or-self::*/@mark"/>
   <xsl:variable name="override" select="@override"/>
 
@@ -182,7 +173,7 @@
          is a para, assume the para will put in the anchor. Otherwise,
          put the anchor in anyway. -->
     <xsl:if test="local-name(child::*[1]) != 'para'">
-      <a name="{$id}"/>
+      <xsl:call-template name="anchor"/>
     </xsl:if>
 
     <xsl:choose>
@@ -209,16 +200,12 @@
   <xsl:choose>
     <xsl:when test="not(preceding-sibling::*)
                     and not (following-sibling::*)">
-      <xsl:if test="@id">
-        <a name="{@id}"/>
-      </xsl:if>
+      <xsl:call-template name="anchor"/>
       <xsl:apply-templates/>
     </xsl:when>
     <xsl:otherwise>
       <p>
-        <xsl:if test="@id">
-          <a name="{@id}"/>
-        </xsl:if>
+        <xsl:call-template name="anchor"/>
         <xsl:apply-templates/>
       </p>
     </xsl:otherwise>
@@ -226,18 +213,18 @@
 </xsl:template>
 
 <xsl:template match="varlistentry">
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id"/>
-  </xsl:variable>
-  <dt><a name="{$id}"/><xsl:apply-templates select="term"/></dt>
-  <dd><xsl:apply-templates select="listitem"/></dd>
+  <dt>
+    <xsl:call-template name="anchor"/>
+    <xsl:apply-templates select="term"/>
+  </dt>
+  <dd>
+    <xsl:apply-templates select="listitem"/>
+  </dd>
 </xsl:template>
 
 <xsl:template match="varlistentry/term">
   <span class="term">
-    <xsl:if test="@id">
-      <a name="{@id}"/>
-    </xsl:if>
+    <xsl:call-template name="anchor"/>
     <xsl:apply-templates/>
     <xsl:text>, </xsl:text>
   </span>
@@ -245,9 +232,7 @@
 
 <xsl:template match="varlistentry/term[position()=last()]" priority="2">
   <span class="term">
-    <xsl:if test="@id">
-      <a name="{@id}"/>
-    </xsl:if>
+    <xsl:call-template name="anchor"/>
     <xsl:apply-templates/>
   </span>
 </xsl:template>
@@ -269,9 +254,7 @@
 
 <xsl:template match="simplelist">
   <!-- with no type specified, the default is 'vert' -->
-  <xsl:if test="@id">
-    <a name="{@id}"/>
-  </xsl:if>
+  <xsl:call-template name="anchor"/>
   <table class="simplelist" border="0" summary="Simple list">
     <xsl:call-template name="simplelist.vert">
       <xsl:with-param name="cols">
@@ -288,17 +271,13 @@
 
 <xsl:template match="simplelist[@type='inline']">
   <span class="{name(.)}">
-    <xsl:if test="@id">
-      <a name="{@id}"/>
-    </xsl:if>
+    <xsl:call-template name="anchor"/>
     <xsl:apply-templates/>
   </span>
 </xsl:template>
 
 <xsl:template match="simplelist[@type='horiz']">
-  <xsl:if test="@id">
-    <a name="{@id}"/>
-  </xsl:if>
+  <xsl:call-template name="anchor"/>
   <table class="simplelist" border="0" summary="Simple list">
     <xsl:call-template name="simplelist.horiz">
       <xsl:with-param name="cols">
@@ -314,9 +293,7 @@
 </xsl:template>
 
 <xsl:template match="simplelist[@type='vert']">
-  <xsl:if test="@id">
-    <a name="{@id}"/>
-  </xsl:if>
+  <xsl:call-template name="anchor"/>
   <table class="simplelist" border="0" summary="Simple list">
     <xsl:call-template name="simplelist.vert">
       <xsl:with-param name="cols">
@@ -463,9 +440,7 @@
 
 <xsl:template match="procedure">
   <div class="{name(.)}">
-    <xsl:if test="@id">
-      <a name="{@id}"/>
-    </xsl:if>
+    <xsl:call-template name="anchor"/>
     <xsl:if test="title or $formal.procedures != 0">
       <xsl:call-template name="formal.object.heading"/>
     </xsl:if>
@@ -495,9 +470,7 @@
     <xsl:call-template name="procedure.step.numeration"/>
   </xsl:variable>
 
-  <xsl:if test="@id">
-    <a name="{@id}"/>
-  </xsl:if>
+  <xsl:call-template name="anchor"/>
 
   <ol type="{$numeration}">
     <xsl:apply-templates/>
@@ -505,12 +478,8 @@
 </xsl:template>
 
 <xsl:template match="step">
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id"/>
-  </xsl:variable>
-
   <li>
-    <a name="{$id}"/>
+    <xsl:call-template name="anchor"/>
     <xsl:apply-templates/>
   </li>
 </xsl:template>
@@ -522,9 +491,7 @@
 <!-- ==================================================================== -->
 
 <xsl:template match="segmentedlist">
-  <xsl:if test="@id">
-    <a name="{@id}"/>
-  </xsl:if>
+  <xsl:call-template name="anchor"/>
   <xsl:apply-templates/>
 </xsl:template>
 
@@ -567,11 +534,8 @@
 <!-- ==================================================================== -->
 
 <xsl:template match="calloutlist">
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id"/>
-  </xsl:variable>
   <div class="{name(.)}">
-    <a name="{$id}"/>
+    <xsl:call-template name="anchor"/>
     <xsl:if test="./title">
       <p>
         <b>
@@ -600,14 +564,11 @@
 </xsl:template>
 
 <xsl:template match="callout">
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id"/>
-  </xsl:variable>
   <xsl:choose>
     <xsl:when test="$callout.list.table != 0">
       <tr>
         <td width="5%" valign="top" align="left">
-          <a name="{$id}"/>
+          <xsl:call-template name="anchor"/>
           <xsl:call-template name="callout.arearefs">
             <xsl:with-param name="arearefs" select="@arearefs"/>
           </xsl:call-template>
@@ -619,7 +580,7 @@
     </xsl:when>
     <xsl:otherwise>
       <dt>
-        <a name="{$id}"/>
+        <xsl:call-template name="anchor"/>
         <xsl:call-template name="callout.arearefs">
           <xsl:with-param name="arearefs" select="@arearefs"/>
         </xsl:call-template>
diff --git a/xsl/html/qandaset.xsl b/xsl/html/qandaset.xsl
index 3a031a926..1bfbf873c 100644
--- a/xsl/html/qandaset.xsl
+++ b/xsl/html/qandaset.xsl
@@ -58,17 +58,14 @@
   <xsl:variable name="qalevel">
     <xsl:call-template name="qandadiv.section.level"/>
   </xsl:variable>
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id">
-      <xsl:with-param name="object" select="parent::*"/>
-    </xsl:call-template>
-  </xsl:variable>
 
   <xsl:element name="h{string(number($qalevel)+1)}">
     <xsl:attribute name="class">
       <xsl:value-of select="name(.)"/>
     </xsl:attribute>
-    <a name="{$id}"/>
+    <xsl:call-template name="anchor">
+      <xsl:with-param name="node" select=".."/>
+    </xsl:call-template>
     <xsl:apply-templates select="parent::qandadiv" mode="label.markup"/>
     <xsl:text> </xsl:text>
     <xsl:apply-templates/>
@@ -105,16 +102,10 @@
 
   <div class="{name(.)}">
     <p>
-      <xsl:if test="../@id">
-        <a>
-          <xsl:attribute name="name">
-            <xsl:call-template name="object.id">
-              <xsl:with-param name="object" select="parent::*"/>
-            </xsl:call-template>
-          </xsl:attribute>
-        </a>
-      </xsl:if>
-      <a name="{$id}"/>
+      <xsl:call-template name="anchor">
+        <xsl:with-param name="node" select=".."/>
+      </xsl:call-template>
+      <xsl:call-template name="anchor"/>
 
       <xsl:choose>
         <xsl:when test="$deflabel = 'none'">
@@ -137,13 +128,10 @@
 <xsl:template match="answer">
   <xsl:variable name="firstch" select="(*[name(.)!='label'])[1]"/>
   <xsl:variable name="restch" select="(*[name(.)!='label'])[position()!=1]"/>
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id"/>
-  </xsl:variable>
 
   <div class="{name(.)}">
     <p>
-      <a name="{$id}"/>
+      <xsl:call-template name="anchor"/>
       <b>
         <xsl:apply-templates select="." mode="label.markup"/>
       </b>
diff --git a/xsl/html/refentry.xsl b/xsl/html/refentry.xsl
index 851779778..79e9fab50 100644
--- a/xsl/html/refentry.xsl
+++ b/xsl/html/refentry.xsl
@@ -15,14 +15,8 @@
 <!-- ==================================================================== -->
 
 <xsl:template match="reference">
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id"/>
-  </xsl:variable>
-
   <div class="{name(.)}">
-    <xsl:if test="@id">
-      <a name="{$id}"/>
-    </xsl:if>
+    <xsl:call-template name="anchor"/>
     <xsl:call-template name="reference.titlepage"/>
     <xsl:if test="not(partintro) and $generate.reference.toc != '0'">
       <xsl:call-template name="division.toc"/>
@@ -61,11 +55,7 @@
 
   <div class="{name(.)}">
     <h1 class="title">
-      <a>
-        <xsl:attribute name="name">
-          <xsl:call-template name="object.id"/>
-        </xsl:attribute>
-      </a>
+      <xsl:call-template name="anchor"/>
       <xsl:copy-of select="$title"/>
     </h1>
     <xsl:apply-templates/>
@@ -99,11 +89,7 @@
 
 <xsl:template match="refnamediv">
   <div class="{name(.)}">
-    <a>
-      <xsl:attribute name="name">
-        <xsl:call-template name="object.id"/>
-      </xsl:attribute>
-    </a>
+    <xsl:call-template name="anchor"/>
     <xsl:if test="$refentry.generate.name != 0">
       <h2>
         <xsl:call-template name="gentext">
@@ -151,11 +137,7 @@
 
 <xsl:template match="refsynopsisdiv">
   <div class="{name(.)}">
-    <a>
-      <xsl:attribute name="name">
-        <xsl:call-template name="object.id"/>
-      </xsl:attribute>
-    </a>
+    <xsl:call-template name="anchor"/>
     <h2>
       <xsl:choose>
         <xsl:when test="refsynopsisdiv/title|title">
diff --git a/xsl/html/sections.xsl b/xsl/html/sections.xsl
index 0a3519fb1..3cbfbc8cf 100644
--- a/xsl/html/sections.xsl
+++ b/xsl/html/sections.xsl
@@ -15,11 +15,9 @@
 <!-- ==================================================================== -->
 
 <xsl:template match="section">
-  <xsl:variable name="id"><xsl:call-template name="object.id"/></xsl:variable>
   <xsl:variable name="depth" select="count(ancestor::section)+1"/>
 
   <div class="{name(.)}">
-    <a name="{$id}"/>
     <xsl:call-template name="section.titlepage"/>
     <xsl:if test="($generate.section.toc != '0'
                    and $depth &lt;= $generate.section.toc.level)
@@ -63,12 +61,7 @@
 </xsl:template>
 
 <xsl:template match="sect1">
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id"/>
-  </xsl:variable>
-
   <div class="{name(.)}">
-    <a name="{$id}"/>
     <xsl:call-template name="sect1.titlepage"/>
     <xsl:if test="($generate.section.toc != '0'
                    and $generate.section.toc.level &gt;= 1)
@@ -85,12 +78,7 @@
 </xsl:template>
 
 <xsl:template match="sect2">
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id"/>
-  </xsl:variable>
-
   <div class="{name(.)}">
-    <a name="{$id}"/>
     <xsl:call-template name="sect2.titlepage"/>
     <xsl:if test="($generate.section.toc != '0'
                    and $generate.section.toc.level &gt;= 2)
@@ -106,12 +94,7 @@
 </xsl:template>
 
 <xsl:template match="sect3">
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id"/>
-  </xsl:variable>
-
   <div class="{name(.)}">
-    <a name="{$id}"/>
     <xsl:call-template name="sect3.titlepage"/>
     <xsl:if test="($generate.section.toc != '0'
                    and $generate.section.toc.level &gt;= 3)
@@ -127,12 +110,7 @@
 </xsl:template>
 
 <xsl:template match="sect4">
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id"/>
-  </xsl:variable>
-
   <div class="{name(.)}">
-    <a name="{$id}"/>
     <xsl:call-template name="sect4.titlepage"/>
     <xsl:if test="($generate.section.toc != '0'
                    and $generate.section.toc.level &gt;= 4)
@@ -148,12 +126,7 @@
 </xsl:template>
 
 <xsl:template match="sect5">
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id"/>
-  </xsl:variable>
-
   <div class="{name(.)}">
-    <a name="{$id}"/>
     <xsl:call-template name="sect5.titlepage"/>
     <xsl:if test="($generate.section.toc != '0'
                    and $generate.section.toc.level &gt;= 5)
@@ -169,12 +142,7 @@
 </xsl:template>
 
 <xsl:template match="simplesect">
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id"/>
-  </xsl:variable>
-
   <div class="{name(.)}">
-    <a name="{$id}"/>
     <xsl:call-template name="simplesect.titlepage"/>
     <xsl:apply-templates/>
   </div>
@@ -224,6 +192,23 @@
   <xsl:param name="section" select="."/>
   <xsl:param name="level" select="'1'"/>
   <xsl:param name="title"/>
+
+  <xsl:variable name="id">
+    <xsl:choose>
+      <!-- if title is in an *info wrapper, get the grandparent -->
+      <xsl:when test="contains(local-name(..), 'info')">
+        <xsl:call-template name="object.id">
+          <xsl:with-param name="object" select="../.."/>
+        </xsl:call-template>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:call-template name="object.id">
+          <xsl:with-param name="object" select=".."/>
+        </xsl:call-template>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:variable>
+
   <xsl:element name="h{$level}">
     <xsl:attribute name="class">title</xsl:attribute>
     <xsl:if test="$css.decoration != '0'">
@@ -231,13 +216,10 @@
         <xsl:attribute name="style">clear: both</xsl:attribute>
       </xsl:if>
     </xsl:if>
-    <a>
-      <xsl:attribute name="name">
-        <xsl:call-template name="object.id">
-          <xsl:with-param name="object" select="$section"/>
-        </xsl:call-template>
-      </xsl:attribute>
-    </a>
+    <xsl:call-template name="anchor">
+      <xsl:with-param name="node" select="$section"/>
+      <xsl:with-param name="conditional" select="0"/>
+    </xsl:call-template>
     <xsl:copy-of select="$title"/>
   </xsl:element>
 </xsl:template>
@@ -315,12 +297,10 @@
     </xsl:choose>
   </xsl:variable>
 
-  <xsl:variable name="id">
-    <xsl:call-template name="object.id"/>
-  </xsl:variable>
-
   <xsl:element name="h{$level}">
-    <a name="{$id}"/>
+    <xsl:call-template name="anchor">
+      <xsl:with-param name="conditional" select="0"/>
+    </xsl:call-template>
     <xsl:apply-templates/>
   </xsl:element>
 </xsl:template>
diff --git a/xsl/html/synop.xsl b/xsl/html/synop.xsl
index bb4f556e4..ee908a2d4 100644
--- a/xsl/html/synop.xsl
+++ b/xsl/html/synop.xsl
@@ -23,11 +23,9 @@
 <!-- ==================================================================== -->
 
 <xsl:template match="cmdsynopsis">
-  <xsl:variable name="id"><xsl:call-template name="object.id"/></xsl:variable>
-
-  <div class="{name(.)}" id="{$id}">
+  <div class="{name(.)}">
     <p>
-      <a name="{$id}"/>
+      <xsl:call-template name="anchor"/>
       <xsl:apply-templates/>
     </p>
   </div>
diff --git a/xsl/html/table.xsl b/xsl/html/table.xsl
index 8a5fe5548..13cb7c9fb 100644
--- a/xsl/html/table.xsl
+++ b/xsl/html/table.xsl
@@ -361,12 +361,12 @@
 
     <xsl:if test="not(preceding-sibling::*)
                   and ancestor::row/@id">
-      <a name="{ancestor::row/@id}"/>
+      <xsl:call-template name="anchor">
+        <xsl:with-param name="node" select="ancestor::row[1]"/>
+      </xsl:call-template>
     </xsl:if>
 
-    <xsl:if test="@id">
-      <a name="{@id}"/>
-    </xsl:if>
+    <xsl:call-template name="anchor"/>
 
     <xsl:choose>
       <xsl:when test="$empty.cell">
diff --git a/xsl/html/verbatim.xsl b/xsl/html/verbatim.xsl
index a3f6b7314..2f871cc59 100644
--- a/xsl/html/verbatim.xsl
+++ b/xsl/html/verbatim.xsl
@@ -24,9 +24,7 @@
   <xsl:variable name="vendor" select="system-property('xsl:vendor')"/>
   <xsl:variable name="id"><xsl:call-template name="object.id"/></xsl:variable>
 
-  <xsl:if test="@id">
-    <a href="{$id}"/>
-  </xsl:if>
+  <xsl:call-template name="anchor"/>
 
   <xsl:variable name="content">
     <xsl:choose>
diff --git a/xsl/html/xref.xsl b/xsl/html/xref.xsl
index a47bf2823..d15d3cd46 100644
--- a/xsl/html/xref.xsl
+++ b/xsl/html/xref.xsl
@@ -17,11 +17,7 @@
 <!-- ==================================================================== -->
 
 <xsl:template match="anchor">
-  <a>
-    <xsl:attribute name="name">
-      <xsl:call-template name="object.id"/>
-    </xsl:attribute>
-  </a>
+  <xsl:call-template name="anchor"/>
 </xsl:template>
 
 <!-- ==================================================================== -->
@@ -35,9 +31,7 @@
     <xsl:with-param name="linkend" select="@linkend"/>
   </xsl:call-template>
 
-  <xsl:if test="@id">
-    <a name="{@id}"/>
-  </xsl:if>
+  <xsl:call-template name="anchor"/>
 
   <xsl:choose>
     <xsl:when test="count($target) = 0">
@@ -486,10 +480,7 @@
 </xsl:template>
 
 <xsl:template match="olink">
-  <xsl:if test="@id">
-    <a name="{@id}"/>
-  </xsl:if>
-
+  <xsl:call-template name="anchor"/>
   <xsl:variable name="localinfo" select="@localinfo"/>
 
   <xsl:variable name="href">
-- 
2.40.0