[groff] 29/32: [mm]: Throw warning on overlong `LI` list item.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit b56c8e41153cfbcd25ce36d9b8f0345a548db441
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Fri Jun 14 11:48:01 2024 -0500

    [mm]: Throw warning on overlong `LI` list item.
    
    * contrib/mm/m.tmac (LI): Throw warning if a list item mark is overlong.
---
 contrib/mm/ChangeLog | 4 ++++
 contrib/mm/m.tmac    | 2 ++
 2 files changed, 6 insertions(+)

diff --git a/contrib/mm/ChangeLog b/contrib/mm/ChangeLog
index ebee74ad4..f3ae46281 100644
--- a/contrib/mm/ChangeLog
+++ b/contrib/mm/ChangeLog
@@ -1,3 +1,7 @@
+2024-06-14  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * m.tmac (LI): Throw warning if a list item mark is overlong.
+
 2024-06-14  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * m.tmac (LI): Improve diagnostic message; name _all_ of the
diff --git a/contrib/mm/m.tmac b/contrib/mm/m.tmac
index b5ee843b6..41dce1570 100644
--- a/contrib/mm/m.tmac
+++ b/contrib/mm/m.tmac
@@ -2326,6 +2326,8 @@ ML, RL, VL, or LB first
 .\}
 .\"
 .\" determine where the text begins
+.if \w'\\*[li*c-mark]'>\\n[li*tind] .@warning \\$0: overlong mark \
+'\\*[li*c-mark]'
 .nr li*text-begin \\n[li*tind]>?\w@\\*[li*c-mark]\ @
 .\"
 .\" determine where the mark begin