summaryrefslogtreecommitdiff
path: root/tex/context/base/math-pln.tex
diff options
context:
space:
mode:
authorHans Hagen <pragma@wxs.nl>2007-01-09 20:04:00 +0100
committerHans Hagen <pragma@wxs.nl>2007-01-09 20:04:00 +0100
commit18fb36ed7ca387bd1947a4e811e0f7c3cc0cfde7 (patch)
tree71a122e17a66c53196b9b141289bb0e2e72f158d /tex/context/base/math-pln.tex
parentdf357eceacf49ab989db1882e5b788a51c6039e1 (diff)
downloadcontext-18fb36ed7ca387bd1947a4e811e0f7c3cc0cfde7.tar.gz
stable 2007.01.09 20:04
Diffstat (limited to 'tex/context/base/math-pln.tex')
-rw-r--r--tex/context/base/math-pln.tex41
1 files changed, 3 insertions, 38 deletions
diff --git a/tex/context/base/math-pln.tex b/tex/context/base/math-pln.tex
index d9dfd3445..f0b4f440e 100644
--- a/tex/context/base/math-pln.tex
+++ b/tex/context/base/math-pln.tex
@@ -16,7 +16,8 @@
\unprotect
-\def\m@th{\mathsurround\z@}
+\ifx\displ@y\unefined \let\displ@y\relax\fi
+\ifx\m@th \unefined \let\m@th \relax\fi
\newbox\rootbox
@@ -47,16 +48,11 @@
{\lineskiplimit-\maxdimen
\oalign}
-{\catcode`p=12 \catcode`t=12 \gdef\\#1pt{#1}} \let\getf@ctor=\\
-
\def\sh@ft#1% kern by #1 times the current slant
{\dimen@#1%
- \kern\expandafter\getf@ctor\the\slantperpoint
+ \kern\expandafter\withoutpt\the\slantperpoint
\dimen@}
-% \def\copyright % will be overloaded
-% {{\ooalign{\hfil\raise.07ex\hbox{c}\hfil\crcr\Orb}}}
-
\def\dots
{\relax\ifmmode\ldots\else$\m@th\ldots\,$\fi}
@@ -93,8 +89,6 @@
\bracelu\leaders\vrule\!!height\ht\z@\!!depth\z@\hfill\bracerd
\braceld\leaders\vrule\!!height\ht\z@\!!depth\z@\hfill\braceru$}
-\ifx\bye\undefined \def\bye{\par\vfill\supereject\end} \fi
-
\let\sp=^ % will become obsolete
\let\sb=_ % will become obsolete
@@ -111,18 +105,6 @@
\def\prim@s
{\prime\futurelet\next\pr@m@s}
-% \def\pr@m@s
-% {\ifx'\next
-% \let\nxt\pr@@@s
-% \else
-% \ifx^\next
-% \let\nxt\pr@@@t
-% \else
-% \let\nxt\egroup
-% \fi
-% \fi
-% \nxt}
-
\def\pr@m@s
{\ifx'\next
\@EA\pr@@@s
@@ -313,23 +295,6 @@
#1\crcr}}%
\,}
-\newif\ifdt@p
-
-\def\displ@y
- {\global\dt@ptrue
- \openup\displayopenupvalue % was \openup\jot
- \everycr
- {\noalign
- {\ifdt@p
- \global\dt@pfalse
- \ifdim\prevdepth>-1000\p@
- \vskip-\lineskiplimit
- \vskip\normallineskiplimit
- \fi
- \else
- \penalty\interdisplaylinepenalty
- \fi}}}
-
\def\@lign % restore inside \displ@y
{\tabskip\z@skip
\everycr{}}