[groff] 05/15: tmac/an-old.tmac (initialization): Refactor.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit d56382d8ffbc14d29144f54c7fb8b21c01d9e3a3
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Wed May 19 20:18:32 2021 +1000

    tmac/an-old.tmac (initialization): Refactor.
    
    * tmac/an-old.tmac (initialization): Refactor handling of P and X
      rendering parameter register validation in preparation for disabling
      them in continuous rendering mode, where they don't make any sense.
---
 ChangeLog        |  7 +++++++
 tmac/an-old.tmac | 22 ++++++++++++++--------
 2 files changed, 21 insertions(+), 8 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index a1b8e32..82cbde6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
 2021-05-19  G. Branden Robinson <g.branden.robinson@gmail.com>
 
+       * tmac/an-old.tmac (initialization): Refactor handling of P and
+       X rendering parameter register validation in preparation for
+       disabling them in continuous rendering mode, where they don't
+       make any sense.
+
+2021-05-19  G. Branden Robinson <g.branden.robinson@gmail.com>
+
        * tmac/tests/an-old_TH-repairs-ad-damage.sh: Tweak test
        internals to make troubleshooting easier.
 
diff --git a/tmac/an-old.tmac b/tmac/an-old.tmac
index a6ebfaf..e2dfef3 100644
--- a/tmac/an-old.tmac
+++ b/tmac/an-old.tmac
@@ -903,10 +903,13 @@
 .\"
 .if r P \
 .  if \n[an-is-output-html] \
-.    if !(\n[P] = 1) \{\
-.       tm \*[an-old]: ignoring starting page number in HTML output
-.       rr P
-.    \}
+.    if !(\n[P] = 1) \
+.      ds an-msg in HTML output\"
+.if d an-msg \{
+.  tm \*[an-old]: ignoring starting page number \*[an-msg]
+.  rr P
+.  rm an-msg
+.\}
 .
 .if !r ps4html \
 .  if r P \
@@ -931,10 +934,13 @@
 .\" the macro an-footer uses it.
 .if r X \{\
 .  af an-page-letter a
-.  if \n[an-is-output-html] \{\
-.     tm \*[an-old]: ignoring page letter suffixing in HTML output
-.     rr X
-.  \}
+.  if \n[an-is-output-html] \
+.    ds an-msg in HTML output\"
+.\}
+.if d an-msg \{
+.  tm \*[an-old]: ignoring page number suffix \*[an-msg]
+.  rr X
+.  rm an-msg
 .\}
 .
 .\" adjustment mode