[groff] 09/14: [man]: Refactor diversion management (4/7).

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 476072502181c3c9a56bff40a8c05c68e451b0ff
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Mon Jan 29 16:01:29 2024 -0600

    [man]: Refactor diversion management (4/7).
    
    * tmac/an.tmac (an-write-paragraph-tag, an*end-hyperlink): Delete
      diversions after using them.
---
 ChangeLog    | 2 ++
 tmac/an.tmac | 3 ++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 4e165201b..462eef913 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -9,6 +9,8 @@
        `an*paragraph-tag`.
        (an*begin-hyperlink, an*end-hyperlink): Rename
        `an*link-text-div` to `an*link-text`.
+       (an-write-paragraph-tag, an*end-hyperlink): Delete diversions
+       after using them.
 
 2024-01-28  G. Branden Robinson <g.branden.robinson@gmail.com>
 
diff --git a/tmac/an.tmac b/tmac/an.tmac
index 287040929..7b30d51d1 100644
--- a/tmac/an.tmac
+++ b/tmac/an.tmac
@@ -655,6 +655,7 @@ contains unsupported escape sequence
         <= \\n[an-prevailing-indent])
 .  if \\n[an-tag-fits] .DEVTAG-COL 1
 .  an*paragraph-tag
+.  rm an*paragraph-tag
 .  if \\n[an-tag-fits] .sp -1v
 .  ev
 .  in (\\n[an-margin]u + \\n[an-prevailing-indent]u)
@@ -1185,7 +1186,7 @@ contains unsupported escape sequence
 .    nop \\[la]\\*[an*hyperlink]\\[ra]\\$1
 .    hy \\n[an*hyphenation-mode]
 .  \}
-.
+.  rm an*link-text
 .  rr an*is-in-link-text-diversion
 ..
 .