[groff] 23/36: [mm]: Align `Tm` string definition with `Sm`.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 1a06434a20d36559827877eedf4fcd55929ce997
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Mon Jan 16 16:18:44 2023 -0600

    [mm]: Align `Tm` string definition with `Sm`.
    
    * contrib/mm/m.tmac (Tm): Align with definition of `Sm`, with analogous
      fallback definitions.
---
 contrib/mm/ChangeLog      | 5 +++++
 contrib/mm/groff_mm.7.man | 4 ++--
 contrib/mm/m.tmac         | 7 ++++++-
 3 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/contrib/mm/ChangeLog b/contrib/mm/ChangeLog
index 03925c307..611ef328e 100644
--- a/contrib/mm/ChangeLog
+++ b/contrib/mm/ChangeLog
@@ -1,3 +1,8 @@
+2023-01-16  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * m.tmac (Tm): Align with definition of `Sm`, with analogous
+       fallback definitions.
+
 2023-01-16  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * m.tmac (Sm): Implement string for service mark, for DWB mm
diff --git a/contrib/mm/groff_mm.7.man b/contrib/mm/groff_mm.7.man
index e5a0124d7..b3a057710 100644
--- a/contrib/mm/groff_mm.7.man
+++ b/contrib/mm/groff_mm.7.man
@@ -3978,8 +3978,8 @@ ap@Appendix
 .
 .TP
 .B Tm
-contains the special character
-.BR \[rs](tm ,
+interpolates
+.if c \[tm] \[tm],
 the trade mark sign.
 .
 .
diff --git a/contrib/mm/m.tmac b/contrib/mm/m.tmac
index 659f8590a..d171dd97a 100644
--- a/contrib/mm/m.tmac
+++ b/contrib/mm/m.tmac
@@ -158,7 +158,12 @@ Index              array!index
 .      ie c \[u2120] .ds Sm \[u2120]\"
 .      el            .ds Sm (SM)\"
 .\}
-.ds Tm \(tm
+.
+.ie t .ds Tm \v'-.4m'\s-3TM\s0\v'.4m'\"
+.el \{\
+.      ie c \[tm] .ds Tm \[tm]\"
+.      el         .ds Tm (TM)\"
+.\}
 .\"
 .\"---------------------------------------------
 .\"    Internal global variables