From 32056f55040157895e4151ead5fbd8067e8b3754 Mon Sep 17 00:00:00 2001 From: Akira Kakuto Date: Sun, 9 Nov 2014 08:29:49 +0000 Subject: 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 --- Build/source/texk/web2c/euptexdir/ChangeLog | 4 ++++ Build/source/texk/web2c/euptexdir/euptex.ch1 | 16 ++++------------ 2 files changed, 8 insertions(+), 12 deletions(-) (limited to 'Build/source/texk/web2c/euptexdir') 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 + + * euptex.ch1: Improve the new primitive \lastnodechar. + 2014-11-08 Hironori Kitagawa * 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 -- cgit v1.2.3