texlive[41295] Build/source/texk/web2c/ptexdir: ptexdir: H. Kitagawa

[commits+kakuto at tug.org]

Revision: 41295
          http://tug.org/svn/texlive?view=revision&revision=41295
Author:   kakuto
Date:     2016-06-06 22:33:56 +0200 (Mon, 06 Jun 2016)
Log Message:
-----------
ptexdir: H. Kitagawa fixed a bug in check_box()

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ptexdir/ChangeLog
    trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
    trunk/Build/source/texk/web2c/ptexdir/ptex_version.h

Modified: trunk/Build/source/texk/web2c/ptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2016-06-06 07:15:27 UTC (rev 41294)
+++ trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2016-06-06 20:33:56 UTC (rev 41295)
@@ -1,3 +1,8 @@
+2016-06-06  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
+
+	* ptex-base.ch: Fix a bug in check_box().
+	ptex_version.h: pTeX version p3.7.1.
+
 2016-03-04  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
 
 	* ptex-base.ch: Add new primitives \textbaselineshiftfactor (=1000),

Modified: trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2016-06-06 07:15:27 UTC (rev 41294)
+++ trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2016-06-06 20:33:56 UTC (rev 41295)
@@ -54,12 +54,14 @@
 % (2015-09-10) AK  pTeX p3.7 Bug fix by Hironori Kitagawa in flushing choice node.
 % (2016-03-04) AK  Hironori Kitagawa added new primitives to improve typesetting
 %                  with non-vanishing \ybaselineshift.
+% (2016-06-06) AK  Hironori Kitagawa fixed a bug in check_box(box_p:pointer).
+%                  pTeX p3.7.1.
 %
 @x [1.2] l.200 - pTeX:
 @d banner==TeX_banner
 @d banner_k==TeX_banner_k
 @y
- at d pTeX_version_string=='-p3.7' {current p\TeX\ version}
+ at d pTeX_version_string=='-p3.7.1' {current p\TeX\ version}
 @#
 @d pTeX_banner=='This is pTeX, Version 3.14159265',pTeX_version_string
 @d pTeX_banner_k==pTeX_banner
@@ -6502,6 +6504,23 @@
         last_char:=p; flag:=true;
       end
     else do_nothing; {\.{\\beginR} etc.}
+  kern_node:
+    if subtype(p)=acc_kern then
+      begin p:=link(p);
+        if is_char_node(p) then
+	  if font_dir[font(p)]<>dir_default then p:=link(p);
+        p:=link(link(p));
+        if find_first_char then
+          begin find_first_char:=false; first_char:=p;
+          end;
+        last_char:=p; flag:=true;
+        if font_dir[font(p)]<>dir_default then p:=link(p);
+        end
+    else
+      begin flag:=true;
+        if find_first_char then find_first_char:=false
+        else last_char:=null;
+        end;
   othercases begin flag:=true;
     if find_first_char then find_first_char:=false
     else last_char:=null;

Modified: trunk/Build/source/texk/web2c/ptexdir/ptex_version.h
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ptex_version.h	2016-06-06 07:15:27 UTC (rev 41294)
+++ trunk/Build/source/texk/web2c/ptexdir/ptex_version.h	2016-06-06 20:33:56 UTC (rev 41295)
@@ -1 +1 @@
-#define PTEX_VERSION "p3.7"
+#define PTEX_VERSION "p3.7.1"