summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/lang-lab.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/context/base/lang-lab.tex')
-rw-r--r--Master/texmf-dist/tex/context/base/lang-lab.tex14
1 files changed, 8 insertions, 6 deletions
diff --git a/Master/texmf-dist/tex/context/base/lang-lab.tex b/Master/texmf-dist/tex/context/base/lang-lab.tex
index 350ae2dfcef..38af4f78375 100644
--- a/Master/texmf-dist/tex/context/base/lang-lab.tex
+++ b/Master/texmf-dist/tex/context/base/lang-lab.tex
@@ -48,16 +48,16 @@
\def\setuplabeltext{\dosetupsometextprefix[\c!label]}
\def\dosetupsometextprefix
- {\let\dodocommando\xdosetupsometextprefix
+ {\let\dodocommand\xdosetupsometextprefix
\dotripleempty\dodosetupsometextprefix}
\def\dodosetupsometextprefix[#1][#2][#3]%
{\ifthirdargument
- \def\docommando##1{\dodocommando[#1#2][##1]}%
- \processcommalist[#3]\docommando
+ \def\docommand##1{\dodocommand[#1#2][##1]}%
+ \processcommalist[#3]\docommand
\else
- \def\docommando##1{\dodocommando[#1\currentmainlanguage][##1]}%
- \processcommalist[#2]\docommando
+ \def\docommand##1{\dodocommand[#1\currentmainlanguage][##1]}%
+ \processcommalist[#2]\docommand
\fi}
\def\doassignsometextprefix[#1][#2,#3,#4]%
@@ -99,6 +99,8 @@
\def\labellanguage{\defaultlanguage\currentmainlanguage}
\def\headlanguage {\defaultlanguage\currentmainlanguage}
+\appendtoks \let\labellanguage\currentlanguage \to \everycurrentdate
+
\unexpanded\def\headtext
{\let\handletextprefix\firstoftwoarguments
\let\reporttextprefixerror\doreporttextprefixerror
@@ -216,7 +218,7 @@
{\ifundefined{#1#2}\doassignsometextprefix[#1#2][#3,,]\fi}
\def\dopresetsometextprefix
- {\let\dodocommando\xdopresetsometextprefix
+ {\let\dodocommand\xdopresetsometextprefix
\dotripleempty\dodosetupsometextprefix}
\def\presetheadtext {\dopresetsometextprefix[\c!title]}