% Underline for Japanese Text
% by Hideki ISOZAKI Jan. 11 1988
% Modified Oct. 21 1993
% 数式，英単語，単語間スペース，LaTeXコマンドとその引数などは
% 分割されないよう括弧でまとめてください．
%
% ex. \juline{あいうえお{$\cal B$}かきくけこ{foo}{ }{bar}}

\newdimen\wd@uline

\def\juline#1{{\def\endul@@one{\endul@one}\ul@one#1\endul@one}}

\def\ul@one#1{\def\@temp{#1}%
\hskip\jintercharskip
\ifx\@temp\endul@@one
 \let\u@line\relax
\else
 \ul@putbox\def\u@line{\ul@one}%
\fi
\u@line}

\def\ul@putbox{%
 \hbox{\@temp\settowidth\wd@uline\@temp
  \kern-\wd@uline\lower0.33em\hbox{\vrule width\wd@uline height0.05em}}}