summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/eptexdir/eptex.ech
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/eptexdir/eptex.ech
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/eptexdir/eptex.ech')
-rw-r--r--Build/source/texk/web2c/eptexdir/eptex.ech23
1 files changed, 14 insertions, 9 deletions
diff --git a/Build/source/texk/web2c/eptexdir/eptex.ech b/Build/source/texk/web2c/eptexdir/eptex.ech
index fc71a4a42a1..3cf81163cb0 100644
--- a/Build/source/texk/web2c/eptexdir/eptex.ech
+++ b/Build/source/texk/web2c/eptexdir/eptex.ech
@@ -19,7 +19,7 @@
@y
@d eTeX_version_string=='-2.6' {current \eTeX\ version}
@#
-@d epTeX_version_string=='-141109'
+@d epTeX_version_string=='-141119'
@z
@x e-pTeX: banner
@@ -125,13 +125,18 @@ else if (type(tx)=kern_node) and (subtype(tx)=normal) then
if ((type(r)=penalty_node) and (subtype(r)=kinsoku_pena)) then tx:=last_jchr else tx:=r;
end;
if not is_char_node(tx) then
- if type(tx)=ligature_node then cur_val:=character(lig_char(tx)) else cur_val:=-1
-else if font_dir[font(tx)]<>dir_default then cur_val:=info(link(tx))
-else cur_val:=character(tx);
+ begin if type(tx)=ligature_node then
+ begin r:=lig_ptr(tx);
+ while link(r)<>null do r:=link(r);
+ cur_val:=qo(character(r));
+ end
+ end
+else if font_dir[font(tx)]<>dir_default then cur_val:=KANJI(info(link(tx)))
+else cur_val:=qo(character(tx));
end
@z
-@x
+@x [26.424] e-pTeX: node char
if cur_chr=last_node_type_code then
begin cur_val_level:=int_val;
if (tx=head)or(mode=0) then cur_val:=-1;
@@ -143,12 +148,12 @@ end
if (tx=head)or(mode=0) then cur_val:=-1;
end
else if cur_chr=last_node_char_code then
- begin cur_val_level:=int_val;
- if (tx=head)or(mode=0) then cur_val:=-1
- else if font_dir[font(tx)]<>dir_default then cur_val:=info(link(tx))
- else cur_val:=character(tx)
+ begin cur_val_level:=int_val; cur_val:=-1;
end
else cur_val_level:=cur_chr;
+ if (cur_chr=last_node_char_code)and(is_char_node(tx))and(tx<>head) then
+ begin if font_dir[font(tx)]<>dir_default then cur_val:=KANJI(info(link(tx)))
+ else cur_val:=qo(character(tx)); end;
@z
@x [26.424] e-pTeX: node types