summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ptexdir
diff options
context:
space:
mode:
authorHironobu Yamashita <h.y.acetaminophen@gmail.com>2020-02-09 13:11:10 +0000
committerHironobu Yamashita <h.y.acetaminophen@gmail.com>2020-02-09 13:11:10 +0000
commit02d4e9d264baca06647248bfd11f953aa1776ceb (patch)
treea2f04b0618d113b070980034f479228ff66d51a8 /Build/source/texk/web2c/ptexdir
parentad829acb5e5b0906b355c6a94df7c203d9b86217 (diff)
more fix for fetching \kansujichar
git-svn-id: svn://tug.org/texlive/trunk@53727 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/ptexdir')
-rw-r--r--Build/source/texk/web2c/ptexdir/ptex-base.ch4
1 files 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;
@ @<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.");@/
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.