Package: texlive-bin / 2016.20160513.41080.dfsg-2+deb9u1

upstream-svn41295-fix-ptex-checkbox Patch series | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
ptex fix for bug in check_box
---
 texk/web2c/ptexdir/ChangeLog      |    5 +++++
 texk/web2c/ptexdir/ptex-base.ch   |   21 ++++++++++++++++++++-
 texk/web2c/ptexdir/ptex_version.h |    2 +-
 3 files changed, 26 insertions(+), 2 deletions(-)

--- texlive-bin.orig/texk/web2c/ptexdir/ChangeLog
+++ texlive-bin/texk/web2c/ptexdir/ChangeLog
@@ -1,3 +1,8 @@
+2016-06-06  Hironori Kitagawa  <h_kitagawa2001@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@yahoo.co.jp>
 
 	* ptex-base.ch: Add new primitives \textbaselineshiftfactor (=1000),
--- texlive-bin.orig/texk/web2c/ptexdir/ptex-base.ch
+++ texlive-bin/texk/web2c/ptexdir/ptex-base.ch
@@ -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
-@d pTeX_version_string=='-p3.7' {current p\TeX\ version}
+@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;
--- texlive-bin.orig/texk/web2c/ptexdir/ptex_version.h
+++ texlive-bin/texk/web2c/ptexdir/ptex_version.h
@@ -1 +1 @@
-#define PTEX_VERSION "p3.7"
+#define PTEX_VERSION "p3.7.1"