blob: dcdcf924d197c16b88b2e51eb718d2b19bba9dcb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
% \subsubsection{Suppress}
% \DescribeEnv{suppress}{The suppress environment is a good way to suppress output without
% commenting it. This way we can avoid many of the places we use
% environ package and this should also avoid most of the verbatim
% conflicts.}
% This is code adapted from |syntonly.sty|.
% \begin{macrocode}
%<*classXimera>
\font\dummyft@=dummy \relax
\def\suppress{%
\begingroup\par
\parskip\z@
\offinterlineskip
\baselineskip=\z@skip
\lineskip=\z@skip
\lineskiplimit=\maxdimen
\dummyft@
\count@\sixt@@n
\loop\ifnum\count@ >\z@
\advance\count@\m@ne
\textfont\count@\dummyft@
\scriptfont\count@\dummyft@
\scriptscriptfont\count@\dummyft@
\repeat
\let\selectfont\relax
\let\mathversion\@gobble
\let\getanddefine@fonts\@gobbletwo
\tracinglostchars\z@
\frenchspacing
\hbadness\@M}
\def\endsuppress{\par\endgroup}
%</classXimera>
% \end{macrocode}
|