[tmac]: Remove compatibility mode save registers.

...after using them.

* tmac/an.tmac:
* tmac/andoc.tmac:
* tmac/cp1047.tmac:
* tmac/devtag.tmac:
* tmac/ec.tmac:
* tmac/fallbacks.tmac:
* tmac/latin1.tmac:
* tmac/latin2.tmac:
* tmac/latin5.tmac:
* tmac/latin9.tmac:
* tmac/papersize.tmac:
* tmac/pdfpic.tmac:
* tmac/psold.tmac:
* tmac/pspic.tmac:
* tmac/trace.tmac:
* tmac/unicode.tmac: Do it.

* doc/groff.texi (Implementation Differences):
* man/groff_diff.7.man (Implementation Differences): Illustrate doing so
  in relevant examples.

19 files changed, 44 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index 36a789c8f..420934e53 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,29 @@
+2021-07-10  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+	[tmac]: Remove compatibility mode save registers after using
+	them.
+
+	* tmac/an.tmac:
+	* tmac/andoc.tmac:
+	* tmac/cp1047.tmac:
+	* tmac/devtag.tmac:
+	* tmac/ec.tmac:
+	* tmac/fallbacks.tmac:
+	* tmac/latin1.tmac:
+	* tmac/latin2.tmac:
+	* tmac/latin5.tmac:
+	* tmac/latin9.tmac:
+	* tmac/papersize.tmac:
+	* tmac/pdfpic.tmac:
+	* tmac/psold.tmac:
+	* tmac/pspic.tmac:
+	* tmac/trace.tmac:
+	* tmac/unicode.tmac: Do it.
+
+	* doc/groff.texi (Implementation Differences):
+	* man/groff_diff.7.man (Implementation Differences): Illustrate
+	doing so in relevant examples.
+
 2021-07-09  G. Branden Robinson <g.branden.robinson@gmail.com>
 
 	* tmac/troffrc: Load the English localization file `en.tmac` by
diff --git a/doc/groff.texi b/doc/groff.texi
index add13e043..0d2f5e6fd 100644
--- a/doc/groff.texi
+++ b/doc/groff.texi
@@ -15676,6 +15676,7 @@ at the beginning of your file, followed by
 
 @Example
 .cp \n[_my_saved_C]
+.do rr _my_saved_C
 @endExample
 
 at the end.  As in the C language, we all have to share one big
diff --git a/man/groff_diff.7.man b/man/groff_diff.7.man
index 7ec37150e..f073742ea 100644
--- a/man/groff_diff.7.man
+++ b/man/groff_diff.7.man
@@ -4841,6 +4841,7 @@ followed by
 .RS
 .EX
 \&.cp \[rs]n[_my_saved_C]
+\&.do rr _my_saved_C
 .EE
 .RE
 at the end.
diff --git a/tmac/an.tmac b/tmac/an.tmac
index cab89717a..d63d6032e 100644
--- a/tmac/an.tmac
+++ b/tmac/an.tmac
@@ -1086,6 +1086,7 @@
 .  an-set-up-continuous-rendering
 .
 .cp \n[*groff_an_tmac_C]
+.do rr *groff_an_tmac_C
 .
 .\" Local Variables:
 .\" mode: nroff
diff --git a/tmac/andoc.tmac b/tmac/andoc.tmac
index 5a948e6d7..35dfc8144 100644
--- a/tmac/andoc.tmac
+++ b/tmac/andoc.tmac
@@ -102,6 +102,7 @@
 ..
 .
 .cp \n[*groff_andoc_tmac_C]
+.do rr *groff_andoc_tmac_C
 .
 .\" Local Variables:
 .\" mode: nroff
diff --git a/tmac/cp1047.tmac b/tmac/cp1047.tmac
index 4d3afc6a8..5baeab712 100644
--- a/tmac/cp1047.tmac
+++ b/tmac/cp1047.tmac
@@ -99,6 +99,7 @@
 .trin \[char253]\[`U]
 .trin \[char254]\['U]
 .cp \n[*groff_cp1047_tmac_C]
+.do rr *groff_cp1047_tmac_C
 .
 .\" Local Variables:
 .\" mode: nroff
diff --git a/tmac/devtag.tmac b/tmac/devtag.tmac
index fa2b01034..8a6204a29 100644
--- a/tmac/devtag.tmac
+++ b/tmac/devtag.tmac
@@ -114,6 +114,7 @@ are reasonably generic and could be applied to other devices.
 .
 .
 .cp \n[*groff_devtag_tmac_C]
+.do rr *groff_devtag_tmac_C
 .
 .
 .\" Local Variables:
diff --git a/tmac/ec.tmac b/tmac/ec.tmac
index ee2ad33f4..7f37ddfc6 100644
--- a/tmac/ec.tmac
+++ b/tmac/ec.tmac
@@ -63,6 +63,7 @@
 .nr ECFONTS 1
 .
 .cp \n[*groff_ec_tmac_C]
+.do rr *groff_ec_tmac_C
 .
 .\" Local Variables:
 .\" mode: nroff
diff --git a/tmac/fallbacks.tmac b/tmac/fallbacks.tmac
index aa6df8115..28d40f73b 100644
--- a/tmac/fallbacks.tmac
+++ b/tmac/fallbacks.tmac
@@ -63,6 +63,7 @@
 .fchar \[u217f] m
 .
 .cp \n[*groff_fallbacks_tmac_C]
+.do rr *groff_fallbacks_tmac_C
 .
 .\" Local Variables:
 .\" mode: nroff
diff --git a/tmac/latin1.tmac b/tmac/latin1.tmac
index d8c07ef68..630028f14 100644
--- a/tmac/latin1.tmac
+++ b/tmac/latin1.tmac
@@ -105,6 +105,7 @@
 .trin \[char254]\[Tp]
 .trin \[char255]\[:y]
 .cp \n[*groff_latin1_tmac_C]
+.do rr *groff_latin1_tmac_C
 .
 .\" Local Variables:
 .\" mode: nroff
diff --git a/tmac/latin2.tmac b/tmac/latin2.tmac
index e457c33ba..db187c1c3 100644
--- a/tmac/latin2.tmac
+++ b/tmac/latin2.tmac
@@ -107,6 +107,7 @@
 .trin \[char254]\[t ac]
 .trin \[char255]\[a.]
 .cp \n[*groff_latin2_tmac_C]
+.do rr *groff_latin2_tmac_C
 .
 .\" Local Variables:
 .\" mode: nroff
diff --git a/tmac/latin5.tmac b/tmac/latin5.tmac
index 3313c5438..24c04c8cc 100644
--- a/tmac/latin5.tmac
+++ b/tmac/latin5.tmac
@@ -107,6 +107,7 @@
 .trin \[char254]\[s ,]
 .trin \[char255]\[:y]
 .cp \n[*groff_latin5_tmac_C]
+.do rr *groff_latin5_tmac_C
 .
 .\" Local Variables:
 .\" mode: nroff
diff --git a/tmac/latin9.tmac b/tmac/latin9.tmac
index 1f21be7c0..4a07e1417 100644
--- a/tmac/latin9.tmac
+++ b/tmac/latin9.tmac
@@ -107,6 +107,7 @@
 .trin \[char254]\[Tp]
 .trin \[char255]\[:y]
 .cp \n[*groff_latin9_tmac_C]
+.do rr *groff_latin9_tmac_C
 .
 .\" Local Variables:
 .\" mode: nroff
diff --git a/tmac/papersize.tmac b/tmac/papersize.tmac
index 4a86e0e7c..0a3b9183f 100644
--- a/tmac/papersize.tmac
+++ b/tmac/papersize.tmac
@@ -159,6 +159,7 @@
 .\}
 .
 .cp \n[*groff_papersize_tmac_C]
+.do rr *groff_papersize_tmac_C
 .
 .\" Local Variables:
 .\" mode: nroff
diff --git a/tmac/pdfpic.tmac b/tmac/pdfpic.tmac
index cc0a12212..351d16996 100644
--- a/tmac/pdfpic.tmac
+++ b/tmac/pdfpic.tmac
@@ -144,6 +144,7 @@ sed -e 's/Page *size: *\\([[:digit:].]*\\) *x *\\([[:digit:].]*\\).*$/\
 ..
 .
 .cp \n[*groff_pdfpic_tmac_C]
+.do rr *groff_pdfpic_tmac_C
 .
 .\" Local Variables:
 .\" mode: nroff
diff --git a/tmac/psold.tmac b/tmac/psold.tmac
index 9c03b517b..d390412ca 100644
--- a/tmac/psold.tmac
+++ b/tmac/psold.tmac
@@ -61,6 +61,7 @@ I\h'-.25m'\v'-.33m'\s'\En(.s*6u/10u'\v'.33m'D\v'-.33m'\s0\v'.33m'
 .tr \[char253]\['y]
 .tr \[char254]\[Tp]
 .cp \n[*groff_psold_tmac_C]
+.do rr *groff_psold_tmac_C
 .
 .\" Local Variables:
 .\" mode: nroff
diff --git a/tmac/pspic.tmac b/tmac/pspic.tmac
index 049ef1a77..0ca95f34e 100644
--- a/tmac/pspic.tmac
+++ b/tmac/pspic.tmac
@@ -162,6 +162,7 @@
 ..
 .
 .cp \n[*groff_pspic_tmac_C]
+.do rr *groff_pspic_tmac_C
 .
 .\" Local Variables:
 .\" mode: nroff
diff --git a/tmac/trace.tmac b/tmac/trace.tmac
index 85b6613de..a119ae79c 100644
--- a/tmac/trace.tmac
+++ b/tmac/trace.tmac
@@ -337,6 +337,7 @@
 .ec
 .
 .cp \n[*groff_trace_tmac_C]
+.do rr *groff_trace_tmac_C
 .
 .\" Local Variables:
 .\" mode: nroff
diff --git a/tmac/unicode.tmac b/tmac/unicode.tmac
index 9a7315b3e..46cf74b08 100644
--- a/tmac/unicode.tmac
+++ b/tmac/unicode.tmac
@@ -6,6 +6,7 @@
 .char ` \[oq]
 .char ' \[cq]
 .cp \n[*groff_unicode_tmac_C]
+.do rr *groff_unicode_tmac_C
 .
 .\" Local Variables:
 .\" mode: nroff