-\usepackage[margin=20mm]{geometry}
-
-\makeatletter
-\newif\ifnot@advanceline
-\newskip\rensujiskip
-\rensujiskip=0.25\chs plus.25\zw minus.25\zw
-\DeclareRobustCommand\rensuji{%
- \@ifstar{\not@advancelinetrue\@rensuji}{\@rensuji}}
-\def\@rensuji{\@ifnextchar[{\@@rensuji}{\@@rensuji[c]}}
-\def\@@rensuji[#1]#2{\ifydir\hbox{#2}\else
- \hskip\rensujiskip
- \ifvmode\leavevmode\fi
- \ifnot@advanceline\not@advancelinefalse\else
- \setbox\z@\hbox{\yoko#2}%
- \@tempdima\ht\z@ \advance\@tempdima\dp\z@
- \if #1c\relax\vrule\@width\z@ \@height.5\@tempdima \@depth.5\@tempdima
- \else\if #1r\relax\vrule\@width\z@\@height\z@ \@depth\@tempdima
- \else\vrule\@width\z@ \@height\@tempdima \@depth\z@
- \fi\fi
- \fi
- \if #1c\relax\hbox to1zw{\yoko\hss#2\hss}%
- \else\if #1r\relax\vbox{\hbox to1zw{\yoko\hss#2}}%
- \else\vtop{\hbox to1zw{\yoko#2\hss}}%
- \fi\fi
- \hskip\rensujiskip
-\fi}
-\let\Rensuji\rensuji
-\let\prensuji\rensuji
-