\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)}
\atdef !{\m@maybe|\@scripts}
\def\returns{\m@maybe\longrightarrow\m@maybe@end\hspace{0.5em}\ignorespaces}
\atdef >{\leavevmode\unskip\hspace{0.5em}\returns}
+\atdef -#1{\if>#1{\ensuremath\rightarrow}\fi}
%% Comment setting.
\atdef ;#1\\{\normalfont\itshape;#1\\}
%% 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%
\endminipage\hskip1ex\egroup\vskip1ex\egroup%
\vrule\egroup\hrule\egroup%
\medskip%
+ \spewnotes%
}
%% Lisp documentation machinery.
\vspace{\bigskipamount}%
\setbox\z@\hbox{\bfseries[\describecategoryname{#2}]}%
\dimen@\linewidth\advance\dimen@-\wd\z@%
- \def\@temp##1 ##2\q@{\message{#2:##1}\label{#2:##1}}%
+ \def\@temp##1 ##2\q@{%
+ \message{#2:##1}%
+ {\def\@uscore####1{-}\edef\@tempb{\noexpand\label{#2:##1}}\@tempb}%
+ }%
\def\@tempa{#1}\ifx\@tempa\q@\@temp#3 \q@\else\@temp{#1} \q@\fi%
\edef\@temp{{\the\linewidth}{@{}p{\the\dimen@}%
@{\extracolsep{\fill}}l@{\extracolsep{0pt}}}}%
\endlist%
}
-%%% ----- That's all, folks --------------------------------------------------
-\endinput
\ No newline at end of file
+%%%----- That's all, folks --------------------------------------------------
+\endinput