summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/euptexdir
diff options
context:
space:
mode:
authorAkira Kakuto <kakuto@fuk.kindai.ac.jp>2014-11-09 08:29:49 +0000
committerAkira Kakuto <kakuto@fuk.kindai.ac.jp>2014-11-09 08:29:49 +0000
commit32056f55040157895e4151ead5fbd8067e8b3754 (patch)
tree2e7f83ac3e2370988d78fc1b7788eeff9a3faf74 /Build/source/texk/web2c/euptexdir
parent2c6669571d899717d79f83f055289568cfc11a32 (diff)
web2c/eptexdir, web2c/euptexdir: Improve the new primitive \lastnodechar (H. Kitagawa)
git-svn-id: svn://tug.org/texlive/trunk@35551 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.ch116
2 files changed, 8 insertions, 12 deletions
diff --git a/Build/source/texk/web2c/euptexdir/ChangeLog b/Build/source/texk/web2c/euptexdir/ChangeLog
index fc1c92ce0d8..9ffbaca5d3a 100644
--- a/Build/source/texk/web2c/euptexdir/ChangeLog
+++ b/Build/source/texk/web2c/euptexdir/ChangeLog
@@ -1,3 +1,7 @@
+2014-11-09 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
+
+ * euptex.ch1: Improve the new primitive \lastnodechar.
+
2014-11-08 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
* euptex.ch1: Add primitives \pdfshellescape and \lastnodechar
diff --git a/Build/source/texk/web2c/euptexdir/euptex.ch1 b/Build/source/texk/web2c/euptexdir/euptex.ch1
index f8272cf1b35..9330be8ff54 100644
--- a/Build/source/texk/web2c/euptexdir/euptex.ch1
+++ b/Build/source/texk/web2c/euptexdir/euptex.ch1
@@ -7,23 +7,15 @@
@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:=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:=info(link(tx)) mod max_cjk_val
@z
@x
- last_node_char_code:
- if ((type(tx)=glue_node) and (subtype(tx)=jfm_skip+1))
- or ((type(tx)=penalty_node) and (subtype(tx)=kinsoku_pena)) then
- cur_val:=info(link(last_jchr))
- else cur_val:=-1;
+ else if font_dir[font(tx)]<>dir_default then cur_val:=info(link(tx))
@y
- last_node_char_code:
- if ((type(tx)=glue_node) and (subtype(tx)=jfm_skip+1))
- or ((type(tx)=penalty_node) and (subtype(tx)=kinsoku_pena)) then
- cur_val:=info(link(last_jchr)) mod max_cjk_val
- else cur_val:=-1;
+ else if font_dir[font(tx)]<>dir_default then cur_val:=info(link(tx)) mod max_cjk_val
@z
@x e-pTeX: ifcsname l.28620