[groff] 22/36: [mm]: Implement `Sm` string.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit c5b6fd0774800da3200c66a76bb9c051213222e7
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Mon Jan 16 16:11:25 2023 -0600

    [mm]: Implement `Sm` string.
    
    * contrib/mm/m.tmac (Sm): Implement string for service mark, for DWB mm
      compatibility.
    * contrib/mm/groff_mm.7.man:
    * NEWS: Document it.
---
 NEWS                      |  2 ++
 contrib/mm/ChangeLog      |  6 ++++++
 contrib/mm/groff_mm.7.man | 14 ++++++++------
 contrib/mm/m.tmac         |  5 +++++
 4 files changed, 21 insertions(+), 6 deletions(-)

diff --git a/NEWS b/NEWS
index 5480a61cd..846b97b67 100644
--- a/NEWS
+++ b/NEWS
@@ -389,6 +389,8 @@ o The m (mm) macro package now recognizes a `V` register to 
set the
   correctly if suffixed with a scaling unit, instead of requiring an
   unscaled value assumed to be points.
 
+o The m (mm) macro package now supports AT&T/DWB mm's `Sm` string.
+
 o The m (mm) macro package now requires a title to be declared when
   memorandum type 5 is used (".MT 5"), just as type 4 has since groff
   1.10 (November 1995).
diff --git a/contrib/mm/ChangeLog b/contrib/mm/ChangeLog
index c95c45fc7..03925c307 100644
--- a/contrib/mm/ChangeLog
+++ b/contrib/mm/ChangeLog
@@ -1,3 +1,9 @@
+2023-01-16  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * m.tmac (Sm): Implement string for service mark, for DWB mm
+       compatibility.
+       * groff_mm.7.man: Document it.
+
 2023-01-16  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * m.tmac (CS): Define to throw diagnostic when used without ".MT
diff --git a/contrib/mm/groff_mm.7.man b/contrib/mm/groff_mm.7.man
index a92604f8f..e5a0124d7 100644
--- a/contrib/mm/groff_mm.7.man
+++ b/contrib/mm/groff_mm.7.man
@@ -118,12 +118,6 @@ are defined.
 .
 .
 .IP \[bu]
-The service mark string
-.B Sm
-is not implemented.
-.
-.
-.IP \[bu]
 The registers
 .BR A ,
 .BR C ,
@@ -3946,6 +3940,14 @@ page \[rs]\[rs]n[Qrfp].\[rq]
 \[lq]REFERENCES\[rq]
 .
 .
+.
+.TP
+.B Sm
+interpolates
+.if c \[u2120] \[u2120],
+the service mark sign.
+.
+.
 .TP
 .B Tcst
 Contains the current status of the table of contents and list of
diff --git a/contrib/mm/m.tmac b/contrib/mm/m.tmac
index 3a7d900b7..659f8590a 100644
--- a/contrib/mm/m.tmac
+++ b/contrib/mm/m.tmac
@@ -153,6 +153,11 @@ Index              array!index
 .\" it will be set to co,fg,tb,ec,ex or ap.
 .ds Tcst
 .\"
+.ie t .ds Sm \v'-.4m'\s-3SM\s0\v'.4m'\"
+.el \{\
+.      ie c \[u2120] .ds Sm \[u2120]\"
+.      el            .ds Sm (SM)\"
+.\}
 .ds Tm \(tm
 .\"
 .\"---------------------------------------------