[groff] 28/28: [man]: Don't attempt to adjust pargraph tag lines.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 68001331e1149e952d7e66131562b187d3ea5c35
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Mon Feb 14 17:32:52 2022 +1100

    [man]: Don't attempt to adjust pargraph tag lines.
    
    * tmac/an.tmac (TP): Disable adjustment inside the diversion.
      (an-write-paragraph-tag): Restore adjustment outside of it.
    
    Fixes <https://savannah.gnu.org/bugs/?62051>.
---
 ChangeLog    | 9 +++++++++
 tmac/an.tmac | 2 ++
 2 files changed, 11 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index fa585006..132ea1cb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2022-02-14  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       [man]: Stop attempting to adjust pargraph tag lines.
+
+       * tmac/an.tmac (TP): Disable adjustment inside the diversion.
+       (an-write-paragraph-tag): Restore adjustment outside of it.
+
+       Fixes <https://savannah.gnu.org/bugs/?62051>.
+
 2022-02-13  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * tmac/e.tmac (@z): Conceal bare tab after request name (exposed
diff --git a/tmac/an.tmac b/tmac/an.tmac
index 59a7156b..a568d69c 100644
--- a/tmac/an.tmac
+++ b/tmac/an.tmac
@@ -554,6 +554,7 @@
 .de an-write-paragraph-tag
 .  br
 .  di
+.  ad \\*[AD]
 .  nr an-is-in-diversion 0
 .  ll
 .  \" We must emit the diversion in a separate environment to ensure
@@ -707,6 +708,7 @@
 .  if !\\n[an-is-in-diversion] \{\
 .    ll -\\n[an-margin]u
 .    di an-div
+.    na
 .  \}
 .  nr an-is-in-diversion 1
 ..