dotemph inside uline (xetexko)

uldot.tex

\input xetexko.sty
\input ulem.sty
\catcode`@=11
\UL@hook\expandafter{\the\UL@hook
  \protected\def\dotemph#1{%
    \ifx\ \LA@space\else \UL@stop\fi
    \leavevmode
    \setbox\XeKo@dotemph@box\hbox{\raise\dotemphraise\hbox{\dotemphchar}}%
    \begingroup
    \let\XeKo@maybe@dotemph\XeKo@do@dotemph
    \UL@dotemph#1 | \relax
    \endgroup
    \ifx\ \LA@space\else \UL@start\fi
  }%
  \def\UL@dotemph#1 {%
    \ifx|#1\relax
      \unskip\unskip\unskip
    \else
      \ifx\ \LA@space\else \UL@start\fi
      #1\ %
      \ifx\ \LA@space\else \UL@stop\fi
      \expandafter\UL@dotemph
    \fi
  }%
}
\catcode`@=12
\uline{\dotemph{가 나다 라 마바 사}}
\bye