Backtrack replace pointer when successive disc in exceptions (H. Hagen)

source/texk/web2c/luatexdir/ChangeLog

+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)
 

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);

source/texk/web2c/luatexdir/luatex_svnversion.h

 #ifndef luatex_svn_revision_h
 #define luatex_svn_revision_h
-#define luatex_svn_revision 7531
+#define luatex_svn_revision 7532
 #endif