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-lst.mklx | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

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

diff --git a/tex/context/base/mkxl/strc-lst.mklx b/tex/context/base/mkxl/strc-lst.mklx
index 3fd0e979e..3dc9eb3e9 100644
--- a/tex/context/base/mkxl/strc-lst.mklx
+++ b/tex/context/base/mkxl/strc-lst.mklx
@@ -136,7 +136,7 @@
 
 \permanent\protected\def\structurelistinject[#tag]%
   {\begingroup
-   \edef\currentlist{#tag}%
+   \cdef\currentlist{#tag}%
    \doifelse{\listparameter\c!state}\v!start\strc_lists_inject_yes\strc_lists_inject_nop}
 
 \tolerant\protected\def\strc_lists_inject_nop[#settings]#spacer[#userdata]%
@@ -185,12 +185,12 @@
 
 \protected\def\strc_lists_inject_direct[#tag]% [#settings][#userdata]
   {\begingroup
-   \edef\currentlist{#tag}%
+   \cdef\currentlist{#tag}%
    \strc_lists_inject_yes} % [#settings][#userdata]
 
 \permanent\protected\def\writebetweenlist[#tag]%
   {\begingroup
-   \edef\currentlist{#tag}%
+   \cdef\currentlist{#tag}%
    \doifelse{\namedlistparameter{#tag}\c!state}\v!start
      \strc_lists_write_between_yes
      \strc_lists_write_between_nop}
@@ -203,7 +203,7 @@
 
 \permanent\protected\def\writedatatolist[#tag]%
   {\begingroup
-   \edef\currentlist{#tag}%
+   \cdef\currentlist{#tag}%
    \doifelse{\namedlistparameter{#tag}\c!state}\v!start
      \strc_lists_write_data_to_yes
      \strc_lists_write_data_to_nop}
@@ -220,7 +220,7 @@
 
 \permanent\protected\def\writetolist[#tag]%
   {\begingroup
-   \edef\currentlist{#tag}%
+   \cdef\currentlist{#tag}%
    \doifelse{\namedlistparameter{#tag}\c!state}\v!start
      \strc_lists_write_to_yes
      \strc_lists_write_to_nop}
@@ -278,7 +278,7 @@
 \def\strc_lists_place_indeed#tag#list#settings%
   {\begingroup
    \the\t_lists_every_renderingcleanup % \lettonothing\currentlistentrylocation
-   \edef\currentlist{#tag}%
+   \cdef\currentlist{#tag}%
    \setupcurrentlist[#settings]%
    \the\everystructurelist
  % \doif{\listparameter\c!coupling}\v!on{\startlistreferences{#tag}}%
@@ -343,7 +343,7 @@
 
 \permanent\tolerant\protected\def\placecombinedlist[#tag]#spacer[#settings]% i.e. no list set in settings
   {\begingroup
-   \edef\currentlist{#tag}%
+   \cdef\currentlist{#tag}%
    \setupcurrentlist[#settings]%
    \edef\m_strc_list_alternative{\listparameter\c!alternative}% we only inherit alternative
    \strc_lists_place_indeed{#tag}{\listparameter\c!list}{#settings}%
@@ -533,7 +533,7 @@
 \permanent\protected\def\strclistsentryprocess#tag#method#index#extra% This one is called at the lua end!
   {\clf_pushlist#index\relax
   %\lettonothing\currentlistentrylocation
-   \edef\currentlist      {#tag}%
+   \cdef\currentlist      {#tag}%
    \edef\currentlistmethod{#method}%
    \edef\currentlistindex {#index}%
    \edef\currentlistextra {#extra}%
@@ -578,7 +578,7 @@
 
 \permanent\protected\def\listsymbol[#tag]#number%
   {\begingroup
-   \edef\currentlist{#tag}%
+   \cdef\currentlist{#tag}%
    \def\currentlistentrynumber{#number}% no edef else tag problems
    \currentlistsymbol
    \endgroup}
@@ -1621,7 +1621,7 @@
 
 \permanent\tolerant\protected\def\determinelistcharacteristics[#list]#spacer[#settings]%
   {\begingroup
-   \edef\currentlist{\firststructureelementinlist{#list}}%
+   \cdef\currentlist{\firststructureelementinlist{#list}}%
    \ifempty\currentlist
      \endgroup
      \let\listlength\!!zerocount
-- 
cgit v1.2.3