[groff] 06/26: tmac/an.tmac: Trivially refactor.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 164f067e90b4c05b2ba3d0a153f15f7d16591ea1
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Thu Dec 15 18:31:29 2022 -0600

    tmac/an.tmac: Trivially refactor.
    
    * tmac/an.tmac (TH): Trivially refactor.  Rename `an-footer-location` to
      `an*footer-location` and set page traps in order descending the page.
---
 ChangeLog    | 6 ++++++
 tmac/an.tmac | 6 +++---
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 9e0b9f02e..c980ded8a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2022-12-15  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * tmac/an.tmac (TH): Trivially refactor.  Rename
+       `an-footer-location` to `an*footer-location` and set page traps
+       in order descending the page.
+
 2022-12-11  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        [mdoc]: Support `X` register.
diff --git a/tmac/an.tmac b/tmac/an.tmac
index 2bc5ec9ef..88d11e9b3 100644
--- a/tmac/an.tmac
+++ b/tmac/an.tmac
@@ -354,10 +354,10 @@
 .
 .  if !\\n[cR] \{\
 .    wh 0 an-header
-.    ie r FT .nr an-footer-location \\n[FT]
-.    el      .nr an-footer-location (-.5i)
+.    ie r FT .nr an*footer-location \\n[FT]
+.    el      .nr an*footer-location (-.5i)
+.    wh \\n[an*footer-location]u an-footer
 .    wh (2u * \\n[an-footer-location]u) an-break-body-text
-.    wh \\n[an-footer-location]u an-footer
 .    \}
 .  \}
 .