diff options
author | Hans Hagen <pragma@wxs.nl> | 2009-06-10 11:22:00 +0200 |
---|---|---|
committer | Hans Hagen <pragma@wxs.nl> | 2009-06-10 11:22:00 +0200 |
commit | 1f8c4726d3da14ebb6071bdba5888ebe763329d0 (patch) | |
tree | a25a7aea1d7c9561afbab306db7971eae12dc71b /tex/context/base/math-ini.mkiv | |
parent | 5b6956e57c33bd35c0ac1e4118cdb1b183d77499 (diff) | |
download | context-1f8c4726d3da14ebb6071bdba5888ebe763329d0.tar.gz |
beta 2009.06.10 11:22
Diffstat (limited to 'tex/context/base/math-ini.mkiv')
-rw-r--r-- | tex/context/base/math-ini.mkiv | 53 |
1 files changed, 39 insertions, 14 deletions
diff --git a/tex/context/base/math-ini.mkiv b/tex/context/base/math-ini.mkiv index b87096661..cb5a63440 100644 --- a/tex/context/base/math-ini.mkiv +++ b/tex/context/base/math-ini.mkiv @@ -329,28 +329,53 @@ %D The result is as expected: the first line typesets ok, while the second %D one triggers an error message. -\bgroup +\newtoks\everydonknuthmode +\newtoks\everynonknuthmode + +\def\nonknuthmode{\the\everynonknuthmode\let\nonknuthmode\relax} +\def\donknuthmode{\the\everydonknuthmode} - \ifx\normalsuber\undefined \def\normalsuber{_} \fi - \ifx\normalsuper\undefined \def\normalsuper{^} \fi +\ifdefined\normalsuber\else \def\normalsuber{_} \fi +\ifdefined\normalsuper\else \def\normalsuper{^} \fi + +\bgroup \catcode`_=\active \catcode`^=\active - \gdef\nonknuthmode - {\appendtoks\let_\normalsuber\let^\normalsuper\to\everymathematics - \mathcode`_="8000 - \mathcode`^="8000 - \catcode`_=\@@other - \catcode`^=\@@other - \let\nonknuthmode\relax} - - \gdef\donknuthmode - {\catcode`_=\@@subscript - \catcode`^=\@@superscript} + \global \everynonknuthmode {\appendtoks + \let_\normalsuber + \let^\normalsuper + \to \everymathematics} \egroup +\appendtoks + \mathcode`_="8000 + \mathcode`^="8000 + \catcode`_=\@@other + \catcode`^=\@@other +\to \everynonknuthmode + +\appendtoks + \catcode`_=\@@subscript + \catcode`^=\@@superscript +\to \everydonknuthmode + +\appendtoks + \startextendcatcodetable\ctxcatcodes + \catcode`_=\@@other + \catcode`^=\@@other + \stopextendcatcodetable +\to \everynonknuthmode + +\appendtoks + \startextendcatcodetable\ctxcatcodes + \catcode`_=\@@subscript + \catcode`^=\@@superscript + \stopextendcatcodetable +\to \everydonknuthmode + %D Needed for unicode: \def\nulloperator{\mathortext{\mathop{\null}}{\null}} |