[groff] 10/40: Revert "[me]: Abort if paper length too short."

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 4d5b24683497fd9c1b817a663d6a58f15d46c9f6
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Wed Feb 2 02:00:45 2022 +1100

    Revert "[me]: Abort if paper length too short."
    
    This reverts commit 7bfaf799c4822a99762cc30b0cf16ee89449621c.
    
    I'll fix this a better way, based on Keith Marshall's technique for ms.
---
 ChangeLog   | 13 -------------
 tmac/e.tmac | 17 -----------------
 2 files changed, 30 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 7af56fa9..e9d56443 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -4123,19 +4123,6 @@
        * tmac/tests/e_columns-work-on-long-pages.sh: Test it.
        * tmac/tmac.am (tmac_TESTS): Run test.
 
-2021-08-13  G. Branden Robinson <g.branden.robinson@gmail.com>
-
-       * tmac/e.tmac: Validate page length to prevent too-short paper
-       formats from causing traps to call each other until the input
-       stack overflows.  The minimum is 14v.
-       (check_page_length): Define new macro to perform the check.
-       (bp, @p, sh, 2c, 1c): Call it from likely candidates (@p is
-       internal and called by paragraphing macros).
-       (pl): Intercept and wrap the `pl` request itself; check its
-       setting immediately.
-
-       Fixes <https://savannah.gnu.org/bugs/?61034>.
-
 2021-08-09  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * man/groff.7.man (Localization): Add section.
diff --git a/tmac/e.tmac b/tmac/e.tmac
index 81802dae..fc6332a2 100644
--- a/tmac/e.tmac
+++ b/tmac/e.tmac
@@ -81,11 +81,6 @@
 .rm @line
 ..
 .
-.\" --- sanity check the page dimensions
-.do de check_page_length
-.if (\\n(.pu<14v) .ab \\*(_e: cannot format short page length \\n(.pu
-..
-.
 .\" --- check whether grohtml needs end of title/heading
 .do de1 @html_check_need_title
 .if \\n[devtag-needs-end-of-title] \
@@ -511,7 +506,6 @@
 .if !'\*(.T'html' .rn bp @b    \" --- begin page
 .
 .de bp                 \" *** begin new page (overrides columns)
-.do check_page_length
 .nr $c \\n($m                  \" force new page, not new column
 .ie \\n(nl>0 \
 .      @b \\$1
@@ -535,13 +529,6 @@
 .      nr _L \\n(.l
 ..
 .
-.rn pl xP              \" --- save troff page length request
-.
-.de pl                 \" *** set page length
-.xP \\$1
-.do check_page_length
-..
-.
 .rn po @O              \" --- local page offset
 .
 .de po                 \" *** page offset
@@ -813,7 +800,6 @@
 ..
 .
 .de @p                 \" --- initialize for paragraph
-.do check_page_length
 .do check_need_title
 .if "\\n(.z"|e" .do @err eqn equation continuation unfulfilled
 .in \\n($iu+\\n(pou
@@ -834,7 +820,6 @@
 .
 .
 .de sh                 \" *** section heading
-.do check_page_length
 .fi
 .do check_need_title
 .if (\\n(si>0)&(\\n(si<1n) \
@@ -973,7 +958,6 @@
 .
 .
 .de 2c                 \" *** double columned output
-.do check_page_length
 .br
 .if \\n($m>1 \
 .      1c\"                            \" revert to 1c if already 2c
@@ -991,7 +975,6 @@
 ..
 .
 .de 1c                 \" *** single columned output
-.do check_page_length
 .br
 .nr $c 1
 .nr $m 1