diff options
| author | G. Branden Robinson <g.branden.robinson@gmail.com> | 2023-02-01 22:56:12 -0600 |
|---|---|---|
| committer | G. Branden Robinson <g.branden.robinson@gmail.com> | 2023-02-02 02:43:44 -0600 |
| commit | a4b12fca8c58d7f57dc327fb059cb4b4d7d01b98 (patch) | |
| tree | f97c63f6bf893d8589f4d56ac95e7286955b1bd1 /contrib | |
| parent | 7096b23bc63caf73c4f7c51123902a26b003906a (diff) | |
| download | groff-git-a4b12fca8c58d7f57dc327fb059cb4b4d7d01b98.tar.gz | |
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".
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/mm/ChangeLog | 6 | ||||
| -rw-r--r-- | 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,5 +1,11 @@ 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 threshold registers consistently. 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 . \} |