* 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.

5 files changed, 47 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index 61205164..d3b546ab 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2009-01-05  Werner LEMBERG  <wl@gnu.org>
+
+	* 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.
+
 2009-01-04  Werner LEMBERG  <wl@gnu.org>
 
 	* tmac/www.tmac (TS, TE, EQ, EN): Set line length to a large value
diff --git a/tmac/an-old.tmac b/tmac/an-old.tmac
index 9a56149c..a256fd36 100644
--- a/tmac/an-old.tmac
+++ b/tmac/an-old.tmac
@@ -598,6 +598,10 @@
 .
 .de1 TS
 .  sp \\n[PD]u
+.  if \\n[an-html] \{\
+.    nr an-TS-ll \\n[.l]
+.    ll 1000n
+.  \}
 .  HTML-IMAGE
 ..
 .
@@ -606,14 +610,22 @@
 .
 .de1 TE
 .  HTML-IMAGE-END
+.  if \\n[an-html] \
+.    ll \\n[an-TS-ll]u
 ..
 .
 .\" dummy equation delimiters
 .de1 EQ
+.  if \\n[an-html] \{\
+.    nr an-EQ-ll \\n[.l]
+.    ll 1000n
+.  \}
 .  HTML-IMAGE
 ..
 .de1 EN
 .  HTML-IMAGE-END
+.  if \\n[an-html] \
+.    ll \\n[an-EQ-ll]u
 ..
 .
 .de1 R
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
 ..
diff --git a/tmac/s.tmac b/tmac/s.tmac
index 602ed23c..bbfe996c 100644
--- a/tmac/s.tmac
+++ b/tmac/s.tmac
@@ -3,7 +3,8 @@
 
 s.tmac
 
-Copyright (C) 1989, 1990, 1991, 1992, 2001, 2002, 2003, 2004, 2006, 2007
+Copyright (C) 1989, 1990, 1991, 1992, 2001, 2002, 2003, 2004, 2006, 2007,
+              2009
   Free Software Foundation, Inc.
      Written by James Clark (jjc@jclark.com)
 
@@ -1694,6 +1695,10 @@ along with this program. If not, see <http://www.gnu.org/licenses/>.
 .\}
 .di eqn*div
 .in 0
+.if '\*(.T'html' \{\
+.	nr eqn*ll \\n[.l]
+.	ll 1000n
+.\}
 .if \\n[eqn*type]=0 .EQN-HTML-IMAGE-LEFT
 .if \\n[eqn*type]=1 \{\
 .   if '\*(.T'html' .RS
@@ -1759,6 +1764,8 @@ along with this program. If not, see <http://www.gnu.org/licenses/>.
 .		if '\*(.T'html' .RE
 .	\}
 .	if \\n[eqn*type]=2 .EQN-HTML-IMAGE-END
+.	if '\*(.T'html' \
+.		ll \\n[eqn*ll]u
 .\}
 ..
 .
@@ -1776,6 +1783,10 @@ along with this program. If not, see <http://www.gnu.org/licenses/>.
 .de @TS
 .sp \\n[DD]u
 .if '\\$1'H' .di tbl*header-div
+.if '\*(.T'html' \{\
+.	nr tbl*ll \\n[.l]
+.	ll 1000n
+.\}
 .HTML-IMAGE
 ..
 .de tbl@top-hook
@@ -1821,6 +1832,8 @@ along with this program. If not, see <http://www.gnu.org/licenses/>.
 .       if !'\*(.T'html' .sp \\n[DD]u
 .\}
 .HTML-IMAGE-END
+.if '\*(.T'html' \
+.	ll \\n[tbl*ll]u
 .\" reset tabs
 .TA
 ..
diff --git a/tmac/www.tmac b/tmac/www.tmac
index b9d2d113..2c6ddd20 100644
--- a/tmac/www.tmac
+++ b/tmac/www.tmac
@@ -10,7 +10,7 @@ Installed position: groff's main macro directory.
 
 This file is part of groff, the GNU roff type-setting system.
 
-Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2008
+Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2008, 2009
   Free Software Foundation, Inc.
 written by Gaius Mulley <gaius@glam.ac.uk>, with additions by
 Werner Lemberg <wl@gnu.org> and Bernd Warken <bwarken@mayn.de>.