[groff] 08/30: contrib/mm/m.tmac: Trivially refactor.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit d9209295a301fc6ae56f5f6cf99e35820f9ac25b
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Wed Oct 9 22:52:41 2024 -0500

    contrib/mm/m.tmac: Trivially refactor.
    
    * contrib/mm/m.tmac (initialization, LB, LI): Rename internal string
      `li*mark` to `li*mf`, since it can be _either_ an arbitrary string
      _or_ an argument to the `af` request.
    
    The folks at Bell truly, truly hated strong type systems, didn't they?
---
 contrib/mm/ChangeLog |  7 +++++++
 contrib/mm/m.tmac    | 12 ++++++------
 2 files changed, 13 insertions(+), 6 deletions(-)

diff --git a/contrib/mm/ChangeLog b/contrib/mm/ChangeLog
index 261570579..0b5d74194 100644
--- a/contrib/mm/ChangeLog
+++ b/contrib/mm/ChangeLog
@@ -1,3 +1,10 @@
+2024-10-09  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * contrib/mm/m.tmac (initialization, LB, LI): Trivially
+       refactor.  Rename internal string `li*mark` to `li*mf`, since it
+       can be _either_ an arbitrary string _or_ an argument to the `af`
+       request.
+
 2024-09-27  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * mm/0.MT: Support an `Aumt` string to suppress the appearance
diff --git a/contrib/mm/m.tmac b/contrib/mm/m.tmac
index ad9ce0abf..1e4b32942 100644
--- a/contrib/mm/m.tmac
+++ b/contrib/mm/m.tmac
@@ -2315,7 +2315,7 @@ breaking page
 .nr li*mind 0
 .nr li*pad 0
 .nr li*type 0
-.ds li*mark 0
+.ds li*mf 0\" mark-or-format
 .nr li*li-spc 0
 .nr li*lvl 0 1
 .aln :g li*lvl
@@ -2333,14 +2333,14 @@ breaking page
 .misc@push pad \\n[li*pad]
 .misc@push type \\n[li*type]
 .misc@push li-spc \\n[li*li-spc]
-.ds li*mark-list!\\n[li*lvl] \\*[li*mark]
+.ds li*mark-list!\\n[li*lvl] \\*[li*mf]
 .nr li*lvl +1
 .\"
 .nr li*tind (n;0\\$1)\"                        text-indent
 .nr li*mind (n;0\\$2)\"                        mark-indent
 .nr li*pad (n;0\\$3)\"                 pad
 .nr li*type 0\\$4\"                    type
-.ds li*mark \\$5\"                     mark
+.ds li*mf \\$5\"                       mark-or-format
 .ie !'\\$6'' .nr li*li-spc \\$6\"      LI-space
 .el          .nr li*li-spc 1
 .ie !'\\$7'' .nr li*lb-spc \\$7\"      LB-space
@@ -2349,7 +2349,7 @@ breaking page
 .nr li*cnt!\\n[li*lvl] 0 1
 .\" assign format
 .af li*cnt!\\n[li*lvl] 1
-.if \\n[li*type] .if !'\\*[li*mark]'' .af li*cnt!\\n[li*lvl] \\*[li*mark]
+.if \\n[li*type] .if !'\\*[li*mf]'' .af li*cnt!\\n[li*lvl] \\*[li*mf]
 .\"
 .if \\n[li*lb-spc] .SP (u;\\n[li*lb-spc]*\\n[Lsp])
 .in +\\n[li*tind]u
@@ -2379,7 +2379,7 @@ ML, RL, VL, or LB first
 .              \" empty string.  We want a comparison of string
 .              \" contents instead (otherwise the tag disappears from
 .              \" the output), hence `\?`.
-.              if !'\?\\*[li*mark]\?'' .nr li*apply-prefix 1
+.              if !'\?\\*[li*mf]\?'' .nr li*apply-prefix 1
 .      \}
 .      el .nr li*apply-prefix 1
 .      ie \B'\\$2' .nr li*pad-prefix \\$2
@@ -2407,7 +2407,7 @@ ML, RL, VL, or LB first
 .ie \\n[.$]=1 .ds li*c-mark \\$1\"
 .el \{\
 .      ie d li*enumerator    .as li*c-mark \\*[li*enumerator]\"
-.      el                    .as li*c-mark \\*[li*mark]\"
+.      el                    .as li*c-mark \\*[li*mf]\"
 .\}
 .rm li*enumerator
 .\" Determine amount of padding after the mark.