% Underline for Japanese Text
% by Hideki ISOZAKI Jan. 11 1988
% This underline is generated for each kanji character.
% You should enclose ASCII characters and commands in its argument.

\newskip\wd@uline
\def\juline#1{\ul@one#1\endul@one}
\def\ul@one#1{\ifx#1\endul@one\def\u@line{\hskip\jintercharskip}\else%
\hskip\jintercharskip% insert glue
\settowidth{\wd@uline}{#1}%
#1\kern-\wd@uline\lower0.33em\hbox{\vrule width\wd@uline height0.05em}%
%\makebox[0mm][r]{\rule[-0.33em]{\wd@uline}{0.1em}}%
\let\u@line=\ul@one\fi\u@line}
