From 3fb7d767686cebba73a652016a9d9c921d749328 Mon Sep 17 00:00:00 2001
From: wl <wl>
Date: Mon, 5 Jan 2009 10:20:57 +0000
Subject: * tmac/s.tmac (@TS, TE, @EQ, @EN), tmac/an-old.tmac (TS, TE, EQ, EN),
 tmac/e.tmac (TS, TE, EQ, EN): Set line length to a large value if processed
 with -Thtml.

---
 tmac/e.tmac | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'tmac/e.tmac')

diff --git a/tmac/e.tmac b/tmac/e.tmac
index ab13d560..88339949 100644
--- a/tmac/e.tmac
+++ b/tmac/e.tmac
@@ -1060,6 +1060,11 @@
 .do if \\n[need_eo_h]>0 .do DEVTAG-EO-H
 .do nr need_eo_h 0
 .ec
+.if "\*(.T"html" \
+\{\
+.	do nr e-EQ-ll \\n(.l
+.	ll 1000n
+.\}
 .do HTML-IMAGE
 .if !\\n(?e \
 \{\
@@ -1076,6 +1081,8 @@
 .de EN			\" *** equation end
 .br
 .do HTML-IMAGE-END
+.if "\*(.T"html" \
+.	do ll \\n[e-EQ-ll]u
 .ie "\\$1"C" \
 \{\
 .	nr ?e 1
@@ -1128,6 +1135,11 @@
 .\"
 .de TS			\" *** table start
 .sp \\n(bsu
+.if "\*(.T"html" \
+\{\
+.	do nr e-TS-ll \\n(.l
+.	ll 1000n
+.\}
 .do HTML-IMAGE
 .@C 1
 .fi				\" drop into fill mode for text boxes
@@ -1165,6 +1177,8 @@
 .	ch @f \\n(nlu+\n(.Vu
 .ev
 .do HTML-IMAGE-END
+.if "\*(.T"html" \
+.	do ll \\n[e-TS-ll]u
 .sp \\n(bsu+\\n(.Lv-1v
 .re
 ..
-- 
cgit v1.2.1