From 5f7974ba1e9eba52a2977d226cd12b19072902a4 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Sun, 12 Jan 2003 17:25:07 +0000
Subject: [PATCH] Copied scsh-paper.t2p from tex2page 4q6b

---
 doc/scsh-paper/scsh-paper.t2p | 44 ++++++++++++++++++++++++-----------
 1 file changed, 31 insertions(+), 13 deletions(-)

diff --git a/doc/scsh-paper/scsh-paper.t2p b/doc/scsh-paper/scsh-paper.t2p
index 8dc5ef2..d8ac574 100644
--- a/doc/scsh-paper/scsh-paper.t2p
+++ b/doc/scsh-paper/scsh-paper.t2p
@@ -16,6 +16,9 @@
 
 \let\PRIMsection\section
 
+\let\subsectionORIG\subsection
+\let\subsubsectionORIG\subsubsection
+
 %\let\PRIMtableofcontents\tableofcontents
 %\def\tableofcontents{\section*{Contents}\PRIMtableofcontents}
 
@@ -50,28 +53,43 @@
 \let\PRIMdocument\document
 
 \def\document{\PRIMdocument
-\def\headingquote#1#2{\eject
+\def\headingquote##1##2{
+\eject
+\TIIPendgraf
 \rawhtml<div align=right><table ><tr><td><em>
 \endrawhtml
-#1
+##1
 \rawhtml</em><br>\endrawhtml
-~~~~~~---#2
+~~~~~~---##2
+\TIIPendgraf
 \rawhtml</td></tr></table></div>\endrawhtml}
 
 \def\section{\def\section{\vfill\eject\PRIMsection}%
 \PRIMsection}
 
-\let\ttchars\relax
-\let\ttt\tt
-\def\cd#1{{\tt\def\\{\char`\\}\defcsactive\${\char`\$}\defcsactive\&{\char`\&}#1}}
-\def\cddollar{\undefcsactive\$}
-\def\ex#1{{\tt #1}}
-\def\l#1{lambda (#1)}
-\def\lx#1{lambda {#1}}
-\def\var#1{{\it #1\/}}
-\def\vari#1#2{\mbox{{\it #1\/}\undefcsactive\$$_{#2}$}}
+%headings.tex redefines \[sub]*section, which
+%emit unwanted output, pointed out by Martin
+%Gasbichler.  Let's therefore restore original
+%definitions for these commands.  
 
-\renewcommand{\proto}[3]{{\tt(#1 {\it #2})} \qquad (#3)}
+\let\subsection\subsectionORIG
+\let\subsubsection\subsubsectionORIG
+
+%\let\ttchars\relax
+\let\ttt\tt
+\def\cd##1{{\tt\def\\{\char`\\}\defcsactive\${\char`\$}%
+\defcsactive\&{\char`\&}##1}}
+\def\cddollar{\undefcsactive\$}
+%\def\ex#1{{\tt #1}}
+\def\l##1{lambda (##1)}
+\def\lx##1{lambda {##1}}
+%\def\var#1{{\it #1\/}}
+\def\vari##1##2{\mbox{\undefcsactive\$${\it
+##1}_{##2}$}}
+%\def\vari#1#2{\mbox{{\it #1\/}\undefcsactive\$$_{#2}$}}
+
+%\renewcommand{\proto}[3]{{\tt(#1 {\it #2})} \qquad (#3)}
+\def\proto##1##2##3{{\tt(##1 {\it ##2})} \qquad (##3)}
 
 \def\setupcode{\tt%
 \def\\{\char`\\}%