[groff] 35/38: [mm]: Fix Savannah #24048.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 4610c23c0faf22e76965c28321516f35c82fb627
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Sun Oct 2 23:35:19 2022 -0500

    [mm]: Fix Savannah #24048.
    
    * contrib/mm/m.tmac (pg@header): Add page length sufficiency check.
    
    Fixes <https://savannah.gnu.org/bugs/?24048>.  Thanks to Werner Lemberg
    for the report.
    
    See commits 2a6b7bb4b0 and f6fcbba95c, both 2 February, for similar work
    on ms(7) and me(7).
---
 contrib/mm/ChangeLog | 7 +++++++
 contrib/mm/m.tmac    | 7 +++++++
 2 files changed, 14 insertions(+)

diff --git a/contrib/mm/ChangeLog b/contrib/mm/ChangeLog
index 7a89321b4..240f3e8ba 100644
--- a/contrib/mm/ChangeLog
+++ b/contrib/mm/ChangeLog
@@ -1,3 +1,10 @@
+2022-10-02  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * m.tmac (pg@header): Add page length sufficiency check.
+
+       Fixes <https://savannah.gnu.org/bugs/?24048>.  Thanks to Werner
+       Lemberg for the report.
+
 2022-10-02  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        Regression-test Savannah #24048.
diff --git a/contrib/mm/m.tmac b/contrib/mm/m.tmac
index 7385f7f20..89731b84d 100644
--- a/contrib/mm/m.tmac
+++ b/contrib/mm/m.tmac
@@ -1253,6 +1253,13 @@ in=\\n[.i] fi=\\n[.u] .d=\\n[.d] nl=\\n[nl] pg=\\n[%]
 .\" Disable in HTML mode
 .if !'\*[.T]'html' \{\
 .if \\n[D]>1 .tm Page# \\n[%] (\\n[.F]:\\n[c.])
+.      if (u;(\\n[pg*header-size] + \\n[pg*extra-header-size] \
+       + \\n[pg*footer-size] + \\n[pg*extra-footer-size] \
+       + \\n[.V]) >= \\n[.p]) \{\
+.              pl \\n[nl]u
+.              @error insufficient page length; aborting\"
+.      \}
+.\}
 .\" check if Hy has been changed
 .ie \\n[Hy] 'hy 14
 .el 'nh