[groff] 13/40: [me]: Add page length insufficiency check.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit f6fcbba95cc77dedcae75e61db26e86922f8f8ba
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Wed Feb 2 04:06:40 2022 +1100

    [me]: Add page length insufficiency check.
    
    * tmac/e.tmac (@h): Port Keith Marshall's page length checker from
      ms(7).
    
    Fixes <https://savannah.gnu.org/bugs/?61034>.
---
 ChangeLog   | 9 +++++++++
 tmac/e.tmac | 5 +++++
 2 files changed, 14 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 009f8496..d77ecee7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2022-02-02  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       [me]: Add page length insufficiency check.
+
+       * tmac/e.tmac (@h): Port Keith Marshall's page length checker
+       from ms(7).
+
+       Fixes <https://savannah.gnu.org/bugs/?61034>.
+
 2022-02-02  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        [me]: Add test for insufficient page length error.
diff --git a/tmac/e.tmac b/tmac/e.tmac
index 9039ea30..2c267881 100644
--- a/tmac/e.tmac
+++ b/tmac/e.tmac
@@ -274,6 +274,11 @@
 .
 .de @h                 \" --- header
 .if \n@>1 .tm >> @h %=\\n% ?a=\\n(?a ?b=\\n(?b ?w=\\n(?w
+.do if (u;\\n(tm+\\n(bm+\\n(.V>\\n(.p) \{\
+.      do @err insufficient page length; aborting
+.      pl \\n(nlu
+.      ab
+.\}
 .do if (u;\\n(.i+\\n(.o>=\\n(.l) \
 .      do @err page offset plus indentation exceeds line length
 .\" initialize a pile of junk