summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/euptexdir
diff options
context:
space:
mode:
authorAkira Kakuto <kakuto@fuk.kindai.ac.jp>2014-11-19 00:16:06 +0000
committerAkira Kakuto <kakuto@fuk.kindai.ac.jp>2014-11-19 00:16:06 +0000
commit22a982a38fb6d5d3b670fab4a85d2154dae31dc0 (patch)
tree1cfd05e4e5ec4d257dd65de8d7b0f3e8b9dbac2c /Build/source/texk/web2c/euptexdir
parentf9dbfc8967c48fb9be2cfd068b6d2ae08c9764f4 (diff)
web2c/eptexdir, web2c/euptexdir: Fix a bug introduced in \lastnodechar (H. Kitagawa)
git-svn-id: svn://tug.org/texlive/trunk@35615 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/euptexdir')
-rw-r--r--Build/source/texk/web2c/euptexdir/ChangeLog4
-rw-r--r--Build/source/texk/web2c/euptexdir/euptex.ch19
2 files changed, 9 insertions, 4 deletions
diff --git a/Build/source/texk/web2c/euptexdir/ChangeLog b/Build/source/texk/web2c/euptexdir/ChangeLog
index 9ffbaca5d3a..f3321ea24d5 100644
--- a/Build/source/texk/web2c/euptexdir/ChangeLog
+++ b/Build/source/texk/web2c/euptexdir/ChangeLog
@@ -1,3 +1,7 @@
+2014-11-19 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
+
+ * euptex.ch1: Fix a bug introduced in the primitive \lastnodechar.
+
2014-11-09 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
* euptex.ch1: Improve the new primitive \lastnodechar.
diff --git a/Build/source/texk/web2c/euptexdir/euptex.ch1 b/Build/source/texk/web2c/euptexdir/euptex.ch1
index 9330be8ff54..14550ad64c5 100644
--- a/Build/source/texk/web2c/euptexdir/euptex.ch1
+++ b/Build/source/texk/web2c/euptexdir/euptex.ch1
@@ -7,15 +7,16 @@
@z
@x
-else if font_dir[font(tx)]<>dir_default then cur_val:=info(link(tx))
+else if font_dir[font(tx)]<>dir_default then cur_val:=KANJI(info(link(tx)))
@y
-else if font_dir[font(tx)]<>dir_default then cur_val:=info(link(tx)) mod max_cjk_val
+else if font_dir[font(tx)]<>dir_default then cur_val:=KANJI(info(link(tx))) mod max_cjk_val
@z
@x
- else if font_dir[font(tx)]<>dir_default then cur_val:=info(link(tx))
+ begin if font_dir[font(tx)]<>dir_default then cur_val:=KANJI(info(link(tx)))
@y
- else if font_dir[font(tx)]<>dir_default then cur_val:=info(link(tx)) mod max_cjk_val
+ begin if font_dir[font(tx)]<>dir_default then cur_val:=KANJI(info(link(tx))) mod max_cjk_val
+ {it seems that |mod max_cjk_val| is not necessary in the above line, but why?}
@z
@x e-pTeX: ifcsname l.28620