[groff] 16/36: [mm]: Warn if `TM` called without arguments.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit e47fa34159769d7818e838903e9bb6e4cd09806a
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Mon Jan 16 12:04:08 2023 -0600

    [mm]: Warn if `TM` called without arguments.
    
    * contrib/mm/m.tmac (TM): Warn if called without arguments.
    * contrib/mm/groff_mm.7.man (Macros) <TM>: Notate argument as mandatory.
---
 contrib/mm/ChangeLog      | 4 ++++
 contrib/mm/groff_mm.7.man | 8 ++++----
 contrib/mm/m.tmac         | 4 ++++
 3 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/contrib/mm/ChangeLog b/contrib/mm/ChangeLog
index 7626f3069..a9c933f53 100644
--- a/contrib/mm/ChangeLog
+++ b/contrib/mm/ChangeLog
@@ -1,3 +1,7 @@
+2023-01-16  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * m.tmac (TM): Warn if called without arguments.
+
 2023-01-16  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * m.tmac (AST): Preserve any user-specified leading spaces in
diff --git a/contrib/mm/groff_mm.7.man b/contrib/mm/groff_mm.7.man
index 3141a3128..eb2c454fd 100644
--- a/contrib/mm/groff_mm.7.man
+++ b/contrib/mm/groff_mm.7.man
@@ -3404,11 +3404,11 @@ See
 .
 .
 .TP
-.BI TM\  "\fR[\fPnum1 \fR[\fPnum2 \fR[.\|.\|.]]]\fP"
-Technical memorandum numbers used in
-.BR .MT .
+.BI TM\~ number\c
+\~.\|.|.
+Declare technical memorandum number(s) used by
+.BR MT .
 .
-An unlimited number of arguments may be given.
 .
 .TP
 .B TP
diff --git a/contrib/mm/m.tmac b/contrib/mm/m.tmac
index 75d32229d..9c7039885 100644
--- a/contrib/mm/m.tmac
+++ b/contrib/mm/m.tmac
@@ -3117,6 +3117,10 @@ in=\\n[.i] fi=\\n[.u] .d=\\n[.d] nl=\\n[nl] pg=\\n[%]
 .\"-------------------
 .\" Save technical memorandum numbers.
 .de TM
+.if !\\n[.$] \{\
+.      @warning \\$0: ignoring; no arguments specified
+.      return
+.\}
 .nr cov*i 0 1
 .while \\n[.$]>=\\n+[cov*i] .ds cov*mt-tm!\\n[cov*i] \\$[\\n[cov*i]]
 .nr cov*mt-tm-max \\n[.$]