summaryrefslogtreecommitdiff
path: root/tex/context/base/mkxl/math-rad.mklx
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/mkxl/math-rad.mklx')
-rw-r--r--tex/context/base/mkxl/math-rad.mklx14
1 files changed, 13 insertions, 1 deletions
diff --git a/tex/context/base/mkxl/math-rad.mklx b/tex/context/base/mkxl/math-rad.mklx
index de8c2e9a6..ddd6a0cbb 100644
--- a/tex/context/base/mkxl/math-rad.mklx
+++ b/tex/context/base/mkxl/math-rad.mklx
@@ -90,6 +90,7 @@
\setupmathradical
[\c!alternative=\v!normal,
\c!mpoffset=.25\exheight,
+ \c!strut=\v!height,
\c!source=\zerocount]
\appendtoks
@@ -101,6 +102,14 @@
\setmathignore\Umathradicaldegreebefore\plusone
+\installcorenamespace{mathwhateverstrut}
+
+\defcsname\??mathwhateverstrut\v!height\endcsname{\mathheightstrut}
+\defcsname\??mathwhateverstrut\v!depth \endcsname{\mathdepthstrut}
+\defcsname\??mathwhateverstrut\v!math \endcsname{\mathstrut}
+\defcsname\??mathwhateverstrut\v!yes \endcsname{\strut}
+%letcsname\??mathwhateverstrut\v!no \endcsname\relax
+
\tolerant\protected\def\math_radical_handle#tag#*[#settings]#*[#degree]#:#body%
{\begingroup
\edef\currentmathradical{#tag}%
@@ -113,7 +122,10 @@
\ifempty\currentmathradicaldegree
\let\currentmathradicaldegree\m_math_no_degree
\fi
- \math_radical_alternative{#body}%
+ \math_radical_alternative{%
+ \begincsname\??mathwhateverstrut\mathradicalparameter\c!strut\endcsname
+ #body%
+ }%
\endgroup}
\def\m_math_no_degree{{}}