texlive[53727] Build/source/texk/web2c/ptexdir/ptex-base.ch: more fix
commits+hironobu at tug.org
commits+hironobu at tug.org
Sun Feb 9 14:11:10 CET 2020
Revision: 53727
http://tug.org/svn/texlive?view=revision&revision=53727
Author: hironobu
Date: 2020-02-09 14:11:10 +0100 (Sun, 09 Feb 2020)
Log Message:
-----------
more fix for fetching \kansujichar
Modified Paths:
--------------
trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
Modified: trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch 2020-02-09 12:55:49 UTC (rev 53726)
+++ trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch 2020-02-09 13:11:10 UTC (rev 53727)
@@ -6422,7 +6422,7 @@
end;
@ @<Fetch kansuji char code from some table@>=
-begin scan_int;
+begin scan_int; cur_val_level:=int_val;
if (cur_val<0)or(cur_val>9) then
begin print_err("Invalid KANSUJI number ("); print_int(cur_val); print_char(")");
help1("I'm skipping this control sequences.");@/
@@ -6429,7 +6429,7 @@
error; return;
end
else
- begin cur_val:=fromDVI(kansuji_char(cur_val)); cur_val_level:=int_val; end
+ cur_val:=fromDVI(kansuji_char(cur_val));
end
@ |print_kansuji| procedure converts a number to KANJI number.
More information about the tex-live-commits
mailing list.