better fix than the prev commit

diff --git a/src/ltj-jfmglue.lua b/src/ltj-jfmglue.lua
index 106897b..9c05170 100644 (file)
--- a/src/ltj-jfmglue.lua
+++ b/src/ltj-jfmglue.lua
@@ -281,7 +281,8 @@ end
 
 local function calc_np_pbox(lp, last)
    local first, nc = (not Np.first), nil
-   local lpa = get_attr_icflag(lp)==PACKED and PACKED or KINSOKU -- KINSOKU: dummy
+   --local lpa = get_attr_icflag(lp)==PACKED and PACKED or KINSOKU -- KINSOKU: dummy
+   local lpa = get_attr_icflag(lp)
    Np.first = Np.first or lp; Np.id = id_pbox
    set_attr(lp, attr_icflag, get_attr_icflag(lp));
    while lp ~=last and (lpa>=PACKED) and (lpa<BOXBDD) do
@@ -723,7 +724,7 @@ local function new_jfm_glue(mc, bc, ac)
           return node_copy(g[1]), g.ratio, false, false, false
        else
         local f = node_new(id_glue)
-        set_attr(f, attr_icflag, g.priority)
+         set_attr(f, attr_icflag, g.priority)
         setglue(f, g.width, g.stretch, g.shrink)
         return f, g.ratio, g.kanjiskip_natural, g.kanjiskip_stretch, g.kanjiskip_shrink
       end

diff --git a/src/ltj-jfont.lua b/src/ltj-jfont.lua
index 61ddc6c..ad29ad4 100644 (file)
--- a/src/ltj-jfont.lua
+++ b/src/ltj-jfont.lua
@@ -55,7 +55,9 @@ local function norm_val(a)
    end
 end
 
-function luatexja.jfont.define_jfm(t)
+local fastcopy=table.fastcopy
+function luatexja.jfont.define_jfm(to)
+   local t = fastcopy(to)
    local real_char -- Does current character class have the 'real' character?
    if t.dir~=jfm_dir then
       defjfm_res= nil; return