[groff] 01/02: [man]: Fix Savannah #65233.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 7e900875961c72b4414f009885e2bdcc33f2473e
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Wed Jan 31 00:08:13 2024 -0600

    [man]: Fix Savannah #65233.
    
    * tmac/an.tmac (an*begin-hyperlink): Stop shutting off hyperlink support
      permanently if we hit one unsupported instance of `MT` or `UR` nested
      inside `TP`.
    
    Fixes <https://savannah.gnu.org/bugs/?65233>.
---
 ChangeLog    | 8 ++++++++
 tmac/an.tmac | 6 ++----
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index bb55e47bd..90ddad1b4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2024-01-31  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * tmac/an.tmac (an*begin-hyperlink): Stop shutting off hyperlink
+       support permanently if we hit one unsupported instance of `MT`
+       or `UR` nested inside `TP`.
+
+       Fixes <https://savannah.gnu.org/bugs/?65233>.
+
 2024-01-30  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * doc/GMPfront.t: Support non-internal man page cross
diff --git a/tmac/an.tmac b/tmac/an.tmac
index 406e9f497..e4b072884 100644
--- a/tmac/an.tmac
+++ b/tmac/an.tmac
@@ -1122,11 +1122,9 @@ contains unsupported escape sequence
 .  \" We can only hyperlink if we're not in a diversion.
 .  \" XXX: There's no fundamental reason for that, just a simple matter
 .  \" of macro programming.
-.  if !'\\n[.z]'' \{\
+.  ie !'\\n[.z]'' \
 .    an-warn cannot nest .MT or .UR inside .TP; ending paragraph tag
-.    nr an*do-hyperlink 0
-.  \}
-.  if \\n[an*do-hyperlink] \{\
+.  el .if \\n[an*do-hyperlink] \{\
 .    nr an*is-in-link-text-diversion 1
 .    \" Start diversion in a new environment.
 .    nr an*is-in-link-text-diversion 1