texlive[46548] Build/source/texk/web2c/ptexdir: ptex-base.ch: subtype

[commits+hironobu at tug.org]

Revision: 46548
          http://tug.org/svn/texlive?view=revision&revision=46548
Author:   hironobu
Date:     2018-02-05 13:35:05 +0100 (Mon, 05 Feb 2018)
Log Message:
-----------
ptex-base.ch: subtype for JFM glue in math list

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

Modified: trunk/Build/source/texk/web2c/ptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2018-02-05 01:23:11 UTC (rev 46547)
+++ trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2018-02-05 12:35:05 UTC (rev 46548)
@@ -1,3 +1,7 @@
+2018-02-05  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
+
+	* ptex-base.ch: Set subtype for JFM glue in math list.
+
 2018-02-02  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
 
 	* ppltotf.ch: Fix issues GitHub:texjporg/tex-jp-build#47, #48

Modified: trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2018-02-05 01:23:11 UTC (rev 46547)
+++ trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2018-02-05 12:35:05 UTC (rev 46548)
@@ -3957,7 +3957,8 @@
              add_glue_ref(gq); link(gp):=get_node(small_node_size);
              gp:=link(gp); glue_ptr(gp):=null; link(gp):=null;
              end;
-           p:=new_glue(gq); link(p):=link(q); link(q):=p; return;
+           p:=new_glue(gq); subtype(p):=jfm_skip+1;
+           link(p):=link(q); link(q):=p; return;
            end
          else begin p:=new_kern(char_kern(cur_f)(cur_i));
            link(p):=link(q); link(q):=p; return;