summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/ximera/src/suppress.dtx
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}