gbranden pushed a commit to branch master
in repository groff.
commit 93d956ac28951b4bc9e3b8ba1e5392952e593c8b
Author: G. Branden Robinson <[email protected]>
AuthorDate: Sat May 30 01:29:51 2026 -0500
tmac/an.tmac: Trivially refactor.
* tmac/an.tmac: Rename string `an-pageref` to `an*pageref`.
(PT, an*abbreviate-page-identifier, an-footer, [initialization]):
Update definition and interpolation sites.
---
ChangeLog | 7 +++++++
tmac/an.tmac | 18 +++++++++---------
2 files changed, 16 insertions(+), 9 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 072e86b78..433d851d6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2026-05-30 G. Branden Robinson <[email protected]>
+
+ * tmac/an.tmac: Trivially refactor. Rename string `an-pageref`
+ to `an*pageref`.
+ (PT, an*abbreviate-page-identifier, an-footer)
+ ([initialization]): Update definition and interpolation sites.
+
2026-05-30 G. Branden Robinson <[email protected]>
* tmac/an.tmac (LE): Throw warning when macro called with no
diff --git a/tmac/an.tmac b/tmac/an.tmac
index 2d302fa5e..91c08f947 100644
--- a/tmac/an.tmac
+++ b/tmac/an.tmac
@@ -509,7 +509,7 @@
. an*bookmark \\n[an*bookmark-level] "\\*[an*page-ref-string]"
. ds an*previous-page-ref-string "\\*[an*page-ref-string]
. \}
-. tl '\\*[an-pageref]'\\*[an*extra3]'\\*[an-pageref]'
+. tl '\\*[an*pageref]'\\*[an*extra3]'\\*[an*pageref]'
. ie \\n[cR] .sp 1v
. el .sp .5i
..
@@ -526,7 +526,7 @@
..
.
.\" Abbreviate page identifier if it's too long for the header. Leaves
-.\" string an-pageref defined for use in .PT and .an-footer. Also
+.\" string an*pageref defined for use in .PT and .an-footer. Also
.\" leaves an*ident-abbv for possible use by .PT and .BT re-definers.
.\" Call this only from within the header/footer environment.
.de an*abbreviate-page-identifier
@@ -536,11 +536,11 @@
. \" an*page-ref-string is left unmodified for internal use, such as
. \" PDF bookmarks.
. ds an*page-ref-string \\*[an*ident](\\*[an*section])\"
-. ds an-pageref \\*[an*ident-abbv](\\*[an*section])\"
+. ds an*pageref \\*[an*ident-abbv](\\*[an*section])\"
. \" Computer width of title text, plus 2n for minimal spacing on
. \" either side of the center header.
. nr an-header-width \
- (\\w'\\*[an-pageref]\\*[an*extra3]\\*[an-pageref]' + 2n)
+ (\\w'\\*[an*pageref]\\*[an*extra3]\\*[an*pageref]' + 2n)
. while (\\n[an-header-width] > \\n[.lt]) \{\
. \" The page topic is too long; trim some bits out of the middle.
. length an*ident-length \\*[an*ident-string]
@@ -562,12 +562,12 @@
. length an*ident-new-length \\*[an*ident-string]
. ie (\\n[an*ident-new-length] >= \\n[an*ident-length]) \
. break
-. ds an-pageref \\*[an*ident-abbv](\\*[an*section])\"
+. ds an*pageref \\*[an*ident-abbv](\\*[an*section])\"
. \" Recompute header width now that it's shorter.
. nr an-header-width \
- (\\w'\\*[an-pageref]\\*[an*extra3]\\*[an-pageref]' + 2n)
+ (\\w'\\*[an*pageref]\\*[an*extra3]\\*[an*pageref]' + 2n)
. \}
-. ds an-pageref \\*[an-lic]\f[\\*[MF]]\\*[an*ident-abbv]\\*[an-ic]\
+. ds an*pageref \\*[an-lic]\f[\\*[MF]]\\*[an*ident-abbv]\\*[an-ic]\
\f[R](\\*[an*section])\"
. rr an*ident-length-prev
. rr an-mark1
@@ -687,7 +687,7 @@ contains unsupported escape sequence
. if '\*[.T]'pdf' .pdfmarksuspend
. ev an*env-header-and-footer
. ie \\n[cR] \
-. ds an*ofoot "\\*[an-pageref]\"
+. ds an*ofoot "\\*[an*pageref]\"
. el \{\
. ds an*ofoot \\n[%]\"
. if r X \{\
@@ -1641,7 +1641,7 @@ contains unsupported escape sequence
.nr an*margin 0
.nr an-need-no-space-mode 0
.nr an-need-break 0
-.ds an-pageref \" empty
+.ds an*pageref \" empty
.ds an*ifoot \" empty
.ds an*extra1 \" empty
.
_______________________________________________
groff-commit mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/groff-commit
