[groff] 13/17: contrib/mm/m.tmac (H, SETR): Trivially refactor.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit a4b12fca8c58d7f57dc327fb059cb4b4d7d01b98
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Wed Feb 1 22:56:12 2023 -0600

    contrib/mm/m.tmac (H, SETR): Trivially refactor.
    
    * contrib/mm/m.tmac (H, SETR): Trivially refactor.  Rename register to
      conform to convention: `hd-mark-trimmed` -> `hd@mark-trimmed`.
      This register is used outside of its "module", "hd".
---
 contrib/mm/ChangeLog | 6 ++++++
 contrib/mm/m.tmac    | 8 ++++----
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/contrib/mm/ChangeLog b/contrib/mm/ChangeLog
index 5ceccd12f..4be775555 100644
--- a/contrib/mm/ChangeLog
+++ b/contrib/mm/ChangeLog
@@ -1,3 +1,9 @@
+2023-02-01  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * m.tmac (H, SETR): Trivially refactor.  Rename register to
+       conform to convention: `hd-mark-trimmed` -> `hd@mark-trimmed`.
+       This register is used outside of its "module", "hd".
+
 2023-02-01  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * m.tmac (H, LI): Trivially refactor.  Annotate and test
diff --git a/contrib/mm/m.tmac b/contrib/mm/m.tmac
index 5fdb540f5..7e681d4c5 100644
--- a/contrib/mm/m.tmac
+++ b/contrib/mm/m.tmac
@@ -1089,7 +1089,7 @@ numeric; got '\\$1'
 .\" special case, no dot after level one heading if not H1dot true
 .if (\\n[hd*level]=1)&(\\n[H1dot]=0) .ds hd*mark \\n[H1]
 .\"
-.ds hd-mark-trimmed \\*[hd*mark]\" save hd-mark w/o spaces for references
+.ds hd@mark-trimmed \\*[hd*mark]\" save hd-mark w/o spaces for references
 .as hd*mark \ \ \"                     add spaces between mark and heading
 .if !\\n[hd*arg1] .ds hd*mark\"                no mark for unnumbered
 .\"
@@ -3269,14 +3269,14 @@ exceeds depth of nested lists (\\n[li*lvl])
 .if !r qrf*pass .tm \\$0: no .INITR in this file \" XXX: .@error?
 .if \\n[Ref] \{\
 .      ds qrf*name qrf*ref-\\$1
-.      if \\n[D]>2 .tm SETR: ref \\*[qrf*name]=\\*[hd-mark-trimmed],\\n[%]
+.      if \\n[D]>2 .tm SETR: ref \\*[qrf*name]=\\*[hd@mark-trimmed],\\n[%]
 .      \" heading-number
-.      ds \\*[qrf*name]-hn \\*[hd-mark-trimmed]
+.      ds \\*[qrf*name]-hn \\*[hd@mark-trimmed]
 .      \" page-number
 .      ds \\*[qrf*name]-pn \\n[%]
 .      \"
 .      if \\n[Ref] \{\
-.              tm .ds \\*[qrf*name]-hn \\*[hd-mark-trimmed]
+.              tm .ds \\*[qrf*name]-hn \\*[hd@mark-trimmed]
 .              tm .ds \\*[qrf*name]-pn \\n[%]
 .              if !'\\$2'' .tm .ds \\*[qrf*name]-xx \\$2
 .      \}