[groff] 24/30: [mm]: Trivially refactor.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 8dff1abb6eb0006547e5bc5a11fdc7856cd6c4cd
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Sat Oct 12 04:31:32 2024 -0500

    [mm]: Trivially refactor.
    
    * contrib/mm/m.tmac: Trivially refactor.  Rename registers for clarity.
    
        `par*number`  -> `par*nP-counter`
        `par*number2` -> `par*Np-counter`
---
 contrib/mm/ChangeLog |  6 ++++++
 contrib/mm/m.tmac    | 14 +++++++-------
 2 files changed, 13 insertions(+), 7 deletions(-)

diff --git a/contrib/mm/ChangeLog b/contrib/mm/ChangeLog
index 64637b1c4..21ac3f3fa 100644
--- a/contrib/mm/ChangeLog
+++ b/contrib/mm/ChangeLog
@@ -1,3 +1,9 @@
+2024-10-12  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * m.tmac: Trivially refactor.  Rename registers for clarity.
+           `par*number`  -> `par*nP-counter`
+           `par*number2` -> `par*Np-counter`
+
 2024-10-12  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * m.tmac (initialization): Refactor.  Drop never-interpolated
diff --git a/contrib/mm/m.tmac b/contrib/mm/m.tmac
index 49ba9aa5c..07ad99fcd 100644
--- a/contrib/mm/m.tmac
+++ b/contrib/mm/m.tmac
@@ -479,10 +479,10 @@ http://savannah.gnu.org/bugs/?group=groff.
 .nr par@suppress-indentation 0
 .nr hd*last-pos -1
 .nr hd*last-hsize -1
-.nr par*number 0 1
-.af par*number 01
-.nr par*number2 0 1
-.af par*number2 01
+.nr par*nP-counter 0 1
+.af par*nP-counter 00
+.nr par*Np-counter 0 1
+.af par*Np-counter 00
 .\"------------
 .\" paragraph
 .de P
@@ -502,7 +502,7 @@ http://savannah.gnu.org/bugs/?group=groff.
 .\}
 .nr par*indentation-eligible 1-\\n[par@suppress-indentation]
 .par@doit \\$*
-.if \\n[Np] \\n[H1].\\n+[par*number]\ \ \c
+.if \\n[Np] \\n[H1].\\n+[par*Np-counter]\ \ \c
 ..
 .\"------------
 .de nP
@@ -513,7 +513,7 @@ http://savannah.gnu.org/bugs/?group=groff.
 .\" A first-line indentation is meaningless for a numbered paragraph.
 .nr par*indentation-eligible 0
 .par@doit
-\\n[H2].\\n+[par*number2]\ \ \c
+\\n[H2].\\n+[par*nP-counter]\ \ \c
 ..
 .\"------------
 .de par@doit
@@ -1155,7 +1155,7 @@ numeric; got '\\$1'
 .ie \\n[hd*level]<=\\n[Hps] .SP (u;\\n[Hps2])
 .el                         .SP (u;\\n[Hps1])
 .\"
-.if \\$1=1&\\n[Np] .nr par*number 0
+.if \\$1=1&\\n[Np] .nr par*Np-counter 0
 .\" start diversion to measure size of header
 .di hd*div
 \\*[hd*mark]\\$2\\$3\\*[hd*suf-space]