gbranden pushed a commit to branch master
in repository groff.
commit 65593077d3b80b2df79ffabd8be7904d9eef0f53
Author: G. Branden Robinson <[email protected]>
AuthorDate: Wed Apr 1 01:30:50 2026 -0500
tmac/an.tmac: Trivially refactor (2/4).
* tmac/an.tmac (BI, BR, IB, IR, RB, RI): Rename `an-result` (a temporary
string into these macros' arguments are catenated with font style
changes and italic corrections as appropriate) to `an*result`.
---
ChangeLog | 7 +++++++
tmac/an.tmac | 60 ++++++++++++++++++++++++++++++------------------------------
2 files changed, 37 insertions(+), 30 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 5f405afd4..2166e8ecb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2026-04-01 G. Branden Robinson <[email protected]>
+
+ * tmac/an.tmac (BI, BR, IB, IR, RB, RI): Trivially refactor;
+ rename `an-result` (a temporary string into these macros'
+ arguments are catenated with font style changes and italic
+ corrections as appropriate) to `an*result`.
+
2026-04-01 G. Branden Robinson <[email protected]>
* tmac/an.tmac: Trivially refactor; rename `an-msg` (a temporary
diff --git a/tmac/an.tmac b/tmac/an.tmac
index 1946270a6..1b9c88c3b 100644
--- a/tmac/an.tmac
+++ b/tmac/an.tmac
@@ -960,14 +960,14 @@ contains unsupported escape sequence
. if (\\n[.$] < 2) \
. an-style-warn .\\$0 expects at least 2 arguments, got \\n[.$]
. if \\n[.$] \{\
-. ds an-result \&\"
+. ds an*result \&\"
. while (\\n[.$] >= 2) \{\
-. as an-result \f[B]\\$1\,\f[I]\\$2\/\"
+. as an*result \f[B]\\$1\,\f[I]\\$2\/\"
. shift 2
. \}
-. if \\n[.$] .as an-result \f[B]\\$1\"
-. nop \\*[an-result]
-. rm an-result
+. if \\n[.$] .as an*result \f[B]\\$1\"
+. nop \\*[an*result]
+. rm an*result
. ft R
. \}
..
@@ -977,14 +977,14 @@ contains unsupported escape sequence
. if (\\n[.$] < 2) \
. an-style-warn .\\$0 expects at least 2 arguments, got \\n[.$]
. if \\n[.$] \{\
-. ds an-result \&\"
+. ds an*result \&\"
. while (\\n[.$] >= 2) \{\
-. as an-result \f[B]\\$1\f[R]\\$2\"
+. as an*result \f[B]\\$1\f[R]\\$2\"
. shift 2
. \}
-. if \\n[.$] .as an-result \f[B]\\$1\"
-. nop \\*[an-result]
-. rm an-result
+. if \\n[.$] .as an*result \f[B]\\$1\"
+. nop \\*[an*result]
+. rm an*result
. ft R
. \}
..
@@ -994,14 +994,14 @@ contains unsupported escape sequence
. if (\\n[.$] < 2) \
. an-style-warn .\\$0 expects at least 2 arguments, got \\n[.$]
. if \\n[.$] \{\
-. ds an-result \&\"
+. ds an*result \&\"
. while (\\n[.$] >= 2) \{\
-. as an-result \,\f[I]\\$1\/\f[B]\\$2\"
+. as an*result \,\f[I]\\$1\/\f[B]\\$2\"
. shift 2
. \}
-. if \\n[.$] .as an-result \,\f[I]\\$1\/\"
-. nop \\*[an-result]
-. rm an-result
+. if \\n[.$] .as an*result \,\f[I]\\$1\/\"
+. nop \\*[an*result]
+. rm an*result
. ft R
. \}
..
@@ -1011,14 +1011,14 @@ contains unsupported escape sequence
. if (\\n[.$] < 2) \
. an-style-warn .\\$0 expects at least 2 arguments, got \\n[.$]
. if \\n[.$] \{\
-. ds an-result \&\"
+. ds an*result \&\"
. while (\\n[.$] >= 2) \{\
-. as an-result \,\f[I]\\$1\/\f[R]\\$2\"
+. as an*result \,\f[I]\\$1\/\f[R]\\$2\"
. shift 2
. \}
-. if \\n[.$] .as an-result \,\f[I]\\$1\/\"
-. nop \\*[an-result]
-. rm an-result
+. if \\n[.$] .as an*result \,\f[I]\\$1\/\"
+. nop \\*[an*result]
+. rm an*result
. ft R
. \}
..
@@ -1028,14 +1028,14 @@ contains unsupported escape sequence
. if (\\n[.$] < 2) \
. an-style-warn .\\$0 expects at least 2 arguments, got \\n[.$]
. if \\n[.$] \{\
-. ds an-result \&\"
+. ds an*result \&\"
. while (\\n[.$] >= 2) \{\
-. as an-result \f[R]\\$1\f[B]\\$2\"
+. as an*result \f[R]\\$1\f[B]\\$2\"
. shift 2
. \}
-. if \\n[.$] .as an-result \f[R]\\$1\"
-. nop \\*[an-result]
-. rm an-result
+. if \\n[.$] .as an*result \f[R]\\$1\"
+. nop \\*[an*result]
+. rm an*result
. ft R
. \}
..
@@ -1045,14 +1045,14 @@ contains unsupported escape sequence
. if (\\n[.$] < 2) \
. an-style-warn .\\$0 expects at least 2 arguments, got \\n[.$]
. if \\n[.$] \{\
-. ds an-result \&\"
+. ds an*result \&\"
. while (\\n[.$] >= 2) \{\
-. as an-result \f[R]\\$1\,\f[I]\\$2\/\"
+. as an*result \f[R]\\$1\,\f[I]\\$2\/\"
. shift 2
. \}
-. if \\n[.$] .as an-result \f[R]\\$1\"
-. nop \\*[an-result]
-. rm an-result
+. if \\n[.$] .as an*result \f[R]\\$1\"
+. nop \\*[an*result]
+. rm an*result
. ft R
. \}
..
_______________________________________________
groff-commit mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/groff-commit
