From e9ccab5308d2b6fec79e36c355c03aad4e1e5dec Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Sun, 4 Jun 2023 19:46:50 +0200
Subject: 2023-06-04 16:40:00

---
 tex/context/base/mkxl/strc-sec.mkxl | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'tex/context/base/mkxl/strc-sec.mkxl')

diff --git a/tex/context/base/mkxl/strc-sec.mkxl b/tex/context/base/mkxl/strc-sec.mkxl
index 09d742e56..62da581a1 100644
--- a/tex/context/base/mkxl/strc-sec.mkxl
+++ b/tex/context/base/mkxl/strc-sec.mkxl
@@ -506,7 +506,7 @@
 \permanent\protected\def\doredefinehead#1#2% called at lua end
   {\push_macro_currenthead
    \push_macro_currentheadparent
-   \edef\currenthead{#1}%
+   \cdef\currenthead{#1}%
    \edef\currentheadparent{#2}%
    \the\everyredefinehead\relax
    \pop_macro_currentheadparent
@@ -568,7 +568,7 @@
 
 \permanent\protected\def\definesection[#1]%
   {\ifcsname\??headlevel#1\endcsname \else
-     \edef\currenthead{#1}%
+     \cdef\currenthead{#1}%
      \let\currentsection\currenthead % just an alias
      \global\advanceby\maxstructuredepth\plusone
      \edefcsname\??headlevel#1\endcsname{\the\maxstructuredepth}%
@@ -589,9 +589,9 @@
 \permanent\tolerant\protected\def\setupsection[#1]#*[#2]#*[#3]%
   {\ifparameter#1\else
      \push_macro_currenthead
-     \edef\currenthead{\ifcsname\??headlevel#1\endcsname#1\else\sectionheadsection{#1}\fi}%
+     \cdef\currenthead{\ifcsname\??headlevel#1\endcsname#1\else\sectionheadsection{#1}\fi}%
      \ifparameter#3\or
-       \edef\currenthead{\currenthead#2}% not used at any more in mkiv (sets now)
+       \cdef\currenthead{\currenthead#2}% not used at any more in mkiv (sets now)
        \setupcurrenthead[#3]%
      \else
        \setupcurrenthead[#2]%
@@ -867,7 +867,7 @@
    \begingroup
    \enforced\permanent\protected\def\\{\space}% messy here, but the default (and needs to be grouped)
    \global\settrue\headisdisplay % triggers interlinespace checking
-   \edef\currenthead{#1}% maybe only when #1 is given
+   \cdef\currenthead{#1}% maybe only when #1 is given
    \strc_rendering_initialize_style_and_color\c!textstyle\c!textcolor
    \relax
    \getspecificstructuretitle{\thenamedheadlevel{#1}}%
@@ -878,7 +878,7 @@
   {\dontleavehmode
    \begingroup
    \global\settrue\headisdisplay % triggers interlinespace checking
-   \edef\currenthead{#1}% maybe only when #1 is given
+   \cdef\currenthead{#1}% maybe only when #1 is given
    \strc_rendering_initialize_style_and_color\c!numberstyle\c!numbercolor
    \relax
    \getfullstructurenumber{\thenamedheadlevel{#1}}%
@@ -1318,7 +1318,7 @@
 \permanent\tolerant\protected\def\someheadnumber[#1]#*[#2]%
   {\dontleavehmode
    \begingroup
-   \edef\currenthead{#1}%
+   \cdef\currenthead{#1}%
    \getsomefullstructurenumber{\thenamedheadlevel{#1}}{#2}%
    \endgroup}
 
-- 
cgit v1.2.3