[groff] 19/51: * tmac/www.tmac (TAG): Define register `PN'.

[Werner LEMBERG]

wl pushed a commit to branch master
in repository groff.

commit 86097ac5519245f151c785dc7c8529f07905cde4
Author: Bjarni Ingi Gislason <address@hidden>
Date:   Thu Mar 27 19:24:35 2014 +0100

    * tmac/www.tmac (TAG): Define register `PN'.
---
 ChangeLog     |    4 ++++
 tmac/www.tmac |    5 ++++-
 2 files changed, 8 insertions(+), 1 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 998f458..ee682f5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2014-03-27  Bjarni Ingi Gislason  <address@hidden>
 
+       * tmac/www.tmac (TAG): Define register `PN'.
+
+2014-03-27  Bjarni Ingi Gislason  <address@hidden>
+
        * tmac/an-ext.tmac (EX, EE): Preserve font family.
 
 2014-03-17  Werner Lemberg  <address@hidden>
diff --git a/tmac/www.tmac b/tmac/www.tmac
index 481a7b7..f296f53 100644
--- a/tmac/www.tmac
+++ b/tmac/www.tmac
@@ -10,7 +10,7 @@ Installed position: groff's main macro directory.
 
 This file is part of groff, the GNU roff type-setting system.
 
-Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2008, 2009, 2010
+Copyright (C) 2001-2006, 2008-2010, 2014
   Free Software Foundation, Inc.
 written by Gaius Mulley <address@hidden>, with additions by
 Werner Lemberg <address@hidden> and
@@ -520,10 +520,13 @@ HTML always denotes XHTML also.
 .\"
 .\"   Generate an HTML name NAME.
 .\"   Define string TAG_NAME to TEXT, if present, otherwise to \n[PN].
+.\"   Register PN is the current page number.
 .\"
 .de TAG
 .  HTML <a "name=""\\$1""></a>"
 .  ie '\\$2'' \
+.    if !rPN \
+.      nr PN \\n%
 .    ds TAG_\\$1 \\n[PN]\"
 .  el \
 .    ds TAG_\\$1 \\$2\"