diff options
Diffstat (limited to 'tex/context/base/mkxl/syst-aux.lmt')
| -rw-r--r-- | tex/context/base/mkxl/syst-aux.lmt | 31 |
1 files changed, 16 insertions, 15 deletions
diff --git a/tex/context/base/mkxl/syst-aux.lmt b/tex/context/base/mkxl/syst-aux.lmt index 2d744e309..39ceae376 100644 --- a/tex/context/base/mkxl/syst-aux.lmt +++ b/tex/context/base/mkxl/syst-aux.lmt @@ -184,20 +184,21 @@ local option = ( local pattern = ( ( spaces * ( - ( P("spaces") * space / catcodes_s ) - + ( P("nospaces") * space / catcodes_n ) - + ( P("global") * space / function() global = true end) - + ( P("protected") * space / function() protected = true end) - + ( P("permanent") * space / function() permanent = true end) - + ( P("expanded") * space / function() expanded = true end) - + ( P("tolerant") * space / function() tolerant = true end) - + ( P("instance") * space / function() instance = true end) - + ( P("frozen") * space / function() frozen = true end) - + ( P("mutable") * space / function() mutable = true end) - + ( P("immutable") * space / function() immutable = true end) - + ( P("unexpanded") * space / function() protected = true end) - + ( option * space / function(s) tolerant = true - optional = s end) + ( P("spaces") * space / catcodes_s ) + + ( P("nospaces") * space / catcodes_n ) + + ( P("global") * space / function() global = true end) + + ( P("protected") * space / function() protected = 1 end) + + ( P("semiprotected") * space / function() protected = 2 end) + + ( P("permanent") * space / function() permanent = true end) + + ( P("expanded") * space / function() expanded = true end) + + ( P("tolerant") * space / function() tolerant = true end) + + ( P("instance") * space / function() instance = true end) + + ( P("frozen") * space / function() frozen = true end) + + ( P("mutable") * space / function() mutable = true end) + + ( P("immutable") * space / function() immutable = true end) + + ( P("unexpanded") * space / function() protected = 1 end) + + ( option * space / function(s) tolerant = true + optional = s end) ) )^0 * spaces * ( C((1-S(" #["))^1) ) @@ -229,7 +230,7 @@ local function texdefinition_two() context ( (tolerant and [[\tolerant]] or "") .. (frozen and [[\frozen]] or "") .. - (protected and [[\protected]] or "") .. + (protected and (protected == 1 and [[\protected]] or [[\semiprotected]]) or "") .. (permanent and [[\permanent]] or "") .. (instance and [[\instance]] or "") .. (mutable and [[\mutable]] or "") .. |