[groff] 06/14: [man]: Refactor diversion management (1/7).

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 279400615f87173ba6a112c91c6d4e43dc91871d
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Mon Jan 29 15:41:43 2024 -0600

    [man]: Refactor diversion management (1/7).
    
    * tmac/an.tmac (TH, an-write-paragraph-tag, an-input-trap, TP): Rename
      `an-is-in-diversion` register to `an*is-in-paragraph-tag-diversion`.
---
 ChangeLog    |  8 ++++++++
 tmac/an.tmac | 10 +++++-----
 2 files changed, 13 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 5a1f64de6..d64544d9a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2024-01-29  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       [man]: Refactor diversion management.
+
+       * tmac/an.tmac (TH, an-write-paragraph-tag, an-input-trap, TP):
+       Rename `an-is-in-diversion` register to
+       `an*is-in-paragraph-tag-diversion`.
+
 2024-01-28  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * tmac/an.tmac (MT, ME, UR, UE): Throw warnings on bad nesting.
diff --git a/tmac/an.tmac b/tmac/an.tmac
index 6b86fd632..86aefec07 100644
--- a/tmac/an.tmac
+++ b/tmac/an.tmac
@@ -298,7 +298,7 @@
 .
 .  nr an-need-no-space-mode 0
 .  nr an-need-break 0
-.  nr an-is-in-diversion 0
+.  nr an*is-in-paragraph-tag-diversion 0
 .  nr an*is-in-example 0
 .
 .  ds an*topic "\\$1\"
@@ -638,7 +638,7 @@ contains unsupported escape sequence
 .  br
 .  di
 .  ad \\*[AD]
-.  nr an-is-in-diversion 0
+.  nr an*is-in-paragraph-tag-diversion 0
 .  ll
 .  \" We must emit the diversion in a separate environment to ensure
 .  \" that a possible margin character is printed correctly.
@@ -681,7 +681,7 @@ contains unsupported escape sequence
 .    ns
 .    nr an-need-no-space-mode 0
 .  \}
-.  if \\n[an-is-in-diversion] .an-write-paragraph-tag
+.  if \\n[an*is-in-paragraph-tag-diversion] .an-write-paragraph-tag
 ..
 .
 .\" Break a paragraph.  Restore defaults, except for indentation.
@@ -813,12 +813,12 @@ contains unsupported escape sequence
 .  if \\n[.$] .nr an-prevailing-indent (n;\\$1)
 .  itc 1 an-input-trap
 .  in 0
-.  if !\\n[an-is-in-diversion] \{\
+.  if !\\n[an*is-in-paragraph-tag-diversion] \{\
 .    ll -\\n[an-margin]u
 .    di an-div
 .    na
 .  \}
-.  nr an-is-in-diversion 1
+.  nr an*is-in-paragraph-tag-diversion 1
 ..
 .
 .\" Set an indented paragraph.