summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/math-pln.mkiv
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/context/base/math-pln.mkiv')
-rw-r--r--Master/texmf-dist/tex/context/base/math-pln.mkiv53
1 files changed, 21 insertions, 32 deletions
diff --git a/Master/texmf-dist/tex/context/base/math-pln.mkiv b/Master/texmf-dist/tex/context/base/math-pln.mkiv
index ab584f10a32..6deac5efb9e 100644
--- a/Master/texmf-dist/tex/context/base/math-pln.mkiv
+++ b/Master/texmf-dist/tex/context/base/math-pln.mkiv
@@ -59,8 +59,8 @@
\cleaders\hbox{$\mkern-2mu\smash-\mkern-2mu$}\hfill
\mkern-7mu\smash-$}
-\let\sp=^ % will become obsolete
-\let\sb=_ % will become obsolete
+% \let\sp=^ % obsolete
+% \let\sb=_ % obsolete
\ifx\,\undefined \def\,{\mskip \thinmuskip } \fi
\ifx\>\undefined \def\>{\mskip \medmuskip } \fi
@@ -68,27 +68,27 @@
\ifx\!\undefined \def\!{\mskip-\thinmuskip } \fi
\ifx\*\undefined \def\*{\discretionary{\thinspace\the\textfont2\char2}{}{}} \fi
-% {\catcode`\'=\active \gdef'{^\bgroup\prim@s}}
+{ \catcode\circumflexasciicode\othercatcode \global\let\othercircumflextoken ^ }
+{ \catcode\circumflexasciicode\superscriptcatcode \global\let\superscriptcircumflextoken^ }
-\def\activemathquote{^\bgroup\prim@s}
+\def\domathprime{^\bgroup\dodomathprime}
-\def\prim@s
- {\prime\futurelet\next\pr@m@s}
+\def\dodomathprime
+ {\prime\futurelet\nexttoken\dododomathprime}
-\def\pr@m@s
- {\ifx'\next
- \@EA\pr@@@s
- \else\ifx^\next
- \@EAEAEA\pr@@@t
- \else
- \@EAEAEA\egroup
- \fi\fi}
+\def\dododomathprime
+ {\csname domathprime@%
+ \ifx '\nexttoken a\else
+ \ifx\superscriptcircumflextoken\nexttoken b\else
+ \ifx\othercircumflextoken \nexttoken b\else
+ c\fi\fi\fi
+ \endcsname}
-\def\pr@@@s#1%
- {\prim@s}
+\def\domathprime@a #1{\dodomathprime}
+\def\domathprime@b#1#2{#2\egroup}
+\def\domathprime@c {\egroup}
-\def\pr@@@t#1#2%
- {#2\egroup}
+\let\activemathprime\domathprime
% {\catcode`\_=\active \global\let_=\_} % _ in math is either subscript or \_
@@ -173,7 +173,7 @@
\right.}
\def\matrix#1%
- {\null
+ {\emptyhbox
\,%
\vcenter
{\normalbaselines\mathsurround\zeropoint
@@ -206,7 +206,7 @@
{$\kern\wd\plusone\kern-\mathparentwd\left(\kern-\wd\plusone
\global\setbox\plusone\vbox{\box\plusone\kern2\points}%
\vcenter{\kern-\ht\plusone\unvbox\zerocount\kern-\baselineskip}\,\right)$}%
- \null
+ \emptyhbox
\;%
\vbox{\kern\ht\plusone\box\plustwo}%
\endgroup}
@@ -230,7 +230,7 @@
\def\displayopenupvalue{.25\bodyfontsize}
\def\eqalign#1%
- {\null
+ {\emptyhbox
\,%
\vcenter
{\openup\displayopenupvalue % was \openup\jot
@@ -282,17 +282,6 @@
% \appendtoks \setcatcodetable\mthcatcodes \to \everymath : spoils xml
-% tricky, but some day we will reimplement math
-
-\bgroup
- \catcode`\_ = 13
- \catcode`\' = 13
- \doglobal\appendtoks
- \let_\activemathunderscore
- \let'\activemathquote
- \to \everymathematics
-\egroup
-
% so far
\protect \endinput