[groff] 10/30: [mm]: Fix nits in new `Rfstyle` feature.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit a0f39f40d6f6e31209c5935fad5d4930f6ba5fbe
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Fri Oct 11 03:37:04 2024 -0500

    [mm]: Fix nits in new `Rfstyle` feature.
    
    * contrib/mm/m.tmac (@reset, par@doit): Call `ref*set-mark-style`.
    
      (RS): Assign to string named in argument using the _current_ values of
      `ref*(` and `ref*)`, not those at package initialization time.
    
    * contrib/mm/groff_mm.7.man (Registers) <Rfstyle>: Document that the
      effect of changing the register value is not necessarily immediate.
---
 contrib/mm/ChangeLog      | 12 ++++++++++++
 contrib/mm/groff_mm.7.man |  8 ++++++++
 contrib/mm/m.tmac         |  4 +++-
 3 files changed, 23 insertions(+), 1 deletion(-)

diff --git a/contrib/mm/ChangeLog b/contrib/mm/ChangeLog
index 927f08046..a1eb5f6cd 100644
--- a/contrib/mm/ChangeLog
+++ b/contrib/mm/ChangeLog
@@ -1,3 +1,15 @@
+2024-10-11  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       Fix nits in new `Rfstyle` feature.
+
+       * m.tmac (@reset, par@doit): Call `ref*set-mark-style`.
+       (RS): Assign to string named in argument using the _current_
+       values of `ref*(` and `ref*)`, not those at package
+       initialization time.
+
+       * groff_mm.7.man (Registers) <Rfstyle>: Document that the effect
+       of changing the register value is not necessarily immediate.
+
 2024-10-09  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * m.tmac: Support new `Rpfmt` string specifying the `LB` macro
diff --git a/contrib/mm/groff_mm.7.man b/contrib/mm/groff_mm.7.man
index 53ca2d75c..3de06991d 100644
--- a/contrib/mm/groff_mm.7.man
+++ b/contrib/mm/groff_mm.7.man
@@ -5494,6 +5494,14 @@ Value@Meaning
 .TE
 .
 .
+.IP
+Changes to
+.BR Rfstyle 's
+value
+may not take effect until the next heading or paragraphing macro call.
+.\" ...and in certain other cases we don't document.
+.
+.
 .\" XXX: Why is this not named `Rpej`?
 .TP
 .B Rpe
diff --git a/contrib/mm/m.tmac b/contrib/mm/m.tmac
index 6812b00ef..087682a66 100644
--- a/contrib/mm/m.tmac
+++ b/contrib/mm/m.tmac
@@ -451,6 +451,7 @@ http://savannah.gnu.org/bugs/?group=groff.
 'ti 0
 .ps \\n[@ps]u
 .vs \\n[@vs]u
+.ref*set-mark-style \" in case the document has changed it
 ..
 .de misc@toupper
 .tr aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ
@@ -536,6 +537,7 @@ http://savannah.gnu.org/bugs/?group=groff.
 .if \\n[par*do-indent] .ti +\\n[Pi]n
 .rr par*do-indent
 .nr par@suppress-indentation 0
+.ref*set-mark-style \" in case the document has changed it
 ..
 .\" ####### module line #######################################
 .de SP
@@ -3117,7 +3119,7 @@ exceeds depth of nested lists (\\n[li*lvl])
 .\"------------
 .de RS
 .ref*set-mark-style \" in case the document changed it
-.if !''\\$1' .ds \\$1 \*[ref*(]\\n[ref*nr]\*[ref*)]
+.if !''\\$1' .ds \\$1 \\*[ref*(]\\n[ref*nr]\\*[ref*)]
 .nr ref*flag 1
 .am ref*mac
 .ref@start-print \\n[ref*nr]