\!: Save and restore this for @tex.

From: Jean-Pierre Moreau <jpmoreau@ciframedical.com>
Date: Fri, 22 Aug 1997 16:47:36 -0400
This commit is contained in:
Karl Berry 1998-02-24 23:05:08 +00:00
parent 04c488df1c
commit aa9ec7c2c7

View file

@ -54,7 +54,8 @@
\let\ptexdot=\. \let\ptexdot=\.
\let\ptexdots=\dots \let\ptexdots=\dots
\let\ptexend=\end \let\ptexend=\end
\let\ptexequiv = \equiv \let\ptexequiv=\equiv
\let\ptexexclam=\!
\let\ptexi=\i \let\ptexi=\i
\let\ptexlbrace=\{ \let\ptexlbrace=\{
\let\ptexrbrace=\} \let\ptexrbrace=\}
@ -3517,30 +3518,35 @@ width0pt\relax} \fi
% But \@ or @@ will get a plain tex @ character. % But \@ or @@ will get a plain tex @ character.
\def\tex{\begingroup \def\tex{\begingroup
\catcode `\\=0 \catcode `\{=1 \catcode `\}=2 \catcode `\\=0 \catcode `\{=1 \catcode `\}=2
\catcode `\$=3 \catcode `\&=4 \catcode `\#=6 \catcode `\$=3 \catcode `\&=4 \catcode `\#=6
\catcode `\^=7 \catcode `\_=8 \catcode `\~=13 \let~=\tie \catcode `\^=7 \catcode `\_=8 \catcode `\~=13 \let~=\tie
\catcode `\%=14 \catcode `\%=14
\catcode 43=12 % plus \catcode 43=12 % plus
\catcode`\"=12 \catcode`\"=12
\catcode`\==12 \catcode`\==12
\catcode`\|=12 \catcode`\|=12
\catcode`\<=12 \catcode`\<=12
\catcode`\>=12 \catcode`\>=12
\escapechar=`\\ \escapechar=`\\
% %
\let\,=\ptexcomma \let\b=\ptexb
\let\{=\ptexlbrace \let\bullet=\ptexbullet
\let\}=\ptexrbrace \let\c=\ptexc
\let\.=\ptexdot \let\,=\ptexcomma
\let\*=\ptexstar \let\.=\ptexdot
\let\dots=\ptexdots \let\dots=\ptexdots
\def\endldots{\mathinner{\ldots\ldots\ldots\ldots}}% \let\equiv=\ptexequiv
\def\enddots{\relax\ifmmode\endldots\else$\mathsurround=0pt \endldots\,$\fi}% \let\!=\ptexexclam
\def\@{@}% \let\i=\ptexi
\let\bullet=\ptexbullet \let\{=\ptexlbrace
\let\b=\ptexb \let\c=\ptexc \let\i=\ptexi \let\t=\ptext \let\}=\ptexrbrace
% \let\*=\ptexstar
\let\t=\ptext
%
\def\endldots{\mathinner{\ldots\ldots\ldots\ldots}}%
\def\enddots{\relax\ifmmode\endldots\else$\mathsurround=0pt \endldots\,$\fi}%
\def\@{@}%
\let\Etex=\endgroup} \let\Etex=\endgroup}
% Define @lisp ... @endlisp. % Define @lisp ... @endlisp.