summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/supp-mat.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/context/base/supp-mat.tex')
-rw-r--r--Master/texmf-dist/tex/context/base/supp-mat.tex15
1 files changed, 11 insertions, 4 deletions
diff --git a/Master/texmf-dist/tex/context/base/supp-mat.tex b/Master/texmf-dist/tex/context/base/supp-mat.tex
index 3c66566d329..1a51164e676 100644
--- a/Master/texmf-dist/tex/context/base/supp-mat.tex
+++ b/Master/texmf-dist/tex/context/base/supp-mat.tex
@@ -15,7 +15,7 @@
%D a support module. There is nothing spectacular here. It may move
%D back to math-ini.
-\writestatus{loading}{Context Support Macros / Math}
+\writestatus{loading}{ConTeXt Support Macros / Math}
\unprotect
@@ -193,8 +193,15 @@
%D {cramped}
%D
%D \TEX provides no primitive to force in cramped math mode. Here is
-%D a macro that does so. It is based on a solution by Don Knuth (\userul
+%D a macro that does so. It is based on a solution by Don Knuth (\useurl
%D {http://www.ctan.org/tex-archive/digests/tex-implementors/042}).
+%D
+%D \startbuffer
+%D \ruledhbox{$\left\{{x^2\over y^2}\right\}$}
+%D \ruledhbox{$\cramped{\left\{ {x^2\over y^2}\right\}}$}
+%D \stopbuffer
+%D
+%D \typebuffer \getbuffer
\def\cramped
{\mathpalette\docramped}
@@ -209,7 +216,7 @@
% \def\docramped#1#2%
% {\setbox\scratchbox\hbox
% {\nulldelimiterspace\zeropoint
-% $\m@th#1\radical\zerocount{#2}$}%
+% $\mathsurround\zeropoint#1\radical\zerocount{#2}$}%
% \ifx#1\displaystyle
% \scratchdimen\fontdimen8\textfont3
% \advance\scratchdimen .25\fontdimen5\textfont2
@@ -229,7 +236,7 @@
{\begingroup % added HH, made even more cramped
\setbox\scratchbox\hbox
{\nulldelimiterspace\zeropoint
- $\m@th#1\radical\zerocount{#2}$}%
+ $\mathsurround\zeropoint#1\radical\zerocount{#2}$}%
\ht\scratchbox-\dimexpr
\ifx#1\displaystyle
\fontdimen8\textfont3