- local c = utf.byte(buffer, i)
- local ct = tex.getcatcode(c)
- local ctl = tex.getcatcode(13) -- endline character
- local ctc = tex.getcatcode(0xFFFFF) -- new comment character
- if ((ct==11) or (ct==12)) and (ctl==5) and (ctc==14) then
- local p = node_new(id_glyph)
- p.char = c
- if ltjc.is_ucs_in_japanese_char(p) then
- buffer = buffer .. string.char(0xF3,0xBF,0xBF,0xBF) -- U+FFFFF
+ local c = utfbyte(buffer, i)
+ if c>=0x80 then
+ local ct = getcatcode(c)
+ local te = tex.endlinechar
+ local ctl = (te ~= -1) and (getcatcode(te)==5) and (getcatcode(getcount('ltjlineendcomment'))==14)
+ -- Is the catcode of endline character is 5 (end-of-line)?
+ -- Is the catcode of \ltjlineendcomment (new comment char) is 14 (comment)?
+ if ((ct==11) or (ct==12)) and ctl then
+ if ltjc_is_japanese_char_curlist(c) then
+ buffer = buffer .. utfchar(getcount('ltjlineendcomment'))
+ end