From be0377afd9573be47495ac97be42ecc4dae5f0a2 Mon Sep 17 00:00:00 2001
From: Luigi Scarso <luigi.scarso@gmail.com>
Date: Sat, 30 Jul 2022 20:41:39 +0000
Subject: [PATCH] Backtrack replace pointer when successive disc in exceptions
 (H. Hagen)

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

diff --git a/source/texk/web2c/luatexdir/ChangeLog b/source/texk/web2c/luatexdir/ChangeLog
index f98db659a..9454d04d5 100644
--- a/source/texk/web2c/luatexdir/ChangeLog
+++ b/source/texk/web2c/luatexdir/ChangeLog
@@ -1,3 +1,6 @@
+2022-07-30  Luigi Scarso <luigi.scarso@gmail.com>
+    * Backtrack replace pointer when successive disc in exceptions  (H.Hagen)
+
 2022-07-30  Luigi Scarso <luigi.scarso@gmail.com>
     * Take exception pre/port disc font from wordstart (H.Hagen)
 
diff --git a/source/texk/web2c/luatexdir/lang/texlang.c b/source/texk/web2c/luatexdir/lang/texlang.c
index f9e53bbba..a0d067251 100644
--- a/source/texk/web2c/luatexdir/lang/texlang.c
+++ b/source/texk/web2c/luatexdir/lang/texlang.c
@@ -705,6 +705,7 @@ static void do_exception(halfword wordstart, halfword r, char *replacement)
             /*tex check if we have two exceptions in a row */
             if (uword[i + 1] == '{') {
                 i--;
+t = alink(t);
             }
         } else {
             t = vlink(t);
diff --git a/source/texk/web2c/luatexdir/luatex_svnversion.h b/source/texk/web2c/luatexdir/luatex_svnversion.h
index 50224b636..0f1c3154a 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 7531
+#define luatex_svn_revision 7532
 #endif
-- 
GitLab