gbranden pushed a commit to branch master
in repository groff.
commit ca5382b5a8b8dff869ba76be2d9029a2327e9058
Author: G. Branden Robinson <[email protected]>
AuthorDate: Sun Jul 20 05:18:01 2025 -0500
tmac/an.tmac: Trivially refactor (3/5).
...continuing a name space reform in progress since 2022.
* tmac/an.tmac (an-reset-margin-and-inset-level): Rename this...
(an*reset-section-parameters): ...to this.
---
ChangeLog | 4 +++-
tmac/an.tmac | 22 +++++++++++-----------
2 files changed, 14 insertions(+), 12 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 5bfa9192f..d65cd523c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -5,7 +5,9 @@
(an-break-paragraph): Rename this...
(an*break-paragraph): ...to this...
(an-reset-paragraph-spacing): ...and this...
- (an*reset-paragraph-spacing): ...to this.
+ (an*reset-paragraph-spacing): ...to this...
+ (an-reset-margin-and-inset-level): ...and this...
+ (an*reset-section-parameters): ...to this.
2025-07-18 G. Branden Robinson <[email protected]>
diff --git a/tmac/an.tmac b/tmac/an.tmac
index fcbd46d85..a14b7bf6d 100644
--- a/tmac/an.tmac
+++ b/tmac/an.tmac
@@ -139,6 +139,14 @@
. ta T .5i
..
.
+.de an*reset-section-parameters
+. nr an-inset-level 1
+. nr an-margin \\n[BP]
+. nr an-saved-margin!1 \\n[BP]
+. nr an-prevailing-indent \\n[IN]
+. nr an-saved-prevailing-indent!1 \\n[IN]
+..
+.
.\" This logic would be part of `an*reset-paragraph-parameters`, but
.\" unfortunately we have to support the legacy `PD` macro, which
.\" permits unseemly fiddling at arbitrary places in the text. (99
@@ -151,14 +159,6 @@
. rs
..
.
-.de an-reset-margin-and-inset-level
-. nr an-inset-level 1
-. nr an-margin \\n[BP]
-. nr an-saved-margin!1 \\n[BP]
-. nr an-prevailing-indent \\n[IN]
-. nr an-saved-prevailing-indent!1 \\n[IN]
-..
-.
.\" Break the page and update its number depending on the C (consecutive
.\" numbering) register.
.\"
@@ -288,7 +288,7 @@
. an*reset-hyphenation-mode
. an-reset-tab-stops
. an*reset-paragraph-spacing
-. an-reset-margin-and-inset-level
+. an*reset-section-parameters
.
. nr an-need-no-space-mode 0
. nr an-need-break 0
@@ -700,7 +700,7 @@ contains unsupported escape sequence
.de1 SH
. fam \\*[an*body-family]
. an*break-paragraph
-. an-reset-margin-and-inset-level
+. an*reset-section-parameters
. fi
. in \\n[BP]u
. ti 0
@@ -729,7 +729,7 @@ contains unsupported escape sequence
.de1 SS
. fam \\*[an*body-family]
. an*break-paragraph
-. an-reset-margin-and-inset-level
+. an*reset-section-parameters
. fi
. in \\n[BP]u
. ti \\n[SN]u
_______________________________________________
groff-commit mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/groff-commit
