summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ChangeLog11
-rw-r--r--tmac/an-old.tmac11
2 files changed, 21 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 3ea205807..14f671793 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,16 @@
2021-05-06 G. Branden Robinson <g.branden.robinson@gmail.com>
+ If \*[HF] is a bold style, substitute bold italics for italics
+ in section and subsection headings, keeping the font weight
+ consistent.
+
+ * tmac/an-old.tmac (initialization): Set a flag for this based
+ on the interpolation of \*[HF] matching "B" as its last
+ character.
+ (SH, SS): Apply and reverse font remapping based on this flag.
+
+2021-05-06 G. Branden Robinson <g.branden.robinson@gmail.com>
+
* tmac/an-ext.tmac (EX): Work around Savannah #59522 by changing
fonts differently on DVI output, avoiding a font warning.
diff --git a/tmac/an-old.tmac b/tmac/an-old.tmac
index ad1314716..e6594b574 100644
--- a/tmac/an-old.tmac
+++ b/tmac/an-old.tmac
@@ -1,6 +1,6 @@
.\" an-old.tmac
.\"
-.\" Copyright (C) 1989-2020 Free Software Foundation, Inc.
+.\" Copyright (C) 1989-2021 Free Software Foundation, Inc.
.\" Written by James Clark (jjc@jclark.com)
.\"
.\" This file is part of groff.
@@ -323,12 +323,14 @@
. nr an-break-flag 1
. ps \\n[PS-SH]u
. ft \\*[HF]
+. if \\n[an-HF-remap-I-style] .ftr I BI
. ne (2v + 1u)
. if \\n[.$] \{\
. ds an-section-heading \\$*\"
. if \\n[CS] .stringup an-section-heading
\&\\*[an-section-heading]
. \}
+. if \\n[an-HF-remap-I-style] .ftr I I
..
.
.de1 SS
@@ -344,8 +346,10 @@
. nr an-break-flag 1
. ps \\n[PS-SS]u
. ft \\*[HF]
+. if \\n[an-HF-remap-I-style] .ftr I BI
. ne (2v + 1u)
. if \\n[.$] \&\\$*
+. if \\n[an-HF-remap-I-style] .ftr I I
..
.
.de1 B
@@ -826,6 +830,11 @@
.if !d HF \
. ds HF B\"
.
+.\" If HF is a bold style, use bold italics for italics in headings.
+.ds an-heading-style \*[HF]
+.substring an-heading-style -1 -1
+.if '\*[an-heading-style]'B' .nr an-HF-remap-I-style 1
+.
.if \n[cR] \
. an-set-up-continuous-rendering
.