------------------------------------------------------------------------
-- MAIN PROCESS STEP 1: replace fonts
------------------------------------------------------------------------
------------------------------------------------------------------------
-- MAIN PROCESS STEP 1: replace fonts
------------------------------------------------------------------------
local wt
local function suppress_hyphenate_ja(head)
local non_math, p = true, head
wt = {}
while p do
local wt
local function suppress_hyphenate_ja(head)
local non_math, p = true, head
wt = {}
while p do
if (has_attr(p, attr_icflag) or 0)<=0 and ltjc_is_ucs_in_japanese_char(p) then
p.font = has_attr(p, attr_curjfnt) or p.font
p.subtype = floor(p.subtype*0.5)*2
set_attr(p, attr_orig_char, p.char)
end
if (has_attr(p, attr_icflag) or 0)<=0 and ltjc_is_ucs_in_japanese_char(p) then
p.font = has_attr(p, attr_curjfnt) or p.font
p.subtype = floor(p.subtype*0.5)*2
set_attr(p, attr_orig_char, p.char)
end
- elseif p.id == id_math then
- while p.id~=id_math do p = node_next(p) end
- elseif p.id == id_whatsit and p.subtype==sid_user and p.user_id==30112 then
+ elseif pid == id_math then
+ p = node_next(p) -- skip math on
+ while p and p.id~=id_math do p = node_next(p) end
+ elseif pid == id_whatsit and p.subtype==sid_user and p.user_id==30112 then