gbranden pushed a commit to branch master
in repository groff.
commit 0951ff53e47cfc8dda792e23f2111268bd3dd81b
Author: G. Branden Robinson <[email protected]>
AuthorDate: Thu Aug 10 02:08:17 2023 -0500
[man]: Fix Savannah #64539 (add `TS` register).
[man]: Add new `TS` register to configure required separation between a
(`IP`, `TP`) paragraph's tag and its body, and change the default amount
used for this purpose from 1n ro 2n. Retire private register
`an-tag-separation` in favor of `TS`.
* tmac/an.tmac: Assign `TS` value of 2n if not already defined.
(TH): Stop setting the default here.
(an-write-paragraph-tag): Use it.
Fixes <https://savannah.gnu.org/bugs/?64539>. Thanks to Alex Colomar
for the report.
---
ChangeLog | 14 ++++++++++++++
tmac/an.tmac | 7 +++++--
2 files changed, 19 insertions(+), 2 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index a0eab1ca0..aff853bea 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,17 @@
+2023-08-10 G. Branden Robinson <[email protected]>
+
+ [man]: Add new `TS` register to configure required separation
+ between a (`IP`, `TP`) paragraph's tag and its body, and change
+ the default amount used for this purpose from 1n ro 2n. Retire
+ private register `an-tag-separation` in favor of `TS`.
+
+ * tmac/an.tmac: Assign `TS` value of 2n if not already defined.
+ (TH): Stop setting the default here.
+ (an-write-paragraph-tag): Use it.
+
+ Fixes <https://savannah.gnu.org/bugs/?64539>. Thanks to Alex
+ Colomar for the report.
+
2023-08-09 G. Branden Robinson <[email protected]>
[man,mdoc]: Change base paragraph indentation to 5n. This
diff --git a/tmac/an.tmac b/tmac/an.tmac
index de9bbdcaa..ad9090ceb 100644
--- a/tmac/an.tmac
+++ b/tmac/an.tmac
@@ -279,7 +279,6 @@
. an-reset-paragraph-spacing
. an-reset-margin-and-inset-level
.
-. nr an-tag-separation 1n
. nr an-need-no-space-mode 0
. nr an-need-break 0
. nr an-is-in-diversion 0
@@ -633,7 +632,7 @@ contains unsupported escape sequence
. ne (2v + 1u)
. \" Does the tag fit within the paragraph indentation?
. nr an-tag-fits \
- (\\n[dl] + \\n[an-tag-separation] <= \\n[an-prevailing-indent])
+ (\\n[dl] + \\n[TS] <= \\n[an-prevailing-indent])
. if \\n[an-tag-fits] .DEVTAG-COL 1
. an-div
. if \\n[an-tag-fits] .sp -1v
@@ -1516,6 +1515,10 @@ contains unsupported escape sequence
. nr S 12
.\}
.
+.\" required paragraph tag separation
+.if !r TS \
+. nr TS 2n
+.
.\" subsection indentation
.if !r SN \
. nr SN 3n
_______________________________________________
Groff-commit mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/groff-commit
