+local get_around_skip
+do
+local KANJI_SKIP = luatexja.icflag_table.KANJI_SKIP
+local XKANJI_SKIP_JFM = luatexja.icflag_table.XKANJI_SKIP_JFM
+local getprev = node.direct.getprev
+local getnext = node.direct.getnext
+get_around_skip = function(head, n)
+ local p = getprev(n)
+ luatexja.ext_show_node(node.direct.tonode(p), 'B> ', print)
+ if getid(p)==id_glue then
+ local pi = get_attr_icflag(p)
+ if pi>=KANJI_SKIP and pi<=XKANJI_SKIP_JFM then
+ print(n, 'before ' .. luatexja.print_scaled(getfield(p, 'width')))
+ end
+ end
+ p = getnext(n)
+ luatexja.ext_show_node(node.direct.tonode(p), 'A> ', print)
+ if getid(p)==id_glue then
+ local pi = get_attr_icflag(p)
+ if pi>=KANJI_SKIP and pi<=XKANJI_SKIP_JFM then
+ print(n, 'after ' .. luatexja.print_scaled(getfield(p, 'width')))
+ end
+ end
+end
+end
+