revert to TL25 release plus one-line fix "is_new_mathfont(g)" from Khaled answer to https://tex.stackexchange.com/questions/738724

git-svn-id: svn://tug.org/texlive/branches/branch2025/Build/source@74657 c570f23f-e606-0410-a88d-b1316a301751

Author: kberry

texk/web2c/luatexdir/ChangeLog

@@ -1,10 +1,3 @@
-2025-03-15 Luigi Scarso  <luigi.scarso@gmail.com>
-	* : italicsmode fix for eight bit fonts (H.Hagen)
-
-2025-03-13 Luigi Scarso  <luigi.scarso@gmail.com>
-	* extra italicsmode (large operator italic spacing) (H.Hagen)
-
-
 2025-02-28  Akira Kakuto  <kakuto@jcom.zaq.ne.jp>
 	* luatex.c: Remove problematic lines for windows
 

texk/web2c/luatexdir/luatex.c

@@ -32,9 +32,9 @@
     stick to "0" upto "9" so users can expect a number represented as string.
 */
 
-int luatex_version = 122;
+int luatex_version = 121;
 int luatex_revision = '0';
-const char *luatex_version_string = "1.22.0";
+const char *luatex_version_string = "1.21.0";
 const char *engine_name = my_name;
 
 #include <kpathsea/c-ctype.h>

texk/web2c/luatexdir/luatex_svnversion.h

@@ -1,4 +1,4 @@
 #ifndef luatex_svn_revision_h
 #define luatex_svn_revision_h
-#define luatex_svn_revision 7672
+#define luatex_svn_revision 7667
 #endif

texk/web2c/luatexdir/tex/commands.c

@@ -746,7 +746,7 @@ void initialize_commands(void)
     primitive_luatex("pdfextension", extension_cmd, pdf_extension_code, 0);
     primitive_luatex("pdffeedback", feedback_cmd, pdf_feedback_code, 0);
     primitive_luatex("pdfvariable", variable_cmd, pdf_variable_code, 0);
-    primitive_luatex("mathoption", option_cmd, 0, 0);
+    primitive_luatex("mathoption", option_cmd, math_option_code, 0);
 
     primitive_luatex("luacopyinputnodes", assign_int_cmd, int_base + copy_lua_input_nodes_code, int_base);
 

texk/web2c/luatexdir/tex/dumpdata.c

@@ -32,7 +32,7 @@ with LuaTeX; if not, see <http://www.gnu.org/licenses/>.
 
 */
 
-#define FORMAT_ID (907+60)
+#define FORMAT_ID (907+59)
 #if ((FORMAT_ID>=0) && (FORMAT_ID<=256))
 #error Wrong value for FORMAT_ID.
 #endif

texk/web2c/luatexdir/tex/equivalents.h

@@ -315,14 +315,25 @@ the |number_regs| \.{\\dimen} registers.
 #  define show_stream_code 122
 #  define math_eq_dir_mode_code 123
 #  define var_fam_code 124
+
 #  define ignore_primitive_error_code 125 				/*ignore some primitive/engine errors*/
+
 #  define math_empty_display_mode_code 126
 
-#  define backend_int_base_code (math_empty_display_mode_code+1)
+#  define math_option_code 127
+
+
+#  define mathoption_int_base_code (math_option_code+1)                 /* one reserve */
+#  define mathoption_int_last_code (mathoption_int_base_code+8)
+
+#  define backend_int_base_code (mathoption_int_last_code+1)
 #  define backend_int_last_code (backend_int_base_code+32)              /* we need some 25 but take some slack */
 
 #  define tex_int_pars (backend_int_last_code+1)                        /* total number of integer parameters */
 
+#  define mathoption_int_base (int_base+mathoption_int_base_code)
+#  define mathoption_int_last (int_base+mathoption_int_last_code)
+
 #  define backend_int_base (int_base+backend_int_base_code)
 #  define backend_int_last (int_base+backend_int_last_code)
 
@@ -460,6 +471,15 @@ extern void print_save_stack(void);
 #  define loc_par(A)   equiv(local_base+(A))
 #  define glue_par(A)  equiv(glue_base+(A))
 
+typedef enum {
+    c_mathoption_old_code = 0,                  /* this one is stable */
+    /*
+    c_mathoption_umathcode_meaning_code,
+    */
+} math_option_codes ;
+
+#  define mathoption_int_par(A) eqtb[mathoption_int_base+(A)].cint
+
 /* if nonzero, this magnification should be used henceforth */
 
 extern int mag_set;
@@ -763,6 +783,12 @@ extern halfword last_cs_name;
 #define error_context_lines_par            int_par(error_context_lines_code)
 #define copy_lua_input_nodes_par           int_par(copy_lua_input_nodes_code)
 
+#define math_old_par                       mathoption_int_par(c_mathoption_old_code)
+
+/*
+#define math_umathcode_meaning_par         mathoption_int_par(c_mathoption_umathcode_meaning_code)
+*/
+
 #define math_pre_display_gap_factor_par    int_par(math_pre_display_gap_factor_code)
 
 #define time_par                           int_par(time_code)

texk/web2c/luatexdir/tex/maincontrol.c

@@ -706,13 +706,32 @@ static void run_normal (void) {
 /*tex
 
 This is experimental and not used for production, only for testing and writing
-macros (some options stay). It's now obsolete. We keep the cmd_code because it 
-looks like hard coded numbers are used in macro packages. 
+macros (some options stay).
 
 */
 
+#define mathoption_set_int(A) \
+    scan_int(); \
+    word_define(mathoption_int_base+A, cur_val);
+
 static void run_option(void) {
-    normal_error("mathoption", "obsolete command");
+    int a = 0 ;
+    switch (cur_chr) {
+        case math_option_code:
+            if (scan_keyword("old")) {
+                mathoption_set_int(c_mathoption_old_code);
+            /*
+            } else if (scan_keyword("umathcodemeaning")) {
+                mathoption_set_int(c_mathoption_umathcode_meaning_code);
+            */
+            } else {
+                normal_warning("mathoption","unknown key");
+            }
+            break;
+        default:
+            /* harmless */
+            break;
+    }
 }
 
 static void lua_function_call(void) {