From 7fd23e1688a45a7f1d30afeafa4b10549ea5fe76 Mon Sep 17 00:00:00 2001
From: Luigi Scarso <luigi.scarso@gmail.com>
Date: Fri, 25 Feb 2022 19:02:02 +0000
Subject: Lower max to 10000 and reverse check to max check exception penalty
 (H.Hagen).

git-svn-id: svn://tug.org/texlive/trunk@62173 c570f23f-e606-0410-a88d-b1316a301751
---
 Build/source/texk/web2c/luatexdir/ChangeLog           | 3 +++
 Build/source/texk/web2c/luatexdir/lang/texlang.c      | 8 ++++----
 Build/source/texk/web2c/luatexdir/luatex_svnversion.h | 2 +-
 3 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/Build/source/texk/web2c/luatexdir/ChangeLog b/Build/source/texk/web2c/luatexdir/ChangeLog
index cf0677f2a02..25899a5f681 100644
--- a/Build/source/texk/web2c/luatexdir/ChangeLog
+++ b/Build/source/texk/web2c/luatexdir/ChangeLog
@@ -1,3 +1,6 @@
+2022-02-25 Luigi Scarso <luigi.scarso@gmail.com>
+    * lower max to 10000 and reverse check to max check exception penalty (H.Hagen)
+
 2022-02-05 Luigi Scarso <luigi.scarso@gmail.com>
     *  intercept prefix for toksapp cum suis (H.Hagen)
 
diff --git a/Build/source/texk/web2c/luatexdir/lang/texlang.c b/Build/source/texk/web2c/luatexdir/lang/texlang.c
index ba7614ffafc..67ef25ca1d1 100644
--- a/Build/source/texk/web2c/luatexdir/lang/texlang.c
+++ b/Build/source/texk/web2c/luatexdir/lang/texlang.c
@@ -674,10 +674,10 @@ static void do_exception(halfword wordstart, halfword r, char *replacement)
             /*tex Let's check if we have a penalty spec. */
             if (((i+3) < len) && uword[i+1] == '[' && uword[i+2] >= '0' && uword[i+2] <= '9' && uword[i+3] == ']') {
                 if (exception_penalty_par > 0) {
-                    if (exception_penalty_par > 100000) {
-                        pen = (uword[i+2] - '0') * exception_penalty_par ;
-                    } else {
+                    if (exception_penalty_par > 10000) {
                         pen = exception_penalty_par;
+                    } else {
+                        pen = (uword[i+2] - '0') * exception_penalty_par ;
                     }
                 } else {
                     pen = hyphen_penalty_par;
@@ -993,7 +993,7 @@ void hnj_hyphenation(halfword head, halfword tail)
            tex_error("the word starts with a ghost glyph", NULL);
          } else {
            tex_error("the word doesn't start with a simple character", NULL);
-         }          
+         }
         }
         hyf_font = font(wordstart);
         if (hyphen_char(hyf_font) < 0) {
diff --git a/Build/source/texk/web2c/luatexdir/luatex_svnversion.h b/Build/source/texk/web2c/luatexdir/luatex_svnversion.h
index ef7e23f3a25..09450cb65e1 100644
--- a/Build/source/texk/web2c/luatexdir/luatex_svnversion.h
+++ b/Build/source/texk/web2c/luatexdir/luatex_svnversion.h
@@ -1 +1 @@
-#define luatex_svn_revision 7490
+#define luatex_svn_revision 7495
-- 
cgit v1.2.3