X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/780dfb99b08e565eeeb5d94d4d8fd0604b8c54d0..f1f17867ed7a610cc19c3c6378b165a65f35c320:/doc/sod.sty

diff --git a/doc/sod.sty b/doc/sod.sty
index 2894feb..ff63620 100644
--- a/doc/sod.sty
+++ b/doc/sod.sty
@@ -41,6 +41,16 @@
 \let\implies\Rightarrow
 \let\epsilon\varepsilon
 
+%% A table heading cell.  Clone and hack \multicolumn.
+\def\thd{\omit\@ifnextchar[\thd@{\thd@[l]}}
+\def\thd@[#1]#2{%
+  \begingroup
+    \tab@multicol \tab@initread \let\tab@looped\tab@err@multi
+    \tab@preamble{}\def\tab@midtext{\bfseries#2}\tab@readpreamble{#1}%
+    \the\tab@preamble
+  \endgroup \ignorespaces
+}
+
 %% Unix manpage references.
 \def\man#1#2{\textbf{#1}(#2)}
 
@@ -117,6 +127,7 @@
 
 %% Put a chunk of text in a box.
 \newenvironment{boxy}[1][\q@]{%
+  \savenotes
   \dimen@\linewidth\advance\dimen@-1.2pt\advance\dimen@-2ex%
   \medskip%
   \vbox\bgroup\hrule\hbox\bgroup\vrule%
@@ -126,6 +137,7 @@
   \endminipage\hskip1ex\egroup\vskip1ex\egroup%
   \vrule\egroup\hrule\egroup%
   \medskip%
+  \spewnotes%
 }
 
 %% Lisp documentation machinery.
@@ -168,5 +180,5 @@
   \endlist%
 }
 
-%%% ----- That's all, folks --------------------------------------------------
-\endinput
\ No newline at end of file
+%%%----- That's all, folks --------------------------------------------------
+\endinput
