[groff] 02/15: tmac/an.tmac: Trivially refactor.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 5418181d1d22eef72e47b8493c861fe6bd1b088a
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Thu Feb 1 14:41:47 2024 -0600

    tmac/an.tmac: Trivially refactor.
    
    * tmac/an.tmac: Trivially refactor (an-write-paragraph-tag): Rename
      `an-env-paragraph-tag` to `an*temporary-env`.
    
      (an*end-hyperlink, MR): Use idiomatic delimiter in device control
      escape sequences.
---
 ChangeLog    |  7 +++++++
 tmac/an.tmac | 26 +++++++++++++-------------
 2 files changed, 20 insertions(+), 13 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 24f034aa0..f6345c7b5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2024-02-01  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * tmac/an.tmac: Trivially refactor (an-write-paragraph-tag):
+       Rename `an-env-paragraph-tag` to `an*temporary-env`.
+       (an*end-hyperlink, MR): Use idiomatic delimiter in device
+       control escape sequences.
+
 2024-02-01  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        [troff]: Trivially refactor; rename and boolify.
diff --git a/tmac/an.tmac b/tmac/an.tmac
index e4b072884..e7744b04c 100644
--- a/tmac/an.tmac
+++ b/tmac/an.tmac
@@ -643,7 +643,7 @@ contains unsupported escape sequence
 .  ll
 .  \" We must emit the diversion in a separate environment to ensure
 .  \" that a possible margin character is printed correctly.
-.  ev an-env-paragraph-tag
+.  ev an*temporary-env
 .  evc 0
 .  mc
 .  nf
@@ -1152,21 +1152,21 @@ contains unsupported escape sequence
 .    \" Was any link text present?
 .    ie \\n[dn] \{\
 .      if '\*[.T]'html' \
-.        nop \X^html:<a href="\\*[an*prefix]\\*[an*hyperlink]">^\c
+.        nop \X'html:<a href="\\*[an*prefix]\\*[an*hyperlink]">'\c
 .      if '\*[.T]'pdf' \{\
 .        pdfhref W -D \\*[an*prefix]\\*[an*hyperlink] -- "|"
 .      \}
 .      if \\n[an*is-output-terminal] \
-.        nop \X^tty: link \\*[an*prefix]\\*[an*hyperlink]^\c
+.        nop \X'tty: link \\*[an*prefix]\\*[an*hyperlink]'\c
 .      \" Replace the final newline of the diversion.
 .      chop an*link-text
 .      as an*link-text \&\c
 .      an*link-text
 .      nop \"
 .      if '\*[.T]'html' \
-.        nop \X^html:</a>^\c
+.        nop \X'html:</a>'\c
 .      if \\n[an*is-output-terminal] \
-.        nop \X^tty: link^\c
+.        nop \X'tty: link'\c
 .      if '\*[.T]'pdf' \
 .        nop \X'pdf: markend'\m[\\*[pdf:curcol]]\c
 .    \}
@@ -1174,14 +1174,14 @@ contains unsupported escape sequence
 .    \" don't add angle brackets here.
 .    el \{\
 .      if '\*[.T]'html' \
-.        nop \X^html:<a href="\\*[an*prefix]\\*[an*hyperlink]">\
-\\*[an*hyperlink]</a>^\c
+.        nop \X'html:<a href="\\*[an*prefix]\\*[an*hyperlink]">\
+\\*[an*hyperlink]</a>'\c
 .      if '\*[.T]'pdf' \
 .        pdfhref W -D \\*[an*prefix]\\*[an*hyperlink] -- \
 \\*[an*hyperlink]\c
 .      if \\n[an*is-output-terminal] \
-.        nop \X^tty: link \\*[an*prefix]\\*[an*hyperlink]^\
-\\*[an*hyperlink]\X^tty: link^\c
+.        nop \X'tty: link \\*[an*prefix]\\*[an*hyperlink]'\
+\\*[an*hyperlink]\X'tty: link'\c
 .    \}
 .    nop \&\\$1\"
 .  \}
@@ -1267,25 +1267,25 @@ contains unsupported escape sequence
 .  nh
 .  if \\n[an*do-hyperlink] \{\
 .    if '\*[.T]'html' \
-.      nop \X^html:<a href="\\*[an*url]">^\c
+.      nop \X'html:<a href="\\*[an*url]">'\c
 .    if '\*[.T]'pdf' \{\
 .      ds an*saved-stroke-color \\n[.m]\"
 .      nop \&\m[\\*[PDFHREF.TEXT.COLOUR]]\c
 .      pdfhref W -D \\*[an*url] -- "|"
 .    \}
 .    if \\n[an*is-output-terminal] \
-.      nop \X^tty: link \\*[an*url]^\c
+.      nop \X'tty: link \\*[an*url]'\c
 .  \}
 .  nop \&\\*[an-lic]\f[\\*[MF]]\\$1\\*[an-ic]\f[R](\\$2)\c
 .  if \\n[an*do-hyperlink] \{\
 .    if '\*[.T]'html' \
-.      nop \X^html:</a>^\c
+.      nop \X'html:</a>'\c
 .    if '\*[.T]'pdf' \{\
 .      nop \X'pdf: markend'\m[\\*[an*saved-stroke-color]]\c
 .      rm an*saved-stroke-color
 .    \}
 .    if \\n[an*is-output-terminal] \
-.      nop \X^tty: link^\c
+.      nop \X'tty: link'\c
 .  \}
 .  nop \&\\$3
 .  hy \\n[an*hyphenation-mode]