summaryrefslogtreecommitdiff
path: root/tex/context/base/mkxl/strc-sec.mkxl
diff options
context:
space:
mode:
authorHans Hagen <pragma@wxs.nl>2021-02-08 17:58:41 +0100
committerContext Git Mirror Bot <phg@phi-gamma.net>2021-02-08 17:58:41 +0100
commit45e121c1d9414786e677d931101af1357294e9b7 (patch)
tree9a674bf47646bb9b48ea9ec209e7e213e4adc1e1 /tex/context/base/mkxl/strc-sec.mkxl
parent5a7dd5d18ced4a73b05467f208d4c4b0d1afebc0 (diff)
downloadcontext-45e121c1d9414786e677d931101af1357294e9b7.tar.gz
2021-02-08 17:01:00
Diffstat (limited to 'tex/context/base/mkxl/strc-sec.mkxl')
-rw-r--r--tex/context/base/mkxl/strc-sec.mkxl8
1 files changed, 5 insertions, 3 deletions
diff --git a/tex/context/base/mkxl/strc-sec.mkxl b/tex/context/base/mkxl/strc-sec.mkxl
index 863c454a9..50a81610e 100644
--- a/tex/context/base/mkxl/strc-sec.mkxl
+++ b/tex/context/base/mkxl/strc-sec.mkxl
@@ -520,7 +520,7 @@
\pop_macro_currentheadparent
\pop_macro_currenthead}
-\let\currentnamedsection\empty
+\mutable\let\currentnamedsection\empty
\installmacrostack\currentnamedsection
@@ -572,10 +572,12 @@
\newtoks\everydefinesection
+\mutable\let\currentsection\empty % historic alias
+
\permanent\protected\def\definesection[#1]%
{\ifcsname\??headlevel#1\endcsname \else
- \edef\currentsection{#1}% not used, will go
\edef\currenthead{#1}%
+ \let\currentsection\currenthead % just an alias
\global\advance\maxstructuredepth\plusone
\setevalue{\??headlevel#1}{\the\maxstructuredepth}%
\setstructurelevel{#1}{\sectionlevel{#1}}%
@@ -613,7 +615,7 @@
% be part of the parent chain lookup mechanism; it's also
% mkii compatible. Somewhat weird that it's part of the
% top level structure but it will be flattened anyway.
- \let\currenthead\currentsection %
+ % \let\currenthead\currentsection % hm
\setheadparameter\c!textstyle {\directheadparameter\c!style}%
\setheadparameter\c!textcolor {\directheadparameter\c!color}%
\setheadparameter\c!numberstyle{\directheadparameter\c!style}%