summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/uptexdir/uptex-m.ch
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/uptexdir/uptex-m.ch')
-rw-r--r--Build/source/texk/web2c/uptexdir/uptex-m.ch18
1 files changed, 11 insertions, 7 deletions
diff --git a/Build/source/texk/web2c/uptexdir/uptex-m.ch b/Build/source/texk/web2c/uptexdir/uptex-m.ch
index 18231938a20..9cba64c5067 100644
--- a/Build/source/texk/web2c/uptexdir/uptex-m.ch
+++ b/Build/source/texk/web2c/uptexdir/uptex-m.ch
@@ -662,12 +662,12 @@ while k<pool_ptr do
@x
-@d ptex_revision_code=12 {command code for \.{\\ptexrevision}}
-@d ptex_convert_codes=13 {end of \pTeX's command codes}
+@d ptex_revision_code=14 {command code for \.{\\ptexrevision}}
+@d ptex_convert_codes=15 {end of \pTeX's command codes}
@y
-@d ptex_revision_code=12 {command code for \.{\\ptexrevision}}
-@d uptex_revision_code=13 {command code for \.{\\uptexrevision}}
-@d ptex_convert_codes=14 {end of \pTeX's command codes}
+@d ptex_revision_code=14 {command code for \.{\\ptexrevision}}
+@d uptex_revision_code=15 {command code for \.{\\uptexrevision}}
+@d ptex_convert_codes=16 {end of \pTeX's command codes}
@z
@x
@@ -757,10 +757,14 @@ if (cur_cmd>=kanji)and(cur_cmd<=hangul) then
@z
@x
- jc:=toDVI(KANJI(info(p)));
+ jc:=KANJI(info(p));
+@y
+ jc:=KANJI(info(p)) mod max_cjk_val;
+@z
+
+@x
dvi_out(set2); dvi_out(Hi(jc)); dvi_out(Lo(jc));
@y
- jc:=toDVI(KANJI(info(p)) mod max_cjk_val);
if (jc<@"10000) then begin
dvi_out(set2);
end else begin