From 25189e3e127302b7a2bd3781ee4b5de1e366491b Mon Sep 17 00:00:00 2001
From: Luigi Scarso <luigi.scarso@gmail.com>
Date: Tue, 27 Dec 2022 15:17:34 +0100
Subject: [PATCH] =?UTF-8?q?Make=20disc=20node=20prev.=20pointers=20more=20?=
 =?UTF-8?q?uniform=20(M.Kr=C3=BCger)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 source/texk/web2c/luatexdir/ChangeLog           | 3 +++
 source/texk/web2c/luatexdir/lang/texlang.c      | 7 +------
 source/texk/web2c/luatexdir/luatex_svnversion.h | 2 +-
 3 files changed, 5 insertions(+), 7 deletions(-)

diff --git a/source/texk/web2c/luatexdir/ChangeLog b/source/texk/web2c/luatexdir/ChangeLog
index 86482ca20..8a0a4abc0 100644
--- a/source/texk/web2c/luatexdir/ChangeLog
+++ b/source/texk/web2c/luatexdir/ChangeLog
@@ -1,3 +1,6 @@
+2022-12-03  Luigi Scarso <luigi.scarso@gmail.com> 
+    * Make disc node prev. pointers more uniform (M.Krüger)
+
 2022-11-20  Luigi Scarso <luigi.scarso@gmail.com> 
     * set \variablefam = -1 as initial value (H.Hagen).
 
diff --git a/source/texk/web2c/luatexdir/lang/texlang.c b/source/texk/web2c/luatexdir/lang/texlang.c
index f8c60e548..bc912de0b 100644
--- a/source/texk/web2c/luatexdir/lang/texlang.c
+++ b/source/texk/web2c/luatexdir/lang/texlang.c
@@ -472,12 +472,7 @@ static halfword compound_word_break(halfword t, int clang)
 void set_disc_field(halfword f, halfword t)
 {
     if (t != null) {
-        /*tex
-            No |couple_nodes(f, t);| as we can better not expose |f| as |prev|
-            pointer.
-        */
-        vlink(f) = t ;
-        alink(t) = null ;
+        couple_nodes(f, t);
         tlink(f) = tail_of_list(t);
     } else {
         vlink(f) = null;
diff --git a/source/texk/web2c/luatexdir/luatex_svnversion.h b/source/texk/web2c/luatexdir/luatex_svnversion.h
index 869b1271b..7cf200932 100644
--- a/source/texk/web2c/luatexdir/luatex_svnversion.h
+++ b/source/texk/web2c/luatexdir/luatex_svnversion.h
@@ -1,4 +1,4 @@
 #ifndef luatex_svn_revision_h
 #define luatex_svn_revision_h
-#define luatex_svn_revision 7550
+#define luatex_svn_revision 7551
 #endif
-- 
GitLab