texlive[43707] Build/source/texk/web2c/ptexdir: ptexdir: sync with

[commits+kakuto at tug.org]

Revision: 43707
          http://tug.org/svn/texlive?view=revision&revision=43707
Author:   kakuto
Date:     2017-04-06 14:28:01 +0200 (Thu, 06 Apr 2017)
Log Message:
-----------
ptexdir: sync with the repository by Japanese TeX Development Community

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

Added Paths:
-----------
    trunk/Build/source/texk/web2c/ptexdir/tests/postpena.tex

Modified: trunk/Build/source/texk/web2c/ptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2017-04-06 05:08:53 UTC (rev 43706)
+++ trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2017-04-06 12:28:01 UTC (rev 43707)
@@ -1,3 +1,9 @@
+2017-04-06  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
+
+    * ptex-base.ch: Fix a bug that the postbreakpenalty sometimes reappears
+	even when it was removed by \unpenalty.
+	* tests/postpena.tex: Added.
+
 2017-03-12  Akira Kakuto  <kakuto at fuk.kindai.ac.jp>
 
 	* ptex-base.ch: Fix a typo pointed out at

Modified: trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2017-04-06 05:08:53 UTC (rev 43706)
+++ trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2017-04-06 12:28:01 UTC (rev 43707)
@@ -6925,7 +6925,9 @@
 
 @<Append KANJI-character |cur_chr| ...@>=
 if is_char_node(tail) then
-  begin cx:=qo(character(tail)); @<Insert |post_break_penalty|@>;
+  begin if not( (last_jchr<>null) and (link(last_jchr)=tail) ) then
+    begin cx:=qo(character(tail)); @<Insert |post_break_penalty|@>;
+    end;
   end
 else if type(tail)=ligature_node then
   begin cx:=qo(character(lig_char(tail))); @<Insert |post_break_penalty|@>;

Added: trunk/Build/source/texk/web2c/ptexdir/tests/postpena.tex
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/tests/postpena.tex	                        (rev 0)
+++ trunk/Build/source/texk/web2c/ptexdir/tests/postpena.tex	2017-04-06 12:28:01 UTC (rev 43707)
@@ -0,0 +1,15 @@
+%% plain pTeX
+\postbreakpenalty`＃=200
+\postbreakpenalty`a=200
+\showboxdepth10000
+\showboxbreadth10000
+\tracingonline1
+\setbox0=\hbox{＃」「\penalty-1000\showlists}
+% ＃ と 」 の間：\penalty10200 (合算)
+
+\setbox0=\hbox{＃\unpenalty 」a\relax あ\showlists}
+% ＃ と 」 の間：\penalty10000 (prebreakpenalty of '」')
+%  a と あ の間：\penalty200   (postbreakpenalty of 'a')
+
+
+\bye