Moved register #UNADJUSTED_DOC_LEAD to top of TRAPS macro.

3 files changed, 8 insertions, 1 deletions

diff --git a/contrib/mom/BUGS b/contrib/mom/BUGS
index 7b4841e9..736a759f 100644
--- a/contrib/mom/BUGS
+++ b/contrib/mom/BUGS
@@ -24,6 +24,9 @@ Also, please--no html email.  That, too, gets nuked.
 Version 6
 =========
 
+Endless loop when DOC_LEAD_ADJUST is disabled. 
+---Fixed---
+
 In the case where the list doesn't fit the page, -mom inserts
 an extra page with one word and a warning about "environment stack
 underflow" and then continues on the following page.
diff --git a/contrib/mom/ChangeLog b/contrib/mom/ChangeLog
index 8a707d1e..812e552b 100644
--- a/contrib/mom/ChangeLog
+++ b/contrib/mom/ChangeLog
@@ -1,3 +1,7 @@
+* Fri Feb 11 2011
+
+o Moved register #UNADJUSTED_DOC_LEAD to top of TRAPS macro.
+
 * Fri Nov 19 2010
 
 o Added utility macro, SINGE_SPACE, for PRINTSTYLE TYPEWRITE
diff --git a/contrib/mom/om.tmac b/contrib/mom/om.tmac
index bbd792a5..8ca93754 100644
--- a/contrib/mom/om.tmac
+++ b/contrib/mom/om.tmac
@@ -16507,6 +16507,7 @@ E\\R'#CAP_HEIGHT \\n[.cht]'
 \#   exactly on #B_MARGIN.
 \#
 .MAC TRAPS END
+.    nr #UNADJUSTED_DOC_LEAD \\n[#DOC_LEAD]
 .\" Remove all header/footer traps
 .    if !\\n[#NO_TRAP_RESET] \{\
 .       ch DO_T_MARGIN
@@ -16533,7 +16534,6 @@ E\\R'#CAP_HEIGHT \\n[.cht]'
 .       while \\n[#T_MARGIN]+(\\n[#DOC_LEAD]+\\n+[#DOC_LEAD_ADJ]*\\n[#LINES_PER_PAGE])<=\\n[#DEPTH_TO_B_MARGIN] \{\
 .
 .\}
-.       nr #UNADJUSTED_DOC_LEAD \\n[#DOC_LEAD]
 .       DOC_LEAD \\n[#DOC_LEAD]u+\\n[#DOC_LEAD_ADJ]u
 .\" The "visual" bottom margin is what \n(nl would report on the
 .\" last line before the FOOTER trap is sprung