X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/2b84abb596f52ab2068d52108adc96838ad4340a..31cef89cb428866f787983e68246030321893df4:/usr/lib/me/src/eqn.me

diff --git a/usr/lib/me/src/eqn.me b/usr/lib/me/src/eqn.me
index 0794e2cf2b..5fcb3c3df4 100644
--- a/usr/lib/me/src/eqn.me
+++ b/usr/lib/me/src/eqn.me
@@ -1,6 +1,7 @@
 .nr _0 \n(c.
-.\" This version has had comments stripped; an unstripped version is available.
-.de EQ
+.\"	@(#)eqn.me	2.1	8/18/80
+.\"	%beginstrip%
+.de EQ			\" *** equation start
 .ec
 .if !\\n(?e \
 \{\
@@ -13,7 +14,7 @@
 .in 0
 .nf
 ..
-.de EN
+.de EN			\" *** equation end
 .br
 .ie "\\$1"C" \
 \{\
@@ -25,7 +26,7 @@
 .	nr ?e 0
 .	di
 .	if \\n(dn \
-.		@q
+.		@q		\" actual equation output
 .	rm |e
 .	rm 10
 .	rm 11
@@ -44,11 +45,11 @@
 .	ev
 .\}
 ..
-.de @q
+.de @q			\" --- equation output
 .nr _Q \\n(dnu
 .ev
-.sp \\n(esu
-.@C 2
+.sp \\n(esu			\" output rest of preceeding text
+.@C 2				\" .ev 2 may be jumbled from header
 .ie \\n(_d=1 \
 .	in (\\n(.lu+\\n($iu-\\n(dlu)/2u
 .el .ie \\n(_d=2 \
@@ -58,8 +59,9 @@
 .el .if \\n(_d=4 \
 .	in 0
 .if !"\\n(.z"" \!.ne \\n(_Qu
-.ne \\n(_Qu+\n(.Vu
+.ne \\n(_Qu+\n(.Vu		\" keep it on one page
 .mk _q
+.if \n@>1 .tm --@e: _Q=\\n(_Q _q=\\n(_q nl=\\n(nl |p=\\*(|p
 .if !"\\*(|p"" \
 \{\
 .	rs