[groff] 06/41: [man]: Recover faster from missing `EE` calls.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit e0e16d8e659e8ce9165dee7f91a066559c2c9a61
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Tue Mar 15 19:27:35 2022 +1100

    [man]: Recover faster from missing `EE` calls.
    
    * tmac/an.tmac: Recover more quickly from missing `EE` calls.
    
      (initialization): Define new strings, `an*body-family` and
      `an*example-family` to house the font families used in these rendering
      contexts.
    
      (TH, SH, SS): Restore the font family to `an*body-family`.
    
      (TH): Set font style to roman as well.
    
      (EX): Change to `an*example-family` instead of literal "C".
    
    Fixes <https://savannah.gnu.org/bugs/?62187>.
---
 ChangeLog    | 12 ++++++++++++
 tmac/an.tmac | 10 +++++++++-
 2 files changed, 21 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index acb8860c..7510d12f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,15 @@
+2022-03-15  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * tmac/an.tmac: Recover more quickly from missing `EE` calls.
+       (initialization): Define new strings, `an*body-family` and
+       `an*example-family` to house the font families used in these
+       rendering contexts.
+       (TH, SH, SS): Restore the font family to `an*body-family`.
+       (TH): Set font style to roman as well.
+       (EX): Change to `an*example-family` instead of literal "C".
+
+       Fixes <https://savannah.gnu.org/bugs/?62187>.
+
 2022-03-15  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * tmac/e.tmac: Test register for existence before using it to
diff --git a/tmac/an.tmac b/tmac/an.tmac
index 0e4aa6fa..71a0b6f0 100644
--- a/tmac/an.tmac
+++ b/tmac/an.tmac
@@ -223,6 +223,9 @@
 .  \" once when initializing the package because when rendering multiple
 .  \" pages, a previous page might have changed them.
 .
+.  fam \\*[an*body-family]
+.  ft R
+.
 .  nr PS    10z \" default point size
 .  nr PS-SS 10z
 .  nr PS-SH 10.95z
@@ -628,6 +631,7 @@
 .
 .\" Set arguments (or next input line if none) as a section heading.
 .de1 SH
+.  fam \\*[an*body-family]
 .  an-break-paragraph
 .  an-reset-margin-and-inset-level
 .  fi
@@ -653,6 +657,7 @@
 .
 .\" Set arguments (or next input line if none) as a subsection heading.
 .de1 SS
+.  fam \\*[an*body-family]
 .  an-break-paragraph
 .  an-reset-margin-and-inset-level
 .  fi
@@ -961,7 +966,7 @@
 .    ftr I CWI
 .    ftr BI CWI
 .  \}
-.  el .fam C
+.  el .fam \\*[an*example-family]
 .  ft R
 ..
 .
@@ -1106,6 +1111,9 @@
 .nr an-is-output-html 0
 .if '\*[.T]'html' .nr an-is-output-html 1
 .
+.ds an*body-family T \" Times
+.ds an*example-family C \" Courier
+.
 .\" Map monospaced fonts to standard styles for groff's nroff devices.
 .if n \{\
 .  ftr CR R