From 37695d923be3c9825505fb641fdf67fbac2fd518 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Thu, 9 Jan 2003 13:00:17 +0000
Subject: [PATCH] Merges from tex2page 4p6

---
 doc/scsh-manual/man.t2p | 55 +++++++++++++++++++++++------------------
 1 file changed, 31 insertions(+), 24 deletions(-)

diff --git a/doc/scsh-manual/man.t2p b/doc/scsh-manual/man.t2p
index 7e0d2f9..e6a4e80 100644
--- a/doc/scsh-manual/man.t2p
+++ b/doc/scsh-manual/man.t2p
@@ -9,7 +9,7 @@
 % tex2page man
 
 \input css.t2p
-\dontuseimgforhtmlmath
+\htmlmathstyle{no-image}
 
 \let\pagebreak\relax
 
@@ -63,34 +63,41 @@
 
 \imgdef\vdots{\bf.\par.\par.}
 
-\evalh{
+%\evalh{
+%
+%(define all-blanks?
+%  (lambda (s)
+%    (andmap
+%      char-whitespace?
+%      (string->list s))))
+%
+%}
+%
+%
+%\def\spaceifnotempty{\evalh{
+%
+%(let ((x (ungroup (get-token))))
+%  (unless (all-blanks? x)
+%    (emit #\space)))
+%
+%}}
 
-(define all-blanks?
-  (lambda (s)
-    (andmap
-      char-whitespace?
-      (string->list s))))
-
-}
-
-
-\def\spaceifnotempty{\evalh{
-
-(let ((x (ungroup (get-token))))
-  (unless (all-blanks? x)
-    (emit #\space)))
-
-}}
+\def\spaceifnotempty#1{%
+  \def\TEMP{#1}%
+  \ifx\TEMP\empty\else\ \fi}
 
 \def\dfnix#1#2#3#4{\leftline{{\tt(#1\spaceifnotempty{#2}{\it#2})} \quad $\longrightarrow$ \quad {\it #3} \qquad (#4)} \index}
 
-\def\ex#1{{\tt #1}}
+%\def\ex#1{{\tt #1}}
+%\let\ex\texttt
 \def\l#1{lambda (#1)}
 \def\lx#1{lambda {#1}}
 %\def\notenum#1{}
 %\def\project#1{}
-\def\var#1{{\it #1\/}}
-\def\vari#1#2{\mbox{{\it #1\/}\undefcsactive\$$_{#2}$}}
+%\def\var#1{{\it #1\/}}
+%\let\var\textit
+%\def\vari#1#2{\mbox{{\it #1\/}\undefcsactive\$$_{#2}$}}
+%\def\vari#1#2{\textit{#1}$_{#2}$}
 
 \renewenvironment{boxedfigure}{\def\srecomment#1{\\#1\\}%
 \begin{figure}\pagestyle}{\end{figure}}
@@ -103,8 +110,8 @@
 \def\evalto{==> }%
 \defcsactive\%{\%}\obeywhitespace}
 
-\newenvironment{code}{\begin{quote}\bgroup\setupcode\GOBBLEOPTARG}
-{\egroup\end{quote}}
+\newenvironment{code}{\begin{quote}\setupcode\GOBBLEOPTARG}
+{\end{quote}}
 
 \newenvironment{codebox}{\begin{tableplain}\bgroup\setupcode\GOBBLEOPTARG}
 {\egroup\end{tableplain}}
@@ -123,4 +130,4 @@
 \renewenvironment{leftinset}{\begin{quote}}{\end{quote}}
 \renewenvironment{tightinset}{\begin{quote}}{\end{quote}}
 \renewenvironment{tightleftinset}{\begin{quote}}{\end{quote}}
-}
\ No newline at end of file
+}