? float_fixes.patch
Index: om.tmac
===================================================================
RCS file: /sources/groff/groff/contrib/mom/om.tmac,v
retrieving revision 1.75
diff -u -r1.75 om.tmac
--- om.tmac	4 Sep 2013 02:20:11 -0000	1.75
+++ om.tmac	12 Sep 2013 20:16:05 -0000
@@ -15891,17 +15891,15 @@
 .             sp
 .          \}
 .          el \{\
-.             ie \\n[#FORCE] \{\
+.             if !\\n[defer] .nr defer 0 1
+.             rn FLOAT*DIV FLOAT*DIV:\\n+[defer]
+.             if \\n[D-float] .nr D-float:\\n[defer] \\n[D-float]
+.             nr float-depth:\\n[defer] \\n[dn]
+.             if \\n[#FORCE] \{\
 .                NEWPAGE
 .                rr #FORCE
 .             \}
-.             el \{\
-.                if !\\n[defer] .nr defer 0 1
-.                rn FLOAT*DIV FLOAT*DIV:\\n+[defer]
-.                if \\n[D-float] .nr D-float:\\n[defer] \\n[D-float]
-.                nr float-depth:\\n[defer] \\n[dn]
-.                return \" output div after header
-.             \}
+.             return \" output div after header
 .          \}
 .       \}
 .       sp 0\\*[float-adj:top]\\*[float-adj]
@@ -15934,6 +15932,7 @@
 .       rm float-adj
 .       rm float-adj:top
 .       rm float-adj:bottom
+.       rr #FORCE
 .    \}
 .END
 \#