[groff] 06/06: tmac/an-old.tmac: Fix Savannah #59179.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit e4f74755a64de030a435de74e28aa4f248608f53
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Fri Sep 25 23:28:59 2020 +1000

    tmac/an-old.tmac: Fix Savannah #59179.
    
    * tmac/an-old.tmac (an-p-footer): Define \*[an-page-string] if (1) the
      output device is not HTML; (2) \n[X] has been defined; and (3) the
      page number has not yet reached the threshold defined by \n[X].
    
    Fixes <https://savannah.gnu.org/bugs/index.php?59179>.
---
 ChangeLog        | 9 +++++++++
 tmac/an-old.tmac | 4 +++-
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 9b34e88..240f203 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,14 @@
 2020-09-25  G. Branden Robinson <g.branden.robinson@gmail.com>
 
+       * tmac/an-old.tmac (an-p-footer): Define \*[an-page-string] if
+       (1) the output device is not HTML; (2) \n[X] has been defined;
+       and (3) the page number has not yet reached the threshold
+       defined by \n[X].
+
+       Fixes <https://savannah.gnu.org/bugs/index.php?59179>.
+
+2020-09-25  G. Branden Robinson <g.branden.robinson@gmail.com>
+
        Add regression test for Savannah #59197.
 
        * tmac/tests/an-old_X_register_works.sh: Do it.
diff --git a/tmac/an-old.tmac b/tmac/an-old.tmac
index 99107ea..767aa8f 100644
--- a/tmac/an-old.tmac
+++ b/tmac/an-old.tmac
@@ -281,10 +281,12 @@
 .  \}
 .  el \{\
 .    ie r X \{\
-.      if (\\n[%] > \\n[X]) \{\
+.      ie (\\n[%] > \\n[X]) \{\
 .        nr an-page-letter (\\n[%] - \\n[X])
 .        ds an-page-string \\n[X]\\n[an-page-letter]\"
 .      \}
+.      el \
+.        ds an-page-string \\n[%]\"
 .    \}
 .    el \{\
 .      ie \\n[cR] \