[groff] 10/11: tmac/an-old.tmac: Relocate material.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit ce3f2e467527afb3827043fe4528702e34f86efb
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Tue May 18 12:51:38 2021 +1000

    tmac/an-old.tmac: Relocate material.
    
    * tmac/an-old.tmac: Rearrange alternating font macros to be in
      alphabetical order (and the order documented in groff_man(7)).
---
 ChangeLog        |  5 +++++
 tmac/an-old.tmac | 24 ++++++++++++------------
 2 files changed, 17 insertions(+), 12 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index d675231..42e0d40 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2021-05-18  G. Branden Robinson <g.branden.robinson@gmail.com>
 
+       * tmac/an-old.tmac: Rearrange alternating font macros to be in
+       alphabetical order (and the order documented in groff_man(7).
+
+2021-05-18  G. Branden Robinson <g.branden.robinson@gmail.com>
+
        * tmac/an-old.tmac: Refactor alternating font macros.  These
        macros are hard enough to understand without adding gratuitous
        structural differences to the reader's burden.  Make their
diff --git a/tmac/an-old.tmac b/tmac/an-old.tmac
index 35c9846..3a50203 100644
--- a/tmac/an-old.tmac
+++ b/tmac/an-old.tmac
@@ -545,32 +545,32 @@
 .\" arguments of the macro call.
 .\"
 .
-.de1 RI
+.de1 BI
 .  if (\\n[.$] < 2) \
 .    an-style-warn .\\$0 expects at least 2 arguments, got \\n[.$]
 .  if \\n[.$] \{\
 .    ds an-result \&\"
 .    while (\\n[.$] >= 2) \{\
-.      as an-result \f[R]\\$1\,\f[I]\\$2\/\"
+.      as an-result \f[B]\\$1\,\f[I]\\$2\/\"
 .      shift 2
 .    \}
-.    if \\n[.$] .as an-result \f[R]\\$1\"
+.    if \\n[.$] .as an-result \f[B]\\$1\"
 \\*[an-result]
 .    rm an-result
 .    ft R
 .  \}
 ..
 .
-.de1 IR
+.de1 BR
 .  if (\\n[.$] < 2) \
 .    an-style-warn .\\$0 expects at least 2 arguments, got \\n[.$]
 .  if \\n[.$] \{\
 .    ds an-result \&\"
 .    while (\\n[.$] >= 2) \{\
-.      as an-result \,\f[I]\\$1\/\f[R]\\$2\"
+.      as an-result \f[B]\\$1\f[R]\\$2\"
 .      shift 2
 .    \}
-.    if \\n[.$] .as an-result \,\f[I]\\$1\/\"
+.    if \\n[.$] .as an-result \f[B]\\$1\"
 \\*[an-result]
 .    rm an-result
 .    ft R
@@ -593,16 +593,16 @@
 .  \}
 ..
 .
-.de1 BI
+.de1 IR
 .  if (\\n[.$] < 2) \
 .    an-style-warn .\\$0 expects at least 2 arguments, got \\n[.$]
 .  if \\n[.$] \{\
 .    ds an-result \&\"
 .    while (\\n[.$] >= 2) \{\
-.      as an-result \f[B]\\$1\,\f[I]\\$2\/\"
+.      as an-result \,\f[I]\\$1\/\f[R]\\$2\"
 .      shift 2
 .    \}
-.    if \\n[.$] .as an-result \f[B]\\$1\"
+.    if \\n[.$] .as an-result \,\f[I]\\$1\/\"
 \\*[an-result]
 .    rm an-result
 .    ft R
@@ -625,16 +625,16 @@
 .  \}
 ..
 .
-.de1 BR
+.de1 RI
 .  if (\\n[.$] < 2) \
 .    an-style-warn .\\$0 expects at least 2 arguments, got \\n[.$]
 .  if \\n[.$] \{\
 .    ds an-result \&\"
 .    while (\\n[.$] >= 2) \{\
-.      as an-result \f[B]\\$1\f[R]\\$2\"
+.      as an-result \f[R]\\$1\,\f[I]\\$2\/\"
 .      shift 2
 .    \}
-.    if \\n[.$] .as an-result \f[B]\\$1\"
+.    if \\n[.$] .as an-result \f[R]\\$1\"
 \\*[an-result]
 .    rm an-result
 .    ft R