From 02d4e9d264baca06647248bfd11f953aa1776ceb Mon Sep 17 00:00:00 2001 From: Hironobu Yamashita Date: Sun, 9 Feb 2020 13:11:10 +0000 Subject: more fix for fetching \kansujichar git-svn-id: svn://tug.org/texlive/trunk@53727 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/ptexdir/ptex-base.ch | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch index 6e317cc3a15..56b85ce5486 100644 --- a/Build/source/texk/web2c/ptexdir/ptex-base.ch +++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch @@ -6422,14 +6422,14 @@ else end; @ @= -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.");@/ 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. -- cgit v1.2.3