[groff] 01/03: [mom]: Fixes CODE <anything> not restoring point size correctly

[Peter Schaffter]

PTPi pushed a commit to branch master
in repository groff.

commit 647db0a45ac302b97fa39b503384fc80cd6772d4
Author: Peter Schaffter <peter@schaffter.ca>
AuthorDate: Fri Sep 2 18:51:58 2022 -0400

    [mom]: Fixes CODE <anything> not restoring point size correctly
    
    * The point size was being stored in a number register instead of a
      string.
    
    * Also updates BUGS
---
 contrib/mom/BUGS    | 4 ++++
 contrib/mom/om.tmac | 8 ++++----
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/contrib/mom/BUGS b/contrib/mom/BUGS
index 2ab897425..bc686cbeb 100644
--- a/contrib/mom/BUGS
+++ b/contrib/mom/BUGS
@@ -23,6 +23,10 @@ the Subject line or you risk my spam filters nuking your 
message.
 
 Version 2.5_b
 =============
+CODE <OFF> not always correctly restoring point size of text
+afterwards.
+---Fixed---
+
 BLANKPAGE broken when columns are enabled.
 ---Fixed---
 
diff --git a/contrib/mom/om.tmac b/contrib/mom/om.tmac
index 7b9e39652..b36129ece 100644
--- a/contrib/mom/om.tmac
+++ b/contrib/mom/om.tmac
@@ -12373,7 +12373,7 @@ Shimming must be disabled with NO_SHIM before using 
FLEX.
 .          if \\n[#CODE_COLOR]=1 .COLOR \\*[$CODE_COLOR]
 .          char ' \[aq]
 .          if !\\n[#CODE_SIZE_ADJ]=0 \{\
-.             nr #RESTORE_SIZE \\n[.s]
+.             ds $RESTORE_SIZE \\n[.s]
 .             ps \\n[#PT_SIZE]u*\\n[#CODE_SIZE_ADJ]u/100u
 .          \}
 .          if \\n[#SQ_ON] \{\
@@ -12383,9 +12383,9 @@ Shimming must be disabled with NO_SHIM before using 
FLEX.
 .       \}
 .    \}
 .    el \{\
-.       fam \\*[#RESTORE_FAM]
-.       ft  \\*[#RESTORE_FT]
-.       if !\\n[#CODE_SIZE_ADJ]=0 .ps \\n[#RESTORE_SIZE]
+.       fam \\*[$RESTORE_FAM]
+.       ft  \\*[$RESTORE_FT]
+.       if !\\n[#CODE_SIZE_ADJ]=0 .ps \\*[$RESTORE_SIZE]
 .       rm $RESTORE_FAM
 .       rm $RESTORE_FT
 .       rm $RESTORE_SIZE