[groff] 06/31: [man]: Slightly refactor some more.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 7ab337d22ae229f76d0534c3c5d9c31d00041c1c
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Sat Jan 29 06:51:49 2022 +1100

    [man]: Slightly refactor some more.
    
    * tmac/an.tmac (TH): Move planting of `an-header` trap from out of the
      midst of footer trap management.  Add comments.
---
 ChangeLog    | 3 +++
 tmac/an.tmac | 5 ++++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index f4d2fb9a..b8c1b879 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -9,6 +9,9 @@
 
        (an-header): Update call site of `an*prepare-page-title`.
 
+       (TH): Move planting of `an-header` trap from out of the midst of
+       footer trap management.  Add comments.
+
 2022-01-27  Dave Kemper <saint.snit@gmail.com>
 
        [man pages]: Add more references to pic(1)'s .PF.
diff --git a/tmac/an.tmac b/tmac/an.tmac
index 544c74ba..2c596cce 100644
--- a/tmac/an.tmac
+++ b/tmac/an.tmac
@@ -283,6 +283,9 @@
 .    rm an-msg
 .  \}
 .
+.  \" We now have what we need to typeset the (default) page header.
+.
+.  \" HTML gets the title without any abbreviation, since it's metadata.
 .  if \\n[an-is-output-html] \{\
 .    DEVTAG-TL
 .    nop \\*[an-title]
@@ -292,9 +295,9 @@
 .  an-header
 .
 .  if !\\n[cR] \{\
+.    wh 0 an-header
 .    ie r FT .nr an-footer-location \\n[FT]
 .    el      .nr an-footer-location (-.5i)
-.    wh 0 an-header
 .    wh (2u * \\n[an-footer-location]u) an-break-body-text
 .    wh \\n[an-footer-location]u an-footer
 .    \}