Make lltjp-geometry.sty to work with pLaTeX.

[luatex-ja/luatexja.git] / src / ltj-jfmglue.lua

diff --git a/src/ltj-jfmglue.lua b/src/ltj-jfmglue.lua
index a4c0895..c16239b 100644 (file)
--- a/src/ltj-jfmglue.lua
+++ b/src/ltj-jfmglue.lua
@@ -113,7 +113,7 @@ do
    slow_find_char_class = function (c, m, oc)
       local cls = ltjf_find_char_class(oc, m)
       if c and oc~=c and cls==0 then
-        return ltjf_find_char_class(-c, m), oc
+        return ltjf_find_char_class(c, m), oc
       else
         return cls, oc
       end
@@ -1181,11 +1181,13 @@ do
        if not s and getfield(Nq.nuc, 'user_id') == BPAR then
          local x, y = node_prev(Nq.nuc), Nq.nuc
          Nq.first, Nq.nuc, Nq.last = x, x, x
-         if Np.met then
-            Nq.class = fast_find_char_class('parbdd', Np.met)
+         if Np then
+            if Np.met then
+               Nq.class = fast_find_char_class('parbdd', Np.met)
+            end
+            Nq.met = Np.met; Nq.pre = 0; Nq.post = 0; Nq.xspc = 0
+            Nq.auto_xspc = false
          end
-         Nq.met = Np.met; Nq.pre = 0; Nq.post = 0; Nq.xspc = 0
-         Nq.auto_xspc = false
          head = node_remove(head, y)
         node_free(y)
       end