diff options
Diffstat (limited to 'tex/context/base/mkiv/lang-ini.mkiv')
| -rw-r--r-- | tex/context/base/mkiv/lang-ini.mkiv | 37 |
1 files changed, 16 insertions, 21 deletions
diff --git a/tex/context/base/mkiv/lang-ini.mkiv b/tex/context/base/mkiv/lang-ini.mkiv index 214ce8ca3..4e6b203ad 100644 --- a/tex/context/base/mkiv/lang-ini.mkiv +++ b/tex/context/base/mkiv/lang-ini.mkiv @@ -24,6 +24,7 @@ \registerctxluafile{lang-ini}{1.001} \registerctxluafile{lang-def}{1.001} +\registerctxluafile{lang-cnt}{1.001} \unprotect @@ -458,6 +459,7 @@ {\currentlanguage}% {\defaultlanguage\currentlanguage}% {\languageparameter\s!patterns}% + {\languageparameter\c!factor}% \relax \normallanguage\csname\??languagenumbers\currentlanguage\endcsname} @@ -583,36 +585,26 @@ %D Fast switcher -% \def\lang_basics_switch_asked -% {\ifx\askedlanguage\empty \else -% \ifcsname\??languagelinked\askedlanguage\endcsname -% \edef\askedlanguage{\csname\??languagelinked\askedlanguage\endcsname}% -% \ifx\currentlanguage\askedlanguage \else -% \setcurrentlanguage\currentmainlanguage\askedlanguage -% \lang_basics_synchronize -% \fi -% \fi -% \fi} - \def\lang_basics_switch_asked - {\ifx\askedlanguage\empty \else - \ifcsname\??languagelinked\askedlanguage\endcsname - %\edef\askedlanguage{\csname\??languagelinked\askedlanguage\endcsname}% - \edef\askedlanguage{\lastnamedcs}% - \ifx\currentlanguage\askedlanguage \else - \setcurrentlanguage\currentmainlanguage\askedlanguage - \lang_basics_synchronize - \fi + {\ifcsname\??languagelinked\askedlanguage\endcsname + \edef\askedlanguage{\lastnamedcs}% + \ifx\currentlanguage\askedlanguage \else + \setcurrentlanguage\currentmainlanguage\askedlanguage + \lang_basics_synchronize \fi \fi} \unexpanded\def\uselanguageparameter#1% {\edef\askedlanguage{#1\c!language}% - \lang_basics_switch_asked} + \ifx\askedlanguage\empty\else\lang_basics_switch_asked\fi} + +\unexpanded\def\douselanguageparameter#1% fast setter + {\edef\askedlanguage{#1}% + \ifx\askedlanguage\empty\else\lang_basics_switch_asked\fi} \unexpanded\def\lang_basics_set_current[#1]% {\edef\askedlanguage{#1}% - \lang_basics_switch_asked} + \ifx\askedlanguage\empty\else\lang_basics_switch_asked\fi} \unexpanded\def\language {\doifelsenextoptionalcs\lang_basics_set_current\normallanguage} @@ -809,6 +801,9 @@ \clf_setlanguageexceptions{\askedlanguage}{#2}% \endgroup} +\unexpanded\def\hyphenation + {\clf_setlanguageexceptions{\currentlanguage}} + %D For the moment here: \uchyph 1 % also treat uppercase |