texlive[53726] Build/source/texk/web2c/ptexdir: forgot to set

[commits+hironobu at tug.org]

Revision: 53726
          http://tug.org/svn/texlive?view=revision&revision=53726
Author:   hironobu
Date:     2020-02-09 13:55:49 +0100 (Sun, 09 Feb 2020)
Log Message:
-----------
forgot to set cur_val_level in fetching \kansujichar

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ptexdir/ChangeLog
    trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch

Modified: trunk/Build/source/texk/web2c/ptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2020-02-09 00:54:14 UTC (rev 53725)
+++ trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2020-02-09 12:55:49 UTC (rev 53726)
@@ -1,3 +1,8 @@
+2020-02-09  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
+
+	* ptex-base.ch: forgot to set cur_val_level in fetching
+	\kansujichar (Bug introduced in commit on 2019-10-14).
+
 2020-02-05  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
 
 	* ptex-base.ch: Add new primitives \ifjfont and \iftfont.

Modified: trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2020-02-09 00:54:14 UTC (rev 53725)
+++ trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2020-02-09 12:55:49 UTC (rev 53726)
@@ -6429,7 +6429,7 @@
     error; return;
     end
   else
-    cur_val:=fromDVI(kansuji_char(cur_val));
+    begin cur_val:=fromDVI(kansuji_char(cur_val)); cur_val_level:=int_val; end
 end
 
 @ |print_kansuji| procedure converts a number to KANJI number.