diff options
author | Hans Hagen <pragma@wxs.nl> | 2022-09-10 03:48:41 +0200 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2022-09-10 03:48:41 +0200 |
commit | 809177a0640771ac59eb13a1b52c91acb644e3a1 (patch) | |
tree | 8c616d0045d905f78555d5be9bdd9285bddac42d /tex/context/base/mkxl/math-fen.mkxl | |
parent | 0a51e22e296356871498d2925dff025680be8779 (diff) | |
download | context-809177a0640771ac59eb13a1b52c91acb644e3a1.tar.gz |
2022-09-10 02:44:00
Diffstat (limited to 'tex/context/base/mkxl/math-fen.mkxl')
-rw-r--r-- | tex/context/base/mkxl/math-fen.mkxl | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/tex/context/base/mkxl/math-fen.mkxl b/tex/context/base/mkxl/math-fen.mkxl index aeed32fcf..5dd7ee118 100644 --- a/tex/context/base/mkxl/math-fen.mkxl +++ b/tex/context/base/mkxl/math-fen.mkxl @@ -270,11 +270,32 @@ \aliased\let\fence \relax \aliased\let\fenced\relax +\protected\def\math_fenced_middle_bar {\mfence |\relax} +\protected\def\math_fenced_middle_colon{\mfence :\relax} +\protected\def\math_fenced_middle_comma{\mathatom \s!leftclass \mathpunctuationcode \s!rightclass \mathmiddlecode {,}} + +\startsetups math:fence:set:bar + \aliased\let\suchthat\math_fenced_middle_bar + \aliased\let\where \math_fenced_middle_comma + \aliased\let\and \math_fenced_middle_comma +\stopsetups + +\startsetups math:fence:set:colon + \aliased\let\suchthat\math_fenced_middle_colon + \aliased\let\where \math_fenced_middle_comma + \aliased\let\and \math_fenced_middle_comma +\stopsetups + +\startsetups math:fence:set + \directsetup{math:fence:set:bar} +\stopsetups + \protected\def\math_fenced_middle_common {\math_fenced_middle} % redefined inside atom \protected\def\math_fenced_fenced_common {\startusemathstyleparameter\mathfenceparameter\c!mathstyle + \usesetupsparameter\mathfenceparameter \enforced\let\fence\math_fenced_middle_common} \protected\def\math_fenced_fenced_start#1% @@ -604,7 +625,7 @@ \math_fenced_common\Uright\c!rightclass\math_fenced_x_p_right\c!rightsource \advance\c_math_fence_nesting\minusone} -\def\math_fenced_x_middle_normal +\def\math_fenced_x_middle {\math_fenced_common\Umiddle\c!middleclass\math_fenced_x_p_middle\c!middlesource} % the expandafter permits \left\Uchar... |