------------------------------------------------------------------------
-- 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