% \iffalse meta-comment
%% File: plfonts.dtx
%
%  Copyright 1994-2006 ASCII Corporation.
%  Copyright (c) 2010 ASCII MEDIA WORKS
%  Copyright (c) 2016 Japanese TeX Development Community
%
%  This file is part of the pLaTeX2e system (community edition).
%  -------------------------------------------------------------
%
% \fi
%
%
% \setcounter{StandardModuleDepth}{1}
% \StopEventually{}
%
% \iffalse
% \changes{v1.0}{1994/09/16}{first edition}
% \changes{v1.1}{1995/02/21}{\cs{selectfont}$B%"%k%4%j%:%`JQ99(B}
% \changes{v1.1b}{1995/04/25}{\cs{selectfont}$B=$@5(B}
% \changes{v1.1c}{1995/08/22}{$B=D2#%U%)%s%HF1;~@Z$jBX$((B}
% \changes{v1.2}{1995/11/09}{\cs{DeclareFixedFont}$B$NF|K\8l2=(B}
% \changes{v1.3}{1996/03/25}{$B?t<0%U%!%_%j$NDj5AJQ99(B}
% \changes{v1.3a}{1997/01/25}{\LaTeX\ \texttt{!<1996/12/01!>$B$KBP1~(B}}
% \changes{v1.3b}{1997/01/28}{\cs{textmc}, \cs{textgt}$B$NF0:n=$@5(B}
% \changes{v1.3c}{1997/04/08}{$BOBJ8%(%s%3!<%I4XO"$N=$@5(B}
% \changes{v1.3d}{1997/06/25}{\cs{em},\cs{emph}$B$GOBJ8$r6/D4=qBN$K(B}
% \changes{v1.3e}{1997/07/10}{fd$B%U%!%$%kL>$N>.J8;z2=$,8z$$$F$$$J$+$C$?$N$r=$@5(B}
% \changes{v1.3f}{1998/08/10}{\cs{DeclareFixedCommand}$B$r(B\cs{@onlypreamble}$B$K(B
%    $B$7$F$7$^$C$F$$$?$N$r=$@5(B}
% \changes{v1.3g}{1999/04/05}{plpatch.ltx$B$NFbMF$rH?1G(B}
% \changes{v1.3h}{1999/08/09}{\cs{strut}$B$N2~A1(B}
% \changes{v1.3i}{2000/07/13}{\cs{text..}$B%3%^%s%I$N:8B&$K(B\cs{xkanjiskip}$B$,(B
%    $BF~$i$J$$$N$r=$@5(B}
% \changes{v1.3j}{2000/10/24}{\cs{adjustbaseline}$B$GM>J,$J%"%-$,F~$i$J$$(B
%    $B$h$&$K$7$?(B}
% \changes{v1.3k}{2001/05/10}{\cs{adjustbaseline}$B$ND4@0NL(B}
% \changes{v1.3l}{2002/04/05}{\cs{adjustbaseline}$B$G%U%)%s%H$N4p=`CM$,=D=q$-(B
%    $B0J30$G$O@_Dj$5$l$J$$$N$r=$@5(B}
% \changes{v1.3m}{2004/06/14}{\cs{fontfamily}$B%3%^%s%IFbIt%U%i%0JQ99(B}
% \changes{v1.3n}{2004/08/10}{$BOBJ8%(%s%3!<%G%#%s%0$N@Z$jBX$($rM-8z2=(B}
% \changes{v1.3o}{2005/01/04}{\cs{fontfamily}$BCf$N%U%i%0=$@5(B}
% \changes{v1.3p}{2006/01/04}{\cs{DeclareFontEncoding@}$BCf$G(B
%    \cs{LastDeclaredEncodeng}$B$N:FDj5A$,H4$1$F$$$?$N$GDI2C(B}
% \changes{v1.4}{2006/06/27}{\cs{reDeclareMathAlphabet}$B$r=$@5!#(B
%    $B$"$j$,$H$&!"(Bymt$B$5$s!#(B}
% \changes{v1.5}{2006/11/10}{\cs{reDeclareMathAlphabet}$B$r=$@5!#(B
%    $B$"$j$,$H$&!"(Bymt$B$5$s!#(B}
% \changes{v1.6}{2016/02/01}{\LaTeX\ \texttt{!<2015/01/01!>}$B$G$N(B\cs{em}$B$N(B
%    $BDj5AJQ99$KBP1~!#(B\cs{eminnershape}$B$rDI2C!#(B}
% \changes{v1.6a}{2016/04/01}{$B%Y!<%9%i%$%sJd@5NL$,(B0$B$G$J$$$H$-$K(B
%    \cs{AA}$B$J$I0lIt$N9g@.J8;z$,$*$+$7$/$J$k$3$H$X$NBP1~!#(B}
% \changes{v1.6b}{2016/04/30}{ptrace.sty$B$NKAF,$G(Btracefnt.sty$B$r(B
%    \cs{RequirePackageWithOptions}$B$9$k$h$&$K$7$?(B}
% \changes{v1.6c}{2016/06/06}{v1.6a$B$G$N=$@5$G(B\'e $B$J$IA4$F$N%"%/%;%s%HIU$-J8;z$G(B
%    $B<~0O$K(B\cs{xkanjiskip}$B$,F~$i$J$/$J$C$F$$$?$N$r=$@5!#(B}
% \changes{v1.6d}{2016/06/19}{$B%"%/%;%s%HIU$-J8;z$r$5$i$K=$@5(B(forum:1951)}
% \changes{v1.6e}{2016/06/26}{v1.6a$B0J9_$N=$@5$GA4$F$N%"%/%;%s%HIU$-J8;z$G(B
%    $B%H%i%V%k$,Aj<!$$$@$?$a!"$$$C$?$s%Q%C%A$r=|5n!#(B}
% \fi
%
% \iffalse
%<*driver>
\NeedsTeXFormat{pLaTeX2e}
% \fi
\ProvidesFile{plfonts.dtx}[2016/06/26 v1.6e pLaTeX New Font Selection Scheme]
% \iffalse
\documentclass{jltxdoc}
\GetFileInfo{plfonts.dtx}
\title{p\LaTeXe{}$B$N%U%)%s%H%3%^%s%I(B\space\fileversion}
\author{Ken Nakano \& Hideaki Togashi}
\date{$B:n@.F|!'(B\filedate}
\begin{document}
   \maketitle
   \tableofcontents
   \DocInput{\filename}
\end{document}
%</driver>
% \fi
%
% \section{$B35MW(B}\label{plfonts:intro}
% $B$3$3$G$O!"OBJ8=qBN$r(B\NFSS2$B$N%$%s%?!<%U%'%$%9$GA*Br$9$k$?$a$N(B
% $B%3%^%s%I$d%^%/%m$K$D$$$F@bL@$r$7$F$$$^$9!#(B
% $B$^$?!"%U%)%s%HDj5A%U%!%$%k$d=i4|@_Dj%U%!%$%k$J$I$N@bL@$b$7$F$$$^$9!#(B
% $B?7$7$$%U%)%s%HA*Br%3%^%s%I$N;H$$J}$K$D$$$F$O!"(B\file{fntguide.tex}$B$d(B
% \file{usrguide.tex}$B$r;2>H$7$F$/$@$5$$!#(B
%
% \begin{description}
% \item[$BBh(B\ref{plfonts:intro}$B@a(B] $B$3$N@a$G$9!#$3$N%U%!%$%k$N35MW$H(B
%    \dst{}$B%W%m%0%i%`$N$?$a$N%*%W%7%g%s$r<($7$F$$$^$9!#(B
% \item[$BBh(B\ref{plfonts:codes}$B@a(B] $B<B:]$N%3!<%I$NItJ,$G$9!#(B
% \item[$BBh(B\ref{plfonts:pldefs}$B@a(B] $B%W%j%m!<%I%U%)%s%H$d%(%i!<%U%)%s%H$J$I$N(B
%  $B=i4|@_Dj$K$D$$$F@bL@$r$7$F$$$^$9!#(B
% \item[$BBh(B\ref{plfonts:fontdef}$B@a(B] $B%U%)%s%HDj5A%U%!%$%k$K$D$$$F(B
%    $B@bL@$r$7$F$$$^$9!#(B
% \end{description}
%
%
% \subsection{\dst{}$B%W%m%0%i%`$N$?$a$N%*%W%7%g%s(B}
% \dst{}$B%W%m%0%i%`$N$?$a$N%*%W%7%g%s$r<!$K<($7$^$9!#(B
%
% \DeleteShortVerb{\|}
% \begin{center}
% \begin{tabular}{l|p{0.7\linewidth}}
% \emph{$B%*%W%7%g%s(B} & \emph{$B0UL#(B}\\\hline
% plcore & \file{plfonts.ltx}$B$r@8@.$7$^$9!#(B\\
% trace  & \file{ptrace.sty}$B$r@8@.$7$^$9!#(B\\
% JY1mc  & $B2#AHMQ!"L@D+BN$N%U%)%s%HDj5A%U%!%$%k$r@8@.$7$^$9!#(B\\
% JY1gt  & $B2#AHMQ!"%4%7%C%/BN$N%U%)%s%HDj5A%U%!%$%k$r@8@.$7$^$9!#(B\\
% JT1mc  & $B=DAHMQ!"L@D+BN$N%U%)%s%HDj5A%U%!%$%k$r@8@.$7$^$9!#(B\\
% JT1gt  & $B=DAHMQ!"%4%7%C%/BN$N%U%)%s%HDj5A%U%!%$%k$r@8@.$7$^$9!#(B\\
% pldefs & \file{pldefs.ltx}$B$r@8@.$7$^$9!#<!$N#4$D$N%*%W%7%g%s$rIU2C$9$k(B
%          $B$3$H$G!"%W%j%m!<%I$9$k%U%)%s%H$rA*Br$9$k$3$H$,$G$-$^$9!#(B
%          $B%G%U%)%k%H$O(B10pt$B$G$9!#(B\\
% xpt    & 10pt $B%W%j%m!<%I(B\\
% xipt   & 11pt $B%W%j%m!<%I(B\\
% xiipt  & 12pt $B%W%j%m!<%I(B\\
% ori    & \file{plfonts.tex}$B$K;w$?%W%j%m!<%I(B\\
% \end{tabular}
% \end{center}
% \MakeShortVerb{\|}
%
%
%
% \section{$B%3!<%I(B}\label{plfonts:codes}
% $B$3$N@a$G!"6qBNE*$K(B\NFSS2$B$r3HD%$9$k%3%^%s%I$d%^%/%m$NDj5A$r9T$J$C$F$$$^$9!#(B
%
% \subsection{$B=`Hw(B}
% \NFSS2$B$r3HD%$9$k$?$a$N=`Hw$G$9!#(B
% $BOBJ8%U%)%s%H$NB0@-$r3JG<$9$k%*%V%8%'%/%H$dD9$5JQ?t!"(B
% $BB0@-$r@ZBX$($k:]$NH=CG:`NA$H$7$F;H$&%j%9%H$J$I$rDj5A$7$F$$$^$9!#(B
%
% \file{ptrace}$B%Q%C%1!<%8$O(B\LaTeX{}$B$N(B\file{tracefnt}$B%Q%C%1!<%8$K0MB8$7$^$9!#(B
% \changes{v1.6b}{2016/04/30}{ptrace.sty$B$NKAF,$G(Btracefnt.sty$B$r(B
%    \cs{RequirePackageWithOptions}$B$9$k$h$&$K$7$?(B}
%    \begin{macrocode}
%<*trace>
\NeedsTeXFormat{pLaTeX2e}
\ProvidesPackage{ptrace}
     [2016/04/30 v1.6b Standard pLaTeX package (font tracing)]
\RequirePackageWithOptions{tracefnt}
%</trace>
%    \end{macrocode}
%
% \subsubsection{$BOBJ8%U%)%s%HB0@-(B}
% $B$3$3$G$O!"OBJ8%U%)%s%H$NB0@-$r3JG<$9$k$?$a$N%*%V%8%'%/%H$K$D$$$F(B
% $B@bL@$r$7$F$$$^$9!#(B
% 
% \begin{macro}{\k@encoding}
% \begin{macro}{\ck@encoding}
% \begin{macro}{\cy@encoding}
% \begin{macro}{\ct@encoding}
% $BOBJ8%(%s%3!<%I$r<($9%*%V%8%'%/%H$G$9!#(B
% |\ck@encoding|$B$O!":G8e$KA*Br$5$l$?OBJ8%(%s%3!<%IL>$r<($7$F$$$^$9!#(B
% |\cy@encoding|$B$H(B|\ct@encoding|$B$O$=$l$>$l!":G8e$KA*Br$5$l$?!"(B
% $B2#AHMQ$H=DAHMQ$NOBJ8%(%s%3!<%IL>$r<($7$F$$$^$9!#(B
%    \begin{macrocode}
%<*plcore>
\let\k@encoding\@empty
\let\ck@encoding\@empty
\def\cy@encoding{JY1}
\def\ct@encoding{JT1}
%    \end{macrocode}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\k@family}
% $BOBJ8=qBN$N%U%!%_%j$r<($9%*%V%8%'%/%H$G$9!#(B
%    \begin{macrocode}
\let\k@family\@empty
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\k@series}
% $BOBJ8=qBN$N%7%j!<%:$r<($9%*%V%8%'%/%H$G$9!#(B
%    \begin{macrocode}
\let\k@series\@empty
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\k@shape}
% $BOBJ8=qBN$N%7%'%$%W$r<($9%*%V%8%'%/%H$G$9!#(B
%    \begin{macrocode}
\let\k@shape\@empty
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\curr@kfontshape}
% $B8=:_$NOBJ8%U%)%s%HL>$r<($9%*%V%8%'%/%H$G$9!#(B
%    \begin{macrocode}
\def\curr@kfontshape{\k@encoding/\k@family/\k@series/\k@shape}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\rel@fontshape}
% $B4XO"IU$1$5$l$?%U%)%s%HL>$r<($9%*%V%8%'%/%H$G$9!#(B
%    \begin{macrocode}
\def\rel@fontshape{\f@encoding/\f@family/\f@series/\f@shape}
%    \end{macrocode}
% \end{macro}
%
% \subsubsection{$BD9$5JQ?t(B}
% $B$3$3$G$O!"OBJ8%U%)%s%H$NI}$d9b$5$J$I$r3JG<$9$kJQ?t$K$D$$$F@bL@$r$7$F$$$^$9!#(B
%
% $BF,J8;z$,BgJ8;z$NJQ?t$O!"%N!<%^%k%5%$%:$N=qBN$NBg$-$5$G!"4p=`CM$H$J$j$^$9!#(B
% $B$3$l$i$O!"(B\file{jart10.clo}$B$J$I$NJd=u%/%i%9%U%!%$%k$G@_Dj$5$l$^$9!#(B
%
% $B>.J8;z$@$1$+$i$J$kJQ?t$O!"(B
% $B%U%)%s%H$,JQ99$5$l$?$H$-$K!J(B|\selectfont|$BFb$G!K99?7$5$l$^$9!#(B
%
% \begin{macro}{\Cht}
% \begin{macro}{\cht}
% |\Cht|$B$O4p=`$H$J$kOBJ8%U%)%s%H$NJ8;z$N9b$5$r<($7$^$9!#(B
% |\cht|$B$O8=:_$NOBJ8%U%)%s%H$NJ8;z$N9b$5$r<($7$^$9!#(B
% $B$J$*!"$3$N(B``$B9b$5(B''$B$O%Y!<%9%i%$%s$h$j>e$ND9$5$G$9!#(B
%    \begin{macrocode}
\newdimen\Cht
\newdimen\cht
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\Cdp}
% \begin{macro}{\cdp}
% |\Cdp|$B$O4p=`$H$J$kOBJ8%U%)%s%H$NJ8;z$N?<$5$r<($7$^$9!#(B
% |\cdp|$B$O8=:_$NOBJ8%U%)%s%H$NJ8;z$N?<$5$r<($7$^$9!#(B
% $B$J$*!"$3$N(B``$B?<$5(B''$B$O%Y!<%9%i%$%s$h$j2<$ND9$5$G$9!#(B
%    \begin{macrocode}
\newdimen\Cdp
\newdimen\cdp
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\Cwd}
% \begin{macro}{\cwd}
% |\Cwd|$B$O4p=`$H$J$kOBJ8%U%)%s%H$NJ8;z$NI}$r<($7$^$9!#(B
% |\cwd|$B$O8=:_$NOBJ8%U%)%s%H$NJ8;z$NI}$r<($7$^$9!#(B
%    \begin{macrocode}
\newdimen\Cwd
\newdimen\cwd
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\Cvs}
% \begin{macro}{\cvs}
% |\Cvs|$B$O4p=`$H$J$k9TAw$j$r<($7$^$9!#(B
% $B%N!<%^%k%5%$%:$N(B|\baselineskip|$B$HF1CM$G$9!#(B
% |\cvs|$B$O8=:_$N9TAw$j$r<($7$^$9!#(B
%    \begin{macrocode}
\newdimen\Cvs
\newdimen\cvs
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\Chs}
% \begin{macro}{\chs}
% |\Chs|$B$O4p=`$H$J$k;zAw$j$r<($7$^$9!#(B|\Cwd|$B$HF1CM$G$9!#(B
% |\chs|$B$O8=:_$N;zAw$j$r<($7$^$9!#(B
%    \begin{macrocode}
\newdimen\Chs
\newdimen\chs
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\cHT}
% |\cHT|$B$O!"8=:_$N%U%)%s%H$N9b$5$K?<$5$r2C$($?D9$5$r<($7$^$9!#(B
% |\set@fontsize|$B%3%^%s%I!J<B:]$O(B|\size@update|$B!K$G99?7$5$l$^$9!#(B
%    \begin{macrocode}
\newdimen\cHT
%    \end{macrocode}
% \end{macro}
%
% \subsubsection{$B0l;~%3%^%s%I(B}
%
% \begin{macro}{\afont}
% \LaTeX{}$BFbIt$N(B|\do@subst@correction|$B%^%/%m$G$O!"(B
% |\fontname\font|$B$GJV$5$l$k30It%U%)%s%HL>$rMQ$$$F!"(B
% \LaTeX{}$B%U%)%s%HL>$rDj5A$7$F$$$^$9!#$7$?$,$C$F!"(B|\font|$B$r$=$N$^$^;H$&$H!"(B
% $BOBJ8%U%)%s%HL>$K2$J8$N30It%U%)%s%H$,EPO?$5$l$?$j!"(B
% $B=DAH%U%)%s%HL>$K2#AHMQ$N30It%U%)%s%H$,3d$jIU$1$i$l$?$j$7$^$9$N$G!"(B
% |\jfont|$B$+(B|\tfont|$B$rMQ$$$k$h$&$K$7$^$9!#(B
% |\afont|$B$O!"(B|\font|$B%3%^%s%I$NJ]B8MQ$G$9!#(B
%    \begin{macrocode}
\let\afont\font
%    \end{macrocode}
% \end{macro}
%
%
% \subsubsection{$B%U%)%s%H%j%9%H(B}
% $B$3$3$G$O!"%U%)%s%H$N%(%s%3!<%I$d%U%!%_%j$NL>A0$rEPO?$9$k%j%9%H$K$D$$$F(B
% $B@bL@$r$7$F$$$^$9!#(B
%
% p\LaTeXe{}$B$N(B\NFSS2$B$G$O!"0l$D$N%3%^%s%I$GOBJ8$+2$J8$N$$$:$l$+!"$"$k$$$ON>J}$r(B
% $BJQ99$9$k$?$a!"%3%^%s%I$K;XDj$5$l$?0z?t$,2?$r<($9$N$+$rH=CG$7$J$/$F$O(B
% $B$J$j$^$;$s!#$3$NH=CG:`NA$H$7$F!"%j%9%H$rMQ$$$^$9!#(B
%
% $B$3$N$H$-$N6qBNE*$JH=CG<j=g$K$D$$$F$O!"%(%s%3!<%IA*Br%3%^%s%I$d(B
% $B%U%!%_%jA*Br%3%^%s%I$J$I$NDj5A$r;2>H$7$F$/$@$5$$!#(B
% 
% \begin{macro}{\inlist}
% $B<!$N%3%^%s%I$O!"%(%s%3!<%I$d%U%!%_%j$N%j%9%HFb$KBhFs0z?t$G;XDj$5$l$?J8;zNs(B
% $B$,$"$k$+$I$&$+$rD4$Y$k%^%/%m$G$9!#(B
%    \begin{macrocode}
\def\inlist@#1#2{%
  \def\in@@##1<#1>##2##3\in@@{%
    \ifx\in@##2\in@false\else\in@true\fi}%
  \in@@#2<#1>\in@\in@@}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\enc@elt}
% \begin{macro}{\fam@elt}
% |\enc@elt|$B$H(B|\fam@elt|$B$O!"EPO?$5$l$F$$$k%(%s%3!<%I$KBP$7$F!"(B
% $B$J$s$i$+$N=hM}$rC`<!E*$K9T$J$$$?$$$H$-$K;HMQ$9$k$3$H$,$G$-$^$9!#(B
%    \begin{macrocode}
\def\fam@elt{\noexpand\fam@elt}
\def\enc@elt{\noexpand\enc@elt}
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\fenc@list}
% \begin{macro}{\kenc@list}
% \begin{macro}{\kyenc@list}
% \begin{macro}{\ktenc@list}
% |\fenc@list|$B$K$O!"(B|\DeclareFontEncoding|$B%3%^%s%I$G@k8@$5$l$?%(%s%3!<%IL>$,(B
% $B3JG<$5$l$F$$$-$^$9!#(B
%
% |\kyenc@list|$B$K$O!"(B|\DeclareYokoKanjiEncoding|$B%3%^%s%I$G@k8@$5$l$?(B
% $B%(%s%3!<%IL>$,3JG<$5$l$F$$$-$^$9!#(B
% |\ktenc@list|$B$K$O!"(B|\DeclareTateKanjiEncoding|$B%3%^%s%I$G@k8@$5$l$?(B
% $B%(%s%3!<%IL>$,3JG<$5$l$F$$$-$^$9!#(B
%
% \changes{v1.1b}{1995/03/28}{$B%j%9%H$N=i4|CM$rJQ99(B}
% \changes{v1.1b}{1995/05/10}{$B%j%9%HFb$N6uGr$r:o=|(B}
%
% $B$3$3$G!"$3$l$i$N%j%9%H$K6qBNE*$JCM$rF~$l$F=i4|2=$r$9$k$N$O!"(B
% $B%j%9%H$K%(%s%3!<%I$NEPO?$r$9$k$h$&$K(B|\DeclareFontEncoding|$B$r:FDj5A(B
% $B$9$kA0$K!"2$J8%(%s%3!<%I$,@k8@$5$l$k$?$a!"%j%9%H$KEPO?$5$l$J$$$+$i$G$9!#(B
% \changes{v1.1}{1997/01/25}{Add TS1 encoding to the starting member of
%     \cs{fenc@list}.}
%    \begin{macrocode}
\def\fenc@list{\enc@elt<OML>\enc@elt<T1>\enc@elt<OT1>\enc@elt<OMS>%
               \enc@elt<OMX>\enc@elt<TS1>\enc@elt<U>}
\let\kenc@list\@empty
\let\kyenc@list\@empty
\let\ktenc@list\@empty
%    \end{macrocode}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\kfam@list}
% \begin{macro}{\ffam@list}
% \begin{macro}{\notkfam@list}
% \begin{macro}{\notffam@list}
% |\kfam@list|$B$K$O!"(B|\DeclareKanjiFamily|$B%3%^%s%I$G@k8@$5$l$?%U%!%_%jL>$,(B
% $B3JG<$5$l$F$$$-$^$9!#(B
%
% |\ffam@list|$B$K$O!"(B|\DeclareFontFamily|$B%3%^%s%I$G@k8@$5$l$?%U%!%_%jL>$,(B
% $B3JG<$5$l$F$$$-$^$9!#(B
%
% |\notkfam@list|$B$K$O!"OBJ8%U%!%_%j$G$O$J$$$H?dB,$5$l$?%U%!%_%jL>$,(B
% $B3JG<$5$l$F$$$-$^$9!#$3$N%j%9%H$O(B|\fontfamily|$B%3%^%s%I$G:n@.$5$l$^$9!#(B
%
% |\notffam@list|$B$K$O2$J8%U%!%_%j$G$O$J$$$H?dB,$5$l$?%U%!%_%jL>$,(B
% $B3JG<$5$l$F$$$-$^$9!#$3$N%j%9%H$O(B|\fontfamily|$B%3%^%s%I$G:n@.$5$l$^$9!#(B
%
% \changes{v1.1b}{1995/03/28}{$B%j%9%H$N=i4|CM$rJQ99(B}
% \changes{v1.1b}{1995/05/10}{$B%j%9%HFb$N6uGr$r:o=|(B}
%
% $B$3$3$G!"$3$l$i$N%j%9%H$K6qBNE*$JCM$rF~$l$F=i4|2=$r$9$k$N$O!"(B
% $B%j%9%H$K%U%!%_%j$NEPO?$r$9$k$h$&$K!"(B|\DeclareFontFamily|$B$,(B
% $B:FDj5A$5$l$kA0$K!"$3$N%3%^%s%I$,;HMQ$5$l$k$?$a!"(B
% $B%j%9%H$KEPO?$5$l$J$$$+$i$G$9!#(B
%    \begin{macrocode}
\def\kfam@list{\fam@elt<mc>\fam@elt<gt>}
\def\ffam@list{\fam@elt<cmr>\fam@elt<cmss>\fam@elt<cmtt>%
               \fam@elt<cmm>\fam@elt<cmsy>\fam@elt<cmex>}
%    \end{macrocode}
% \changes{v1.1c}{1996/03/06}{\cs{notkfam@list}$B$H(B\cs{notffam@list}$B$N(B
%       $B=i4|CM$rJQ99(B}
% $B$D$.$NFs$D$N%j%9%H$N=i4|CM$H$7$F!">e5-$NCM$rMQ$$$^$9!#(B
% $B$3$l$i$N%U%!%_%jL>$O!"OBJ8$G$J$$$3$H!"2$J8$G$J$$$3$H$,$O$C$-$j$7$F$$$^$9!#(B
%    \begin{macrocode}
\let\notkfam@list\ffam@list
\let\notffam@list\kfam@list
%    \end{macrocode}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
%
%
% \subsubsection{$B;YCl(B}
% $B9T4V$ND4@0$J$I$KMQ$$$k;YCl$G$9!#(B
% $B;YCl$N$b$H$H$J$k%\%C%/%9$NBg$-$5$O!"%U%)%s%H%5%$%:$,JQ99$5$l$k$?$S$K!"(B
% |\set@fontsize|$B%3%^%s%I$K$h$C$FJQ2=$7$^$9!#(B
%
% $B%U%)%s%H%5%$%:$,JQ99$5$l$?$H$-$K!"(B|\set@fontsize|$B%3%^%s%I$G99?7$5$l$^$9!#(B
%
% \begin{macro}{\tstrutbox}
% \begin{macro}{\zstrutbox}
% |\tstrutbox|$B$O9b$5$H?<$5$,#5BP#5!"(B
% |\zstrutbox|$B$O9b$5$H?<$5$,#7BP#3$N;YCl%\%C%/%9$H$J$j$^$9!#(B
% $B$3$l$i$O=DAH%\%C%/%9$N9T4V$ND4@0$J$I$K;H$$$^$9!#(B
% $B$J$*!"2#AH%\%C%/%9MQ$N;YCl$O(B|\strutbox|$B$G!"9b$5$H?<$5$,#7BP#3$H$J$C$F$$$^$9!#(B
%    \begin{macrocode}
\newbox\tstrutbox
\newbox\zstrutbox
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\strut}
% \begin{macro}{\tstrut}
% \begin{macro}{\zstrut}
% |\strutbox|$B$O(B|\yoko|$B%G%#%l%/%7%g%s$GAH$^$l$F$$$^$9$N$G!"(B
% $B=DAH%\%C%/%9Fb$G(B|\unhcopy|$B$r$9$k$H%(%i!<$H$J$j$^$9!#(B
% $B$3$N%^%/%m$O(B\file{ltplain.dtx}$B$GDj5A$5$l$F$$$^$9!#(B
%
% \changes{v1.1c}{1995/08/24}{``\cs{centerling}~\cs{strut}''$B$NI}$,%<%m$K(B
% $B$J$C$F$7$^$&$N$r=$@5(B}
% \changes{v1.3h}{1999/08/09}{$B=DAH$N$H$-!"I}$N$"$k%\%C%/%9$K$J$C$F$7$^$&(B
% $B$N$r=$@5(B}
%    \begin{macrocode}
\def\strut{\relax
  \ifydir
    \ifmmode\copy\strutbox\else\unhcopy\strutbox\fi
  \else
    \ifmmode\copy\tstrutbox\else\unhcopy\tstrutbox\fi
  \fi}
\def\tstrut{\relax\hbox{\tate
   \ifmmode\copy\tstrutbox\else\unhcopy\tstrutbox\fi}}
\def\zstrut{\relax\hbox{\tate
   \ifmmode\copy\zstrutbox\else\unhcopy\zstrutbox\fi}}
%    \end{macrocode}
% \end{macro}
% \end{macro}
% \end{macro}
%
%
%
% \subsection{$B%3%^%s%I(B}
% $B<!$N%3%^%s%I$NDj5A$r$7$F$$$^$9!#(B
%
% \DeleteShortVerb{\|}
% \MakeShortVerb{\+}
% \begin{center}
% \begin{tabular}{l|l}
% \emph{$B%3%^%s%I(B} & \emph{$B0UL#(B}\\\hline
% +\Declare{Font|YokoKanji|TateKanji}Encoding+ & $B%(%s%3!<%I$N@k8@(B\\
% +\Declare{Yoko|Tate}KanjiEncodingDefaults+ &
%        $B%G%U%)%k%H$NOBJ8%(%s%3!<%I$N@k8@(B\\
% +\Declare{Font|Kanji}Family+ & $B%U%!%_%j$N@k8@(B\\
% +\DeclareKanjiSubstitution+ & $BOBJ8$NBeMQ%U%)%s%H$N@k8@(B\\
% +\DeclareErrorKanjiFont+ & $BOBJ8$N%(%i!<%U%)%s%H$N@k8@(B \\
% +\DeclareFixedFont+ & $B%U%)%s%H$NL>A0$N@k8@(B \\
% +\reDeclareMathAlphabet+ & $BOB2$J8$rF1;~$K@Z$jBX$($k%3%^%s%I@k8@(B\\
% +\{Declare|Set}RelationFont+ & $B=>B0=qBN$N@k8@(B\\
% +\userelfont+ & $B2$J8=qBN$r=>B0=qBN$K$9$k(B\\
% +\selectfont+ & $B%U%)%s%H$r@Z$jBX$($k(B\\
% +\set@fontsize+ & $B%U%)%s%H%5%$%:$NJQ99(B\\
% +\adjustbaseline+ & $B%Y!<%9%i%$%s%7%U%HNL$N@_Dj(B\\
% +\{font|roman|kanji}encoding+ & $B%(%s%3!<%I$N;XDj(B\\
% +\{font|roman|kanji}family+ & $B%U%!%_%j$N;XDj(B\\
% +\{font|roman|kanji}series+ & $B%7%j!<%:$N;XDj(B\\
% +\{font|roman|kanji}shape+ & $B%7%'%$%W$N;XDj(B\\
% +\use{font|roman|kanji}+ & $B=qBN$N@Z$jBX$((B\\
% +\normalfont+ & $B%G%U%)%k%HCM$N@_Dj$K@Z$jBX$($k(B\\
% +\mcfamily+,+\gtfamily+ & $BOBJ8=qBN$rL@D+BN!"%4%7%C%/BN$K$9$k(B\\
% +\textunderscore+ & $B%F%-%9%H%b!<%I$G$N2<@~%^%/%m(B\\
% \end{tabular}
% \end{center}
% \DeleteShortVerb{\+}
% \MakeShortVerb{\|}
%
%
% \begin{macro}{\DeclareFontEncoding}
% \begin{macro}{\DeclareFontEncoding@}
% $B2$J8%(%s%3!<%I$r@k8@$9$k$?$a$N%3%^%s%I$G$9!#(B
% \file{ltfssbas.dtx}$B$GDj5A$5$l$F$$$k$b$N$r!"(B
% |\fenc@list|$B$r:n$k$h$&$K:FDj5A$r$7$F$$$^$9!#(B
% \changes{v1.3p}{2006/01/04}{\break\cs{DeclareFontEncoding@}$BCf$G(B
%    \cs{LastDeclaredEncodeng}$B$N:FDj5A$,H4$1$F$$$?$N$GDI2C(B}
%    \begin{macrocode}
\def\DeclareFontEncoding{%
  \begingroup
  \nfss@catcodes
  \expandafter\endgroup
  \DeclareFontEncoding@}
%
\def\DeclareFontEncoding@#1#2#3{%
  \expandafter
  \ifx\csname T@#1\endcsname\relax
     \def\cdp@elt{\noexpand\cdp@elt}%
     \xdef\cdp@list{\cdp@list\cdp@elt{#1}%
                    {\default@family}{\default@series}%
                    {\default@shape}}%
     \expandafter\let\csname#1-cmd\endcsname\@changed@cmd
     \def\enc@elt{\noexpand\enc@elt}%
     \xdef\fenc@list{\fenc@list\enc@elt<#1>}%
  \else
     \@font@info{Redeclaring font encoding #1}%
  \fi
  \global\@namedef{T@#1}{#2}%
  \global\@namedef{M@#1}{\default@M#3}%
  \xdef\LastDeclaredEncoding{#1}%
  }
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
%
% \begin{macro}{\DeclareKanjiEncoding}
% \begin{macro}{\DeclareYokoKanjiEncoding}
% \begin{macro}{\DeclareYokoKanjiEncoding@}
% \begin{macro}{\DeclareTateKanjiEncoding}
% \begin{macro}{\DeclareTateKanjiEncoding@}
% $BOBJ8%(%s%3!<%I$N@k8@$r$9$k%3%^%s%I$G$9!#(B
% \changes{v1.3c}{1997/04/08}{$BOBJ8%(%s%3!<%I@k8@%3%^%s%I$r=DAHMQ$H2#AHMQ$G(B
%     $BJ,$1$k$h$&$K$7$?!#(B}
%    \begin{macrocode}
\def\DeclareKanjiEncoding#1{%
  \@latex@warning{%
     The \string\DeclareKanjiEncoding\space is obsoleted command.  Please use
     \MessageBreak
     the \string\DeclareTateKanjiEncoding\space for `Tate-kumi' encoding, and
     \MessageBreak
     the \string\DeclareYokoKanjiEncoding\space for `Yoko-kumi' encoding.
     \MessageBreak
     I treat the `#1' encoding as `Yoko-kumi'.}
  \DeclareYokoKanjiEncoding{#1}%
}
\def\DeclareYokoKanjiEncoding{%
  \begingroup
  \nfss@catcodes
  \expandafter\endgroup
  \DeclareYokoKanjiEncoding@}
%
\def\DeclareYokoKanjiEncoding@#1#2#3{%
  \expandafter
  \ifx\csname T@#1\endcsname\relax
    \def\cdp@elt{\noexpand\cdp@elt}%
    \xdef\cdp@list{\cdp@list\cdp@elt{#1}%
                    {\default@k@family}{\default@k@series}%
                    {\default@k@shape}}%
    \expandafter\let\csname#1-cmd\endcsname\@changed@kcmd
    \def\enc@elt{\noexpand\enc@elt}%
    \xdef\kyenc@list{\kyenc@list\enc@elt<#1>}%
    \xdef\kenc@list{\kenc@list\enc@elt<#1>}%
  \else
    \@font@info{Redeclaring KANJI (yoko) font encoding #1}%
  \fi
  \global\@namedef{T@#1}{#2}%
  \global\@namedef{M@#1}{\default@KM#3}%
  }
%
\def\DeclareTateKanjiEncoding{%
  \begingroup
  \nfss@catcodes
  \expandafter\endgroup
  \DeclareTateKanjiEncoding@}
%
\def\DeclareTateKanjiEncoding@#1#2#3{%
  \expandafter
  \ifx\csname T@#1\endcsname\relax
    \def\cdp@elt{\noexpand\cdp@elt}%
    \xdef\cdp@list{\cdp@list\cdp@elt{#1}%
                    {\default@k@family}{\default@k@series}%
                    {\default@k@shape}}%
    \expandafter\let\csname#1-cmd\endcsname\@changed@kcmd
    \def\enc@elt{\noexpand\enc@elt}%
    \xdef\ktenc@list{\ktenc@list\enc@elt<#1>}%
    \xdef\kenc@list{\kenc@list\enc@elt<#1>}%
  \else
    \@font@info{Redeclaring KANJI (tate) font encoding #1}%
  \fi
  \global\@namedef{T@#1}{#2}%
  \global\@namedef{M@#1}{\default@KM#3}%
  }
%
\@onlypreamble\DeclareKanjiEncoding
\@onlypreamble\DeclareYokoKanjiEncoding
\@onlypreamble\DeclareYokoKanjiEncoding@
\@onlypreamble\DeclareTateKanjiEncoding
\@onlypreamble\DeclareTateKanjiEncoding@
%    \end{macrocode}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
%
%
% \begin{macro}{\DeclareKanjiEncodingDefaults}
% $BOBJ8%(%s%3!<%I$N%G%U%)%k%HCM$r@k8@$9$k%3%^%s%I$G$9!#(B
%    \begin{macrocode}
\def\DeclareKanjiEncodingDefaults#1#2{%
  \ifx\relax#1\else
    \ifx\default@KT\@empty\else
      \@font@info{Overwriting KANJI encoding scheme text defaults}%
    \fi
    \gdef\default@KT{#1}%
  \fi
  \ifx\relax#2\else
    \ifx\default@KM\@empty\else
      \@font@info{Overwriting KANJI encoding scheme math defaults}%
    \fi
    \gdef\default@KM{#2}%
  \fi}
\let\default@KT\@empty
\let\default@KM\@empty
\@onlypreamble\DeclareKanjiEncodingDefaults
%    \end{macrocode}
% \end{macro}
%
%
% \begin{macro}{\DeclareFontFamily}
% $B2$J8%U%!%_%j$r@k8@$9$k$?$a$N%3%^%s%I$G$9!#(B
% |\ffam@list|$B$r:n$k$h$&$K:FDj5A$r$7$^$9!#(B
%    \begin{macrocode}
\def\DeclareFontFamily#1#2#3{%
 \@ifundefined{T@#1}%
    {\@latex@error{Encoding scheme `#1' unknown}\@eha}%
    {\edef\tmp@item{{#2}}%
     \expandafter\expandafter\expandafter
     \inlist@\expandafter\tmp@item\expandafter{\ffam@list}%
     \ifin@ \else
        \def\fam@elt{\noexpand\fam@elt}%
        \xdef\ffam@list{\ffam@list\fam@elt<#2>}%
     \fi
     \def\reserved@a{#3}%
     \global
     \expandafter\let\csname #1+#2\expandafter\endcsname
            \ifx \reserved@a\@empty
              \@empty
            \else \reserved@a
            \fi
    }%
}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\DeclareKanjiFamily}
% $B2$J8%U%!%_%j$r@k8@$9$k$?$a$N%3%^%s%I$G$9!#(B
%    \begin{macrocode}
\def\DeclareKanjiFamily#1#2#3{%
 \@ifundefined{T@#1}%
    {\@latex@error{KANJI Encoding scheme `#1' unknown}\@eha}%
    {\edef\tmp@item{{#2}}%
     \expandafter\expandafter\expandafter
     \inlist@\expandafter\tmp@item\expandafter{\kfam@list}%
     \ifin@ \else
        \def\fam@elt{\noexpand\fam@elt}%
        \xdef\kfam@list{\kfam@list\fam@elt<#2>}%
     \fi
     \def\reserved@a{#3}%
     \global
     \expandafter\let\csname #1+#2\expandafter\endcsname
            \ifx \reserved@a\@empty
              \@empty
            \else \reserved@a
            \fi
     }%
}
%    \end{macrocode}
% \end{macro}
%
%
% \begin{macro}{\DeclareKanjiSubstitution}
% \begin{macro}{\DeclareErrorKanjiFont}
% $BL\E*$NOBJ8%U%)%s%H$,8+$D$+$i$J$+$C$?$H$-$K;H$&%U%)%s%H$N@k8@$r$9$k(B
% $B%3%^%s%I$G$9!#(B
% $B$=$l$>$l!"(B|\DeclareFontSubstitution|$B$H(B|\DeclareErrorFont|$B$KBP1~$7$^$9!#(B
%    \begin{macrocode}
\def\DeclareKanjiSubstitution#1#2#3#4{%
  \expandafter\ifx\csname T@#1\endcsname\relax
    \@latex@error{KANJI Encoding scheme `#1' unknown}\@eha
  \else
    \begingroup
       \def\reserved@a{#1}%
       \toks@{}%
       \def\cdp@elt##1##2##3##4{%
         \def\reserved@b{##1}%
         \ifx\reserved@a\reserved@b
           \addto@hook\toks@{\cdp@elt{#1}{#2}{#3}{#4}}%
         \else
           \addto@hook\toks@{\cdp@elt{##1}{##2}{##3}{##4}}%
         \fi}%
       \cdp@list
       \xdef\cdp@list{\the\toks@}%
    \endgroup
    \global\@namedef{D@#1}{\def\default@family{#2}%
                           \def\default@series{#3}%
                           \def\default@shape{#4}}%
  \fi}
%
\def\DeclareErrorKanjiFont#1#2#3#4#5{%
   \xdef\error@kfontshape{%
      \noexpand\expandafter\noexpand\split@name\noexpand\string
      \expandafter\noexpand\csname#1/#2/#3/#4/#5\endcsname
      \noexpand\@nil}%
   \gdef\default@k@family{#2}%
   \gdef\default@k@series{#3}%
   \gdef\default@k@shape{#4}%
   \global\let\k@family\default@k@family
   \global\let\k@series\default@k@series
   \global\let\k@shape\default@k@shape
   \gdef\f@size{#5}%
   \gdef\f@baselineskip{#5pt}}
%
\@onlypreamble\DeclareKanjiSubstitution
\@onlypreamble\DeclareErrorKanjiFont
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
%
% \begin{macro}{\DeclareFixedFont}
% $B%U%)%s%HL>$r@k8@$9$k%3%^%s%I$G$9!#(B
%
% \changes{v1.2}{1995/11/09}{\break\cs{DeclareFixedFont}$B$NF|K\8l2=(B}
% \changes{v1.3c}{1997/04/09}{$B=D2#%(%s%3!<%I!&%j%9%H$NJ,N%$K$h$k3HD%(B}
% \changes{v1.3f}{1998/08/10}{$B%W%j%"%s%V%k!&%3%^%s%I$K$7$F$7$^$C$F$$$?$N$r2r=|(B}
%    \begin{macrocode}
\def\DeclareFixedFont#1#2#3#4#5#6{%
   \begingroup
      \let\afont\font
      \math@fontsfalse
      \every@math@size{}%
      \fontsize{#6}\z@
      \edef\tmp@item{{#2}}%
      \expandafter\expandafter\expandafter
      \inlist@\expandafter\tmp@item\expandafter{\kyenc@list}%
      \ifin@
        \usekanji{#2}{#3}{#4}{#5}%
        \let\font\jfont
      \else
        \expandafter\expandafter\expandafter
        \inlist@\expandafter\tmp@item\expandafter{\ktenc@list}%
        \ifin@
          \usekanji{#2}{#3}{#4}{#5}%
          \let\font\tfont
        \else
          \useroman{#2}{#3}{#4}{#5}%
          \let\font\afont
        \fi
      \fi
      \global\expandafter\let\expandafter#1\the\font
      \let\font\afont
   \endgroup
  }
%    \end{macrocode}
% \end{macro}
%
%
% \begin{macro}{\reDeclareMathAlphabet}
% \changes{v1.0}{1997/01/30}{\break\cs{reDeclareMathAlphabet}$B$rDI2C!#(B
%    $B$"$j$,$H$&!"(Bymt$B$5$s!#(B}
% \changes{v1.4}{2006/06/27}{\break\cs{reDeclareMathAlphabet}$B$r=$@5!#(B
%    $B$"$j$,$H$&!"(Bymt$B$5$s!#(B}
% \changes{v1.5}{2006/11/10}{\break\cs{reDeclareMathAlphabet}$B$r=$@5!#(B
%    $B$"$j$,$H$&!"(Bymt$B$5$s!#(B}
% $B?t<0%b!<%IFb$G!"?t<0J8;zMQ$NOB2$J8%U%)%s%H$rF1;~$K@Z$jBX$($k%3%^%s%I$G$9!#(B
%
% p\LaTeXe{}$B$K$O!"K\Mh$NF0:n%b!<%I$H(B2.09$B8_49%b!<%I$NFs$D$,$"$j!"(B
% $BN>%b!<%I$G?t<0J8;z$rJQ99$9$k%3%^%s%I$dF0:n$,0[$J$j$^$9!#(B
% $BK\Mh$NF0:n%b!<%I$G$O!"(B|\mathrm{...}|$B$N$h$&$K(B|\math??|$B$K0z?t$r;XDj$7$F(B
% $B;H$$$^$9!#$3$N$H$-$O0z?t$K$@$11F6A$7$^$9!#(B2.09$B8_49%b!<%I$G$O!"(B|\rm|$B$N(B
% $B$h$&$JFsJ8;z%3%^%s%I$r;H$$$^$9!#$3$N%3%^%s%I$K$O0z?t$r<h$i$:!"=qBN$O(B
% $B%0%k!<%T%s%0$NHO0O$GH?1G$5$l$^$9!#FsJ8;z%3%^%s%I$O!"%M%$%F%#%V%b!<%I(B
% $B$G$b;H$($k$h$&$K$J$C$F$$$F!"F0:n$b(B2.09$B8_49%b!<%I$N%3%^%s%I$HF1$8$G$9!#(B
%
% $B$7$+$7!"FbItE*$K$O(B|\math??|$B$H$$$&0l$D$N%3%^%s%I$,$9$Y$F$NF0:n$r<u$1;}$A!"(B
% |\math??|$B%3%^%s%I$d(B|\??|$B%3%^%s%I$+$i8F$S=P$5$l$?>uBV$K1~$8$F!"F0:n$rJQ$((B
% $B$F$$$^$9!#$7$?$,$C$F!"2$J8%U%)%s%H$HOBJ8%U%)%s%H$NN>J}$r0lEY$KJQ99$9$k!"(B
% $B?t<0J8;zJQ99%3%^%s%I$r:n$k$H$-!"$=$l$>$l$N>uBV$K9g$C$?F0:n$GF0$/$h$&$K(B
% $B%U%)%s%H@Z$jBX$(%3%^%s%I$r<B9T$5$;$kI,MW$,$"$j$^$9!#(B
%
%   \textbf{$B;H$$J}(B}
%\begin{verbatim}
% usage: \reDeclareMathAlphabet{\mathAA}{\mathBB}{\mathCC}
%\end{verbatim}
%   $B2$J8!&OBJ8N>MQ$N?t<0J8;zJQ99%3%^%s%I(B |\mathAA| $B$r(B($B:F(B)$BDj5A$7$^$9!#(B
%   $B2$J8MQ$N%3%^%s%I(B |\mathBB| $B$H!"OBJ8MQ$N(B |\mathCC| $B$r(B (p)\LaTeX{} $BI8=`$N(B
%   $BJ}K!$GDj5A$7$F$*$$$?8e!">e$N$h$&$K5-=R$7$^$9!#$J$*!"(B|{\mathBB}{\mathCC}|
%   $B$NItJ,$K$D$$$F$O(B |{\@mathBB}{\@mathCC}| $B$N$h$&$K(B @ $B$r$D$1$?5-=R(B
%   $B$r$7$F$b$+$^$$$^$;$s(B($B8_49@-$N$?$a(B)$B!#>e$N$h$&$JL?Na$rH/9T$9$k$H!"(B
%   |\mathAA| $B$,!"2$J8$KBP$7$F$O(B |\mathBB|$B!"(B $BOBJ8$KBP$7$F$O(B |\mathCC| $B$N0UL#$r(B
%   $B;}$D$h$&$K$J$j$^$9!#(B
%   $BDL>o$O!"(B|\reDeclareMathAlphabet{\mathrm}{\mathrm}{\mathmc}| $B$N$h$&$K(B
%   |AA=BB| $B$H$7$FMQ$$$^$9!#$^$?!"(B|\mathrm| $B$O(B \LaTeX{} kernel $B$K$*$$$F(B
%   $BI8=`$N%3%^%s%I$H$7$F4{$KDj5A$5$l$F$$$k$N$G!"$3$N>l9g$O(B |\mathrm| $B$N(B
%   $B:FDj5A$H$J$j$^$9!#(Bnative mode $B$G$N(B |\rm| $B$N$h$&$J(B two letter command
%   (old font command) $B$KBP$7$F$bF1MM$J$3$H$,0z$-$*$3$j$^$9!#$D$^$j!"(B
%   $B?t<0%b!<%I$K$*$$$F!"?7$?$J(B |\rm| $B$O!"(B\LaTeX{} original $B$N(B |\rm| $B$H(B |\mc|
%   ($B@53N$K8@$($P(B |\mathrm| $B$H(B |\mathmc| $B$G$"$k$,(B)$B$N0UL#$r9g$o$;;}$D$h$&$K(B
%   $B$J$j$^$9!#(B
%
%   \textbf{$BJdB-(B}
% \begin{itemize}
% \item
%   |\mathAA| $B$r:FDj5A$9$kB>$NL?Na(B(|\DeclareSymbolFontAlphabet| $B$rMQ$$$k(B
%     $B%Q%C%1!<%8$N;HMQEy(B)$B$H$N>WFM$rHr$1$k$?$a$K$O!"(B|\AtBeginDocument| $B$rJ;MQ(B
%     $B$9$k$J$I$7$FE83+0LCV$N@)8f$r9T$C$F$/$@$5$$!#(B
% \item
%   $B%F%-%9%H%b!<%I;~$N%(%i!<I=<(MQ$K(B |\mathBB| $B$N$_$rMQ$$$k$3$H$r=|$$$F!"(B
%     |\mathBB| $B$H(B |\mathCC| $B$N=g$O<B:]$K$O0UL#$r;}$A$^$;$s!#OBJ8!"2$J8$N=g$K(B
%     $BDj5A$7$F$bLdBj$O$"$j$^$;$s!#(B
% \item
%   $BBh(B2,3$B0z$-?t$K$O(B |{\@mathBB}{\@mathCC}| $B$N$h$&$K(B |@| $B$r$D$1$?5-=R$b(B
%     $B9T$($^$9!#$?$@$7!"7A<0$OE}0l$7$F$/$@$5$$!#H=CG$OBh(B2$B0z$-?t$G9T$C$F(B
%     $B$$$k$?$a!"(B |{\@mathBB}{\mathCC}| $B$N$h$&$J5-=R$G$O$&$^$/F0:n$7$^$;$s!#(B
%     $B$^$?!"(B|\makeatletter| $B$J>uBV$G(B |{\@mathBB }{\@mathCC  }| $B$N$h$&$J(B |@| $B$H(B
%     $BM>J,$J%9%Z!<%9$r$D$1$?>l9g$K$OL58B%k!<%W$r0z$-5/$3$9$3$H$,$"$j$^$9!#(B
%     $B$3$N$h$&$J5-=R$OHr$1$k$h$&$K$7$F2<$5$$!#(B
% \item
%   |\reDeclareMathAlphabet| $B$r<B9T$9$k:]$K$O!"(B|\mathBB|, |\mathCC| $B$,Dj5A(B
%     $B$5$l$F$$$kI,MW$O$"$j$^$;$s!#<B:]$K(B |\mathAA| $B$rMQ$$$k:]$K$O$3$l$i$N(B
%     |\mathBB|, |\mathCC| $B$,(B (p)\LaTeX{}$BI8=`$NJ}K!$GDj5A$5$l$F$$$kI,MW$,$"$j$^$9!#(B
% \item
%   $BB>$NItJ,$G(B |\mathAA| $B$rA4$/Dj5A$7$J$$>l9g$r=|$-!"(B|\mathAA| $B$O(B
%     |\reDeclareMathAlphabet| $B$r<B9T$9$k0JA0$G(B (p)\LaTeX{}$BI8=`$NJ}K!$GDj5A$5$l(B
%     $B$F$$$kI,MW$,$"$j$^$9(B(|\mathrm| $B$d(B |\mathbf| $B$NI8=`E*$J%3%^%s%I$O!"(B
%     \LaTeX{} kernel $B$G4{$KDj5A$5$l$F$$$^$9(B)$B!#(B
%     |\DeclareMathAlphabet| $B$N>l9g$K$O!"(B|\reDeclareMathAlphabet| $B$h$j$bA0$G(B1$BEY(B
%     |\mathAA| $B$rDj5A$7$F$"$l$P!"(B|\reDeclareMathAlphabet| $B$N8e$m$G:FEY(B
%     |\DeclareMathAlphabet| $B$rMQ$$$F(B |\mathAA| $B$NFbIt$NDj5AFbMF$rJQ99$9$k$3$H(B
%     $B$K$OLdBj$"$j$^$;$s!#(B
%     |\DeclareSymbolFontAlphabet| $B$N>l9g!":FDj5A$K$*$$$F$b(B |\mathAA| $B$,D>@\(B
%     $BDj5A$5$l$k$N$G!"(B|\mathAA| $B$KBP$9$k:G8e$N(B |\DeclareSymbolFontAlphabet| $B$N(B
%     $B$5$i$K8e$G(B |\reDeclareMathAlphabet| $B$r<B9T$7$J$1$l$PM-8z$H$O$J$j$^$;$s!#(B
% \item
%   |\documentstyle| $B$N8_49%b!<%I$N>l9g!"(B|\rm| $BEy$N(B two letter command
%     (old font command) $B$O!"(B|\reDeclareMathAlphabet| $B$H$O4XO"$9$k$3$H$N$J$$(B
%     $BJL8D$N%3%^%s%I$H$7$FDj5A$5$l$^$9!#=>$C$F!"$3$N>l9g$K$O(B
%     |\reDeclareMathAlphabet| $B$rMQ$$$F$b(B |\rm| $BEy$O?t<0%b!<%I$K$*$$$F(B
%     $B2$J8!&OBJ8N>MQ$N$b$N$H$O$J$j$^$;$s!#(B
% \end{itemize}
%    \begin{macrocode}
\def\reDeclareMathAlphabet#1#2#3{%
  \edef#1{\noexpand\protect\expandafter\noexpand\csname%
    \expandafter\@gobble\string#1\space\space\endcsname}%
  \edef\@tempa{\expandafter\@gobble\string#2}%
  \edef\@tempb{\expandafter\@gobble\string#3}%
  \edef\@tempc{\string @\expandafter\@gobbletwo\string#2}%
  \ifx\@tempc\@tempa%
    \edef\@tempa{\expandafter\@gobbletwo\string#2}%
    \edef\@tempb{\expandafter\@gobbletwo\string#3}%
  \fi
  \expandafter\edef\csname\expandafter\@gobble\string#1\space\space\endcsname%
    {\noexpand\DualLang@mathalph@bet%
      {\expandafter\noexpand\csname\@tempa\space\endcsname}%
      {\expandafter\noexpand\csname\@tempb\space\endcsname}%
  }%
}
\@onlypreamble\reDeclareMathAlphabet
\def\DualLang@mathalph@bet#1#2{%
  \relax\ifmmode
    \ifx\math@bgroup\bgroup%     2e normal style     (\mathrm{...})
      \bgroup\let\DualLang@Mfontsw\DLMfontsw@standard
    \else
      \ifx\math@bgroup\relax%    2e two letter style (\rm->\mathrm)
        \let\DualLang@Mfontsw\DLMfontsw@oldstyle
      \else
        \ifx\math@bgroup\@empty% 2.09 oldlfont style ({\mathrm ...})
          \let\DualLang@Mfontsw\DLMfontsw@oldlfont
        \else%                   panic! assume 2e normal style
          \bgroup\let\DualLang@Mfontsw\DLMfontsw@standard
        \fi
      \fi
    \fi
  \else
    \let\DualLang@Mfontsw\@firstoftwo
  \fi
  \DualLang@Mfontsw{#1}{#2}%
}
\def\DLMfontsw@standard#1#2#3{#1{#2{#3}}\egroup}
\def\DLMfontsw@oldstyle#1#2{#1\relax\@fontswitch\relax{#2}}
\def\DLMfontsw@oldlfont#1#2{#1\relax#2\relax}
%    \end{macrocode}
% \end{macro}
%
%
% \begin{macro}{\DeclareRelationFont}
% \begin{macro}{\SetRelationFont}
% $BOBJ8=qBN$KBP$9$k=>B0=qBN$r@k8@$9$k%3%^%s%I$G$9!#(B\emph{$B=>B0=qBN(B}$B$H$O!"(B
% $B$"$kOBJ8=qBN$H%Z%"$K$J$k2$J8=qBN$N$3$H$G$9!#(B
% $B<g$KB?=qBN%Q%C%1!<%8(B|skfonts|$B$rMQ$$$k$?$a$N;EAH$_$G$9!#(B
%
% |\DeclareRelationFont|$B%3%^%s%I$N:G=i$N(B4$B$D$N0z?t$NAH$,OBJ8=qBN$NB0@-!"(B
% $B$=$N8e$N(B4$B$D$N0z?t$NAH$,=>B0=qBN$NB0@-$G$9!#(B
%\begin{verbatim}
%    \DeclareRelationFont{JY1}{mc}{m}{n}{OT1}{cmr}{m}{n}
%    \DeclareRelationFont{JY1}{gt}{m}{n}{OT1}{cmr}{bx}{n}
%\end{verbatim}
% $B>e5-$NNc$O!"L@D+BN$N=>B0=qBN$H$7$F%3%s%T%e!<%?%b%@%s%m!<%^%s!"(B
% $B%4%7%C%/BN$N=>B0=qBN$H$7$F%3%s%T%e!<%?%b%@%s%\!<%k%I$r@k8@$7$F$$$^$9!#(B
% $B%+%l%s%HOBJ8=qBN$,(B|\JY1/mc/m/n|$B$H$J$k$H!"(B
% $B<+F0E*$K2$J8=qBN$,(B|\OT1/cmr/m/n|$B$K$J$j$^$9!#(B
% $B$^$?!"OBJ8=qBN$,(B|\JY1/gt/m/n|$B$K$J$C$?$H$-$O!"(B
% $B2$J8=qBN$,(B|\OT1/cmr/bx/n|$B$K$J$j$^$9!#(B
%
% $BOBJ8=qBN$N%7%'%$%W;XDj$r>JN,$9$k$H%(%s%3!<%I!?%U%!%_%j!?%7%j!<%:$NAH9g$;$G(B
% $B=>B0=qBN$,;H$o$l$^$9!#$3$N$H$-$O!"(B|\selectfont|$B$,8F$S=P$5$l$?;~E@$G$N(B
% $B%7%'%$%W!J(B|\f@shape|$B!K$NCM$,;H$o$l$^$9!#(B
%
% |\DeclareRelationFont|$B$N@_DjCM$O%0%m!<%P%k$KM-8z$G$9!#(B
% |\SetRelationFont|$B$N@_DjCM$O%m!<%+%k$KM-8z$G$9!#(B
% $B%U%)%s%HDj5A%U%!%$%k$G@k8@$r$9$k>l9g$O!"(B
% |\DeclareRelationFont|$B$r;H$C$F$/$@$5$$!#(B
%    \begin{macrocode}
\def\all@shape{all}%
\def\DeclareRelationFont#1#2#3#4#5#6#7#8{%
  \def\rel@shape{#4}%
  \ifx\rel@shape\@empty
     \global
     \expandafter\def\csname rel@#1/#2/#3/all\endcsname{%
       \romanencoding{#5}\romanfamily{#6}%
       \romanseries{#7}}%
  \else
     \global
     \expandafter\def\csname rel@#1/#2/#3/#4\endcsname{%
       \romanencoding{#5}\romanfamily{#6}%
       \romanseries{#7}\romanshape{#8}}%
  \fi
}
\def\SetRelationFont#1#2#3#4#5#6#7#8{%
  \def\rel@shape{#4}%
  \ifx\rel@shape\@empty
     \expandafter\def\csname rel@#1/#2/#3/all\endcsname{%
       \romanencoding{#5}\romanfamily{#6}%
       \romanseries{#7}}%
  \else
     \expandafter\def\csname rel@#1/#2/#3/#4\endcsname{%
       \romanencoding{#5}\romanfamily{#6}%
       \romanseries{#7}\romanshape{#8}}%
  \fi
}
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
%
% \begin{macro}{\if@knjcmd}
% \begin{macro}{\userelfont}
% |\if@knjcmd|$B$O2$J8=qBN$r=>B0=qBN$K$9$k$+$I$&$+$N%U%i%0$G$9!#(B
% $B$3$N%U%i%0$,??$K$J$k$H!"2$J8=qBN$K=>B0=qBN$,;H$o$l$^$9!#(B
% $B$3$N%U%i%0$O(B|\userelfont|$B%3%^%s%I$K$h$C$F!"(B\emph{$B??(B}$B$H$J$j$^$9!#(B
% $B$=$7$F(B|\selectfont|$B<B9T8e$K$O(B\emph{$B56(B}$B$K=i4|2=$5$l$^$9!#(B
%    \begin{macrocode}
\newif\if@knjcmd
\def\userelfont{\@knjcmdtrue}
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\selectfont}
% |\selectfont|$B$N%*%j%8%J%k$+$i$NJQ99ItJ,$O!"<!$N#3E@$G$9!#(B
% \begin{itemize}
% \item $BOBJ8=qBN$rJQ99$9$kItJ,(B
% \item $B=>B0=qBN$KJQ99$9$kItJ,(B
% \item $BOB2$J8$N%Y!<%9%i%$%s$rD4@0$9$kItJ,(B
% \end{itemize}
%
% \changes{v1.0c}{1995/08/22}{$B=D2#N>J}$N%U%)%s%H$r@Z$jBX$($k$h$&$K$7$?(B}
% \changes{v1.2}{1995/11/22}{$B%(%i!<%U%)%s%H$KBP1~$7$?(B}
% \changes{v1.3n}{2004/08/10}{$BOBJ8%(%s%3!<%G%#%s%0$N@Z$jBX$($rM-8z2=(B}
% |\selectfont|$B%3%^%s%I$O!"$^$:!"OBJ8%U%)%s%H$r@Z$jBX$($^$9!#(B
%    \begin{macrocode}
%</plcore>
%<*plcore|trace>
\DeclareRobustCommand\selectfont{%
  \let\tmp@error@fontshape\error@fontshape
  \let\error@fontshape\error@kfontshape
  \edef\tmp@item{{\k@encoding}}%
  \expandafter\expandafter\expandafter
  \inlist@\expandafter\tmp@item\expandafter{\kyenc@list}%
  \ifin@
    \let\cy@encoding\k@encoding
    \edef\ct@encoding{\csname t@enc@\k@encoding\endcsname}%
  \else
    \expandafter\expandafter\expandafter
    \inlist@\expandafter\tmp@item\expandafter{\ktenc@list}%
    \ifin@
      \let\ct@encoding\k@encoding
      \edef\cy@encoding{\csname y@enc@\k@encoding\endcsname}%
    \else
      \@latex@error{KANJI Encoding scheme `\k@encoding' unknown}\@eha
    \fi
  \fi
  \let\font\tfont
  \let\k@encoding\ct@encoding
  \xdef\font@name{\csname\curr@kfontshape/\f@size\endcsname}%
  \pickup@font
  \font@name
  \let\font\jfont
  \let\k@encoding\cy@encoding
  \xdef\font@name{\csname\curr@kfontshape/\f@size\endcsname}%
  \pickup@font
  \font@name
  \expandafter\def\expandafter\k@encoding\tmp@item
  \kenc@update
  \let\error@fontshape\tmp@error@fontshape
%    \end{macrocode}
% $B<!$K!"(B|\if@knjcmd|$B$,??$N>l9g!"(B
% $B2$J8=qBN$r8=:_$NOBJ8=qBN$K4XO"IU$1$5$l$?%U%)%s%H$KJQ$($^$9!#(B
% $B$3$N%U%i%0$O(B|\userelfont|$B%3%^%s%I$K$h$C$F(B\emph{$B??(B}$B$H$J$j$^$9!#(B
% $B$3$N%U%i%0$O$3$3$G:F$S!"(B\emph{$B56(B}$B$K@_Dj$5$l$^$9!#(B
%    \begin{macrocode}
  \if@knjcmd \@knjcmdfalse
    \expandafter\ifx
    \csname rel@\k@encoding/\k@family/\k@series/\k@shape\endcsname\relax
      \expandafter\ifx
         \csname rel@\k@encoding/\k@family/\k@series/all\endcsname\relax
      \else
         \csname rel@\k@encoding/\k@family/\k@series/all\endcsname
      \fi
    \else
       \csname rel@\k@encoding/\k@family/\k@series/\k@shape\endcsname
    \fi
  \fi
%    \end{macrocode}
% $B$=$7$F!"2$J8%U%)%s%H$r@Z$jBX$($^$9!#(B
%    \begin{macrocode}
  \let\font\afont
  \xdef\font@name{\csname\curr@fontshape/\f@size\endcsname}%
  \pickup@font
  \font@name
%<trace>  \ifnum \tracingfonts>\tw@
%<trace>    \@font@info{Roman:Switching to \font@name}\fi
  \enc@update
%    \end{macrocode}
% $B:G8e$K!"%5%$%:$,JQ99$5$l$F$$$l$P!"%Y!<%9%i%$%s$ND4@0$J$I$r9T$J$$$^$9!#(B
% $B1Q8lHG$N(B|\selectfont|$B$G$O:G=i$K9T$J$C$F$$$^$9$,!"(B
% p\LaTeXe{}$B$G$O%Y!<%9%i%$%s%7%U%H$ND4@0$r$9$k$?$a$K!"(B
% $B=qBN$r3NDj$7$J$1$l$P$J$i$J$$$?$a!"0lHV:G8e$K9T$J$$$^$9(B
%
% \changes{v1.1b}{1995/04/26}{$B%Y!<%9%i%$%s$ND4@0$r%5%$%:JQ99;~$K(B
%       $B9T$J$&$h$&$K$7$?(B}
%    \begin{macrocode}
  \ifx\f@linespread\baselinestretch \else
    \set@fontsize\baselinestretch\f@size\f@baselineskip
  \fi
  \size@update}
%    \end{macrocode}
% \end{macro}
%
%
% \begin{macro}{\KanjiEncodingPair}
% $BOBJ8$N=D2#$N%(%s%3!<%G%#%s%0$O$=$l$>$lBP$K$7$F07$&$?$a!"%;%C%H2=$7$^$9(B
% \changes{v1.3n}{2004/08/10}{$BOBJ8%(%s%3!<%G%#%s%0$N@Z$jBX$($rM-8z2=(B}
%    \begin{macrocode}
\def\KanjiEncodingPair#1#2{\@namedef{t@enc@#1}{#2}\@namedef{y@enc@#2}{#1}}
\KanjiEncodingPair{JY1}{JT1}
%    \end{macrocode}
% \end{macro}
%
%
% \begin{macro}{\set@fontsize}
% |\fontsize|$B%3%^%s%I$NFbIt7A<0$G$9!#(B
% $B%Y!<%9%i%$%s$N@_Dj$H!";YCl$N@_Dj$r9T$J$$$^$9!#(B
%    \begin{macrocode}
\def\set@fontsize#1#2#3{%
    \@defaultunits\@tempdimb#2pt\relax\@nnil
    \edef\f@size{\strip@pt\@tempdimb}%
    \@defaultunits\@tempskipa#3pt\relax\@nnil
    \edef\f@baselineskip{\the\@tempskipa}%
    \edef\f@linespread{#1}%
    \let\baselinestretch\f@linespread
    \def\size@update{%
      \baselineskip\f@baselineskip\relax
      \baselineskip\f@linespread\baselineskip
      \normalbaselineskip\baselineskip
%    \end{macrocode}
% $B$3$3$G!"%Y!<%9%i%$%s%7%U%H$ND4@0$H;YCl$rAH$_N)$F$^$9!#(B
%    \begin{macrocode}
      \adjustbaseline
      \setbox\strutbox\hbox{\yoko
          \vrule\@width\z@
                \@height.7\baselineskip \@depth.3\baselineskip}%
      \setbox\tstrutbox\hbox{\tate
          \vrule\@width\z@
                \@height.5\baselineskip \@depth.5\baselineskip}%
      \setbox\zstrutbox\hbox{\tate
          \vrule\@width\z@
                \@height.7\baselineskip \@depth.3\baselineskip}%
%    \end{macrocode}
% $B%U%)%s%H%5%$%:$H%Y!<%9%i%$%s$K4X$9$k?GCG>pJs$r=PNO$7$^$9!#(B
%    \begin{macrocode}
%<*trace>
     \ifnum \tracingfonts>\tw@
       \ifx\f@linespread\@empty
         \let\reserved@a\@empty
       \else
         \def\reserved@a{\f@linespread x}%
       \fi
       \@font@info{Changing size to\space
             \f@size/\reserved@a \f@baselineskip}%
       \aftergroup\type@restoreinfo
     \fi
%</trace>
        \let\size@update\relax}}
%    \end{macrocode}
% \end{macro}
%
%
% \begin{macro}{\adjustbaseline}
% $B8=:_$NOBJ8%U%)%s%H$N6uGr!J(BEUC$B%3!<%I(B\texttt{0xA1A1}$B!K$NCf1{$K(B
% $B8=:_$N2$J8%U%)%s%H$N(B``/''$B$NCf1{$,$/$k$h$&$K%Y!<%9%i%$%s%7%U%H$r@_Dj$7$^$9!#(B
% \changes{v1.0c}{1995/08/31}{$B2$J8=qBN$N4p=`$r(B`M'$B$+$i(B`/'$B$KJQ99(B}
% \changes{v1.2}{1995/11/21}{$B=DAH;~$N$_D4@0$9$k$h$&$K$7$?(B}
% \changes{v1.3j}{2000/10/24}{$BJ8F,$K3C3g8L$J$I$,$"$k$H$-$KM>7W$J%"%-$,$G(B
%    $B$kLdBj$KBP=h(B}
% \changes{v1.3l}{2002/04/05}{\cs{adjustbaseline}$B$G%U%)%s%H$N4p=`CM$,=D=q$-(B
%    $B0J30$G$O@_Dj$5$l$J$$$N$r=$@5(B}
%
% $BEv=i$O$^$:%Y!<%9%i%$%s%7%U%HNL$r%<%m$K$7$F$$$^$7$?$,!"(B
% \cs{tbaselineshift}$B$rO"B3$7$FJQ99$7$?8e$K3C3g8LN`$r;H$&$HM>7W$J%"%-$,(B
% $B$G$kLdBj$,5/$3$k$?$a!"(B\cs{tbaselineshift}$B$r%<%m%/%j%"$9$k=hM}$r:o=|$7(B
% $B$^$7$?!#(B
%
% $B$7$+$7!"$=$l$G$O%Y!<%9%i%$%s%7%U%H$rD4@0:Q$_$N2$J8%\%C%/%9$HHf3S$7$F(B
% $B$7$^$&$?$a!"7W;;$7$?CM$,Bg$-$/$J$C$F$7$^$$$^$9!#$=$3$G!"$3$N%\%C%/%9(B
% $B$NCf$G%<%m$K$9$k$h$&$K$7$^$7$?!#$^$?!"(B``/''$B$HHf3S$7$F$$$?$N$r(B``M''$B$K(B 
% $B$7$^$7$?!#(B
% \changes{v1.3k}{2001/05/10}{\cs{adjustbaseline}$B$ND4@0NL(B}
%    \begin{macrocode}
\newbox\adjust@box
\newdimen\adjust@dimen
\def\adjustbaseline{%
%    \end{macrocode}
% $BOBJ8%U%)%s%H$N4p=`CM$r@_Dj$7$^$9!#(B
%    \begin{macrocode}
    \setbox\adjust@box\hbox{\char\euc"A1A1}%"
    \cht\ht\adjust@box
    \cdp\dp\adjust@box
    \cwd\wd\adjust@box
    \cvs\normalbaselineskip
    \chs\cwd
    \cHT\cht \advance\cHT\cdp
%    \end{macrocode}
% $B4p=`$H$J$k2$J8%U%)%s%H$NJ8;z$r4^$s$@%\%C%/%9$r:n@.$7!"(B
% $B%Y!<%9%i%$%s%7%U%HNL$N7W;;$r9T$J$$$^$9!#(B
% $B7W;;<0$O<!$N$H$*$j$G$9!#(B
%
% \begin{eqnarray*}
% \textmc{$B%Y!<%9%i%$%s%7%U%HNL(B} &=&
%   \{ (\textmc{$BA43Q6uGr$N?<$5(B}) - (\textmc{/$B$N?<$5(B}) \} \\
%       &&- \frac{(\textmc{$BA43Q6uGr$N9b$5(B$+$$B?<$5(B})
%              - (\textmc{/$B$N9b$5(B$+$$B?<$5(B})}{2}
% \end{eqnarray*}
%
%    \begin{macrocode}
  \iftdir
    \setbox\adjust@box\hbox{\tbaselineshift\z@ M}%
    \adjust@dimen\ht\adjust@box
    \advance\adjust@dimen\dp\adjust@box
    \advance\adjust@dimen-\cHT
    \divide\adjust@dimen\tw@
    \advance\adjust@dimen\cdp
    \advance\adjust@dimen-\dp\adjust@box
    \tbaselineshift\adjust@dimen
%<trace>  \ifnum \tracingfonts>\tw@
%<trace>    \typeout{baselineshift:\the\tbaselineshift}
%<trace>  \fi
  \fi}
%</plcore|trace>
%<*plcore>
%    \end{macrocode}
% \end{macro}
%
%
% \begin{macro}{\romanencoding}
% \begin{macro}{\kanjiencoding}
% \begin{macro}{\fontencoding}
% $B=qBN$N%(%s%3!<%I$r;XDj$9$k%3%^%s%I$G$9!#(B
% |\fontencoding|$B%3%^%s%I$OOB2$J8$N$I$A$i$+$K1F6A$7$^$9!#(B
% |\DeclareKanjiEncoding|$B$G;XDj$5$l$?%(%s%3!<%I$OOBJ8%(%s%3!<%I$H$7$F!"(B
% |\DeclareFontEncoding|$B$G;XDj$5$l$?%(%s%3!<%I$O2$J8%(%s%3!<%I$H$7$F(B
% $BG'<1$5$l$^$9!#(B
%
% |\kanjiencoding|$B$H(B|\romanencoding|$B$OM?$($i$l$?0z?t$,!"(B
% $B%(%s%3!<%I$H$7$FEPO?$5$l$F$$$k$+$I$&$+$@$1$r3NG'$7!"(B
% $B$=$l$,OBJ8$+2$J8$+$N%A%'%C%/$O9T$J$C$F$$$^$;$s!#(B
% $B$=$N$?$a!"9bB.$KF0:n$r$7$^$9$,!"(B|\kanjiencoding|$B$K2$J8%(%s%3!<%I$r;XDj$7$?$j!"(B
% $B5U$K(B|\romanencoding|$B$KOBJ8%(%s%3!<%I$r;XDj$7$?>l9g$O%(%i!<$H$J$j$^$9!#(B
%    \begin{macrocode}
\DeclareRobustCommand\romanencoding[1]{%
    \expandafter\ifx\csname T@#1\endcsname\relax
      \@latex@error{Encoding scheme `#1' unknown}\@eha
    \else
      \edef\f@encoding{#1}%
      \ifx\cf@encoding\f@encoding
        \let\enc@update\relax
      \else
        \let\enc@update\@@enc@update
      \fi
    \fi
}
\DeclareRobustCommand\kanjiencoding[1]{%
    \expandafter\ifx\csname T@#1\endcsname\relax
      \@latex@error{KANJI Encoding scheme `#1' unknown}\@eha
    \else
      \edef\k@encoding{#1}%
      \ifx\ck@encoding\k@encoding
         \let\kenc@update\relax
      \else
         \let\kenc@update\@@kenc@update
      \fi
    \fi
}
\DeclareRobustCommand\fontencoding[1]{%
  \edef\tmp@item{{#1}}%
  \expandafter\expandafter\expandafter
  \inlist@\expandafter\tmp@item\expandafter{\kenc@list}%
  \ifin@ \kanjiencoding{#1}\else\romanencoding{#1}\fi}
%    \end{macrocode}
% \end{macro}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\@@kenc@update}
% |\kanjiencoding|$B%3%^%s%I$N%3!<%I$+$i$b$o$+$k$h$&$K!"(B
% |\ck@encoding|$B$H(B|\k@encoding|$B$,0[$J$k>l9g!"(B
% |\kenc@update|$B%3%^%s%I$O(B|\@@kenc@update|$B%3%^%s%I$HEy$7$/$J$j$^$9!#(B
%
% |\@@kenc@update|$B%3%^%s%I$O!"$=$N%(%s%3!<%I$G$N%G%U%)%k%HCM$r@_Dj$9$k$?$a$N(B
% $B%3%^%s%I$G$9!#2$J8MQ$N(B|\@@enc@update|$B%3%^%s%I$G$O!"(B
% \mlineplus{2}$B9TL\$H(B\mlineplus{3}$B9TL\$N$h$&$JBeF~$b$7$F$$$^$9$,!"(B
% $BOBJ8MQ$K$O%3%a%s%H$K$7$F$"$j$^$9!#(B
% $B$3$l$i$O(B|\DeclareTextCommand|$B$d(B|\ProvideTextCommand|$B$J$I$G(B
% $B%(%s%3!<%I$4$H$K@_Dj$5$l$k%3%^%s%I$r;H$&$?$a$N;EAH$_$G$9!#(B
% $B$7$+$7!"OBJ8%(%s%3!<%I$K0MB8$9$k$h$&$J%3%^%s%I$d%^%/%m$r:n@.$9$k$3$H$O!"(B
% $B8=;~E@$G$O!"$J$$$H;W$$$^$9!#(B
%
% \changes{v1.0c}{1995/08/22}{$B=D2#MQ%(%s%3!<%I$NJ]B8(B}
%    \begin{macrocode}
\def\@@kenc@update{%
%  \expandafter\let\csname\ck@encoding -cmd\endcsname\@changed@kcmd
%  \expandafter\let\csname\k@encoding-cmd\endcsname\@current@cmd
  \default@KT
  \csname T@\k@encoding\endcsname
  \csname D@\k@encoding\endcsname
  \let\kenc@update\relax
  \let\ck@encoding\k@encoding
  \edef\tmp@item{{\k@encoding}}%
  \expandafter\expandafter\expandafter
  \inlist@\expandafter\tmp@item\expandafter{\kyenc@list}%
  \ifin@ \let\cy@encoding\k@encoding
  \else
    \expandafter\expandafter\expandafter
    \inlist@\expandafter\tmp@item\expandafter{\ktenc@list}%
    \ifin@ \let\ct@encoding\k@encoding
    \else
      \@latex@error{KANJI Encoding scheme `\k@encoding' unknown}\@eha
    \fi
  \fi
}
\let\kenc@update\relax
%    \end{macrocode}
%
% |\@changed@cmd|$B$NOBJ8%(%s%3!<%G%#%s%0%P!<%8%g%s!#(B
% \changes{v1.3n}{2004/08/10}{$BOBJ8%(%s%3!<%G%#%s%0$N@Z$jBX$($rM-8z2=(B}
%    \begin{macrocode}
\def\@changed@kcmd#1#2{%
   \ifx\protect\@typeset@protect
      \@inmathwarn#1%
      \expandafter\ifx\csname\ck@encoding\string#1\endcsname\relax
         \expandafter\ifx\csname ?\string#1\endcsname\relax
            \expandafter\def\csname ?\string#1\endcsname{%
               \TextSymbolUnavailable#1%
            }%
         \fi
         \global\expandafter\let
               \csname\cf@encoding \string#1\expandafter\endcsname
               \csname ?\string#1\endcsname
      \fi
      \csname\ck@encoding\string#1%
         \expandafter\endcsname
   \else
      \noexpand#1%
   \fi}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@notkfam}
% \begin{macro}{\@notffam}
% |\fontfamily|$B%3%^%s%IFb$G;HMQ$9$k%U%i%0$G$9!#(B
% |@notkfam|$B%U%i%0$OOBJ8%U%!%_%j$G$J$+$C$?$3$H$r!"(B
% |@notffam|$B%U%i%0$O2$J8%U%!%_%j$G$J$+$C$?$3$H$r<($7$^$9!#(B
%
% \changes{v1.2}{1995/11/21}{\cs{fontfamily}$B%3%^%s%IMQ$N%U%i%0DI2C(B}
%    \begin{macrocode}
\newif\if@notkfam
\newif\if@notffam
%    \end{macrocode}
% \changes{v1.3m}{2004/06/14}{\cs{fontfamily}$B%3%^%s%IFbIt%U%i%0JQ99(B}
%    \begin{macrocode}
\newif\if@tempswz
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
%
% \begin{macro}{\romanfamily}
% \begin{macro}{\kanjifamily}
% \begin{macro}{\fontfamily}
% $B=qBN$N%U%!%_%j$r;XDj$9$k%3%^%s%I$G$9!#(B
%
% |\kanjifamily|$B$H(B|\romanfamily|$B$OM?$($i$l$?0z?t$,!"(B
% $BOBJ8$"$k$$$O2$J8$N%U%!%_%j$H$7$F@5$7$$$+$N%A%'%C%/$O9T$J$C$F$$$^$;$s!#(B
% $B$=$N$?$a!"9bB.$KF0:n$r$7$^$9$,!"(B|\kanjifamily|$B$K2$J8%U%!%_%j$r;XDj$7$?$j!"(B
% $B5U$K(B|\romanfamily|$B$KOBJ8%U%!%_%j$r;XDj$7$?>l9g$O!"%(%i!<$H$J$j!"(B
% $BBeMQ%U%)%s%H$+%(%i!<%U%)%s%H$,;H$o$l$^$9!#(B
%    \begin{macrocode}
\DeclareRobustCommand\romanfamily[1]{\edef\f@family{#1}}
\DeclareRobustCommand\kanjifamily[1]{\edef\k@family{#1}}
%    \end{macrocode}
%
% |\fontfamily|$B$O!";XDj$5$l$?CM$K$h$C$F!"OBJ8%U%!%_%j$+2$J8%U%!%_%j!"(B
% \emph{$B$"$k$$$ON>J}(B}$B$N%U%!%_%j$r@Z$jBX$($^$9!#(B
% $BOB2$J8$H$b$KL58z$J%U%!%_%jL>$,;XDj$5$l$?>l9g$O!"OB2$J8$H$b$KBeBX=qBN$,(B
% $B;HMQ$5$l$^$9!#(B
%
% $B0z?t$,(B|\rmfamily|$B$N$h$&$JL>A0$GM?$($i$l$k2DG=@-$,$"$k$?$a!"(B
% $B$^$:!"$3$l$rE83+$7$?$b$N$r:n$j$^$9!#(B
%
% $B$^$?!"OBJ8%U%!%_%j$H2$J8%U%!%_%j$N$=$l$>$l$K$J$+$C$?$3$H$r<($9%U%i%0$r(B
% $B56$K%;%C%H$7$^$9!#(B
%
% \changes{v1.2}{1995/11/21}{$BBeMQ%U%)%s%H$,;H$o$l$J$$%P%0$r=$@5(B}
% \changes{v1.3m}{2004/06/14}{\cs{fontfamily}$B%3%^%s%IFbIt%U%i%0JQ99(B}
% \changes{v1.3o}{2005/01/04}{\cs{fontfamily}$BCf$N%U%i%0=$@5(B}
%    \begin{macrocode}
\DeclareRobustCommand\fontfamily[1]{%
  \edef\tmp@item{{#1}}%
  \@notkfamfalse
  \@notffamfalse
%    \end{macrocode}
% $B<!$K!"$3$N0z?t$,(B|\kfam@list|$B$KEPO?$5$l$F$$$k$+$I$&$+$rD4$Y$^$9!#(B
% $BEPO?$5$l$F$$$l$P!"(B|\k@family|$B$K$=$NCM$rF~$l$^$9!#(B
%    \begin{macrocode}
  \expandafter\expandafter\expandafter
  \inlist@\expandafter\tmp@item\expandafter{\kfam@list}%
  \ifin@ \edef\k@family{#1}%
%    \end{macrocode}
% $B$=$&$G$J$$$H$-$O!"(B|\notkfam@list|$B$KEPO?$5$l$F$$$k$+$I$&$+$rD4$Y$^$9!#(B
% $BEPO?$5$l$F$$$l$P!"$3$N0z?t$OOBJ8%U%!%_%j$G$O$"$j$^$;$s$N$G!"(B
% |\@notkfam|$B%U%i%0$r??$K$7$F!"2$J8%U%!%_%j$N%k!<%A%s$K0\$j$^$9!#(B
%
% $B$3$N$H$-!"(B|\efam@list|$B$rD4$Y$k$N$G$O$J$$$3$H$KCm0U$r$7$F$/$@$5$$!#(B
% |\efam@list|$B$rD4$Y!"$3$l$K$J$$%U%!%_%j$rOBJ8%U%!%_%j$G$"$k$H$9$k$H!"(B
% $B$?$H$($P!"2$J8%J!<%k%U%!%_%j$,Dj5A$5$l$F$$$k$1$l$I$b!"OBJ8%J!<%k%U%!%_%j(B
% $B$,L$Dj5A$N>l9g!"(B|\fontfamily{nar}|$B$H$$$&;XDj$O!"(B|nar|$B$,(B|\efam@list|$B$K$@$1!"(B
% $BEPO?$5$l$F$$$k$?$a!"OBJ8=qBN$r%J!<%k$K$9$k$3$H$,$G$-$^$;$s!#(B
%
% $B5U$K!"(B|\kfam@list|$B$KEPO?$5$l$F$$$J$$$+$i$H$$$C$F!"(B|\k@family|$B$K(B|nar|$B$r@_Dj(B
% $B$9$k$H!"(B|cmr|$B$N$h$&$J%U%!%_%j$b(B|\k@family|$B$K@_Dj$5$l$k2DG=@-$,$"$j$^$9!#(B
% $B$7$?$,$C$F!"!V2$J8$G$J$$!W$rL@<(E*$K<($9(B|\notkfam@list|$B$r8+$kI,MW$,$"$j$^$9!#(B
%    \begin{macrocode}
  \else
    \expandafter\expandafter\expandafter
    \inlist@\expandafter\tmp@item\expandafter{\notkfam@list}%
    \ifin@ \@notkfamtrue
%    \end{macrocode}
% |\notkfam@list|$B$KEPO?$5$l$F$$$J$$>l9g$O!"(B
% $B%U%)%s%HDj5A%U%!%$%k$,B8:_$9$k$+$I$&$+$rD4$Y$^$9!#(B
% $B%U%!%$%k$,B8:_$9$k>l9g$O!"(B|\k@family|$B$rJQ99$7$^$9!#(B
% $B%U%!%$%k$,B8:_$7$J$$>l9g$O!"(B|\notkfam@list|$B$KEPO?$7$^$9!#(B
%
% |\kenc@list|$B$KEPO?$5$l$F$$$k%(%s%3!<%I$H!";XDj$5$l$?OBJ8%U%!%_%j$N(B
% $BAH9g$;$N%U%)%s%HDj5A%U%!%$%k$,B8:_$9$k>l9g$O!"(B|\k@family|$B$K;XDj$5$l$?(B
% $BCM$rF~$l$^$9!#(B
% \changes{v1.3c}{1997/04/24}%
%    {$B%U%)%s%HDj5A%U%!%$%kL>$r>.J8;z$KJQ49$7$F$+$iC5$9$h$&$K$7$?!#(B}
% \changes{v1.3e}{1997/07/10}{fd$B%U%!%$%kL>$N>.J8;z2=$,8z$$$F$$$J$+$C$?$N$r(B
%    $B=$@5!#$"$j$,$H$&!"Bg4d$5$s(B}
%    \begin{macrocode}
    \else
      \@tempswzfalse
      \def\fam@elt{\noexpand\fam@elt}%
      \message{(I search kanjifont definition file:}%
      \def\enc@elt<##1>{\message{.}%
        \edef\reserved@a{\lowercase{\noexpand\IfFileExists{##1#1.fd}}}%
        \reserved@a{\@tempswztrue}{}\relax}%
      \kenc@list
      \message{)}%
      \if@tempswz
        \edef\k@family{#1}%
%    \end{macrocode}
% $B$D$.$NItJ,$,<B9T$5$l$k$N$O!"OBJ8%U%!%_%j$H$7$FG'<1$G$-$J$+$C$?>l9g$G$9!#(B
% $B$3$N>l9g$O!"(B|\@notkfam|$B%U%i%0$r??$K$7$F!"(B|\notkfam@list|$B$KEPO?$7$^$9!#(B
% \changes{v1.1b}{1995/05/10}{\cs{notkfam@list}$B$K!"(B
%   $B%(%s%3!<%I$4$H$KEPO?$5$l$F$7$^$&$N$r=$@5$7$?!#2$J8$K$D$$$F$bF1MM!#(B}
%    \begin{macrocode}
      \else
        \@notkfamtrue
        \xdef\notkfam@list{\notkfam@list\fam@elt<#1>}%
      \fi
%    \end{macrocode}
% |\kfam@list|$B$H(B|\notkfam@list|$B$KEPO?$5$l$F$$$k$+$I$&$+$r(B
% $BD4$Y$?(B|\ifin@|$B$rJD$8$^$9!#(B
%    \begin{macrocode}
  \fi\fi
%    \end{macrocode}
% $B2$J8%U%!%_%j$N>l9g$b!"OBJ8%U%!%_%j$HF1MM$NJ}K!$G3NG'$r$7$^$9!#(B
% \changes{v1.3e}{1997/07/10}{fd$B%U%!%$%kL>$N>.J8;z2=$,8z$$$F$$$J$+$C$?$N$r=$@5(B}
%    \begin{macrocode}
  \expandafter\expandafter\expandafter
  \inlist@\expandafter\tmp@item\expandafter{\ffam@list}%
  \ifin@ \edef\f@family{#1}\else
    \expandafter\expandafter\expandafter
    \inlist@\expandafter\tmp@item\expandafter{\notffam@list}%
    \ifin@ \@notffamtrue \else
      \@tempswzfalse
      \def\fam@elt{\noexpand\fam@elt}%
      \message{(I search font definition file:}%
      \def\enc@elt<##1>{\message{.}%
        \edef\reserved@a{\lowercase{\noexpand\IfFileExists{##1#1.fd}}}%
        \reserved@a{\@tempswztrue}{}\relax}%
      \fenc@list
      \message{)}%
      \if@tempswz
        \edef\f@family{#1}%
      \else
        \@notffamtrue
        \xdef\notffam@list{\notffam@list\fam@elt<#1>}%
      \fi
  \fi\fi
%    \end{macrocode}
% $B:G8e$K!";XDj$5$l$?J8;zNs$,!"OBJ8%U%!%_%j$H2$J8%U%!%_%j$N$$$:$l$+!"(B
% $B$"$k$$$ON>J}$H$7$FG'<1$5$l$?$+$I$&$+$r3NG'$7$^$9!#(B
%
% $B$I$A$i$H$bG'<1$5$l$F$$$J$$>l9g$O!"%U%!%_%j$N;XDj%_%9$G$9$N$G!"(B
% $BBeMQ%U%)%s%H$r;H$&$?$a$K!"8N0U$K;XDj$5$l$?J8;zNs$r%U%!%_%j$K(B
% $BF~$l$^$9!#(B
%    \begin{macrocode}
  \if@notkfam\if@notffam
      \edef\k@family{#1}\edef\f@family{#1}%
  \fi\fi}
%    \end{macrocode}
% \end{macro}
% \end{macro}
% \end{macro}
%
%
% \begin{macro}{\romanseries}
% \begin{macro}{\kanjiseries}
% \begin{macro}{\fontseries}
% $B=qBN$N%7%j!<%:$r;XDj$9$k%3%^%s%I$G$9!#(B
% |\fontseries|$B%3%^%s%I$OOB2$J8$NN>J}$K1F6A$7$^$9!#(B
%    \begin{macrocode}
\DeclareRobustCommand\romanseries[1]{\edef\f@series{#1}}
\DeclareRobustCommand\kanjiseries[1]{\edef\k@series{#1}}
\DeclareRobustCommand\fontseries[1]{\kanjiseries{#1}\romanseries{#1}}
%    \end{macrocode}
% \end{macro}
% \end{macro}
% \end{macro}
%
%
% \begin{macro}{\romanshape}
% \begin{macro}{\kanjishape}
% \begin{macro}{\fontshape}
% $B=qBN$N%7%'%$%W$r;XDj$9$k%3%^%s%I$G$9!#(B
% |\fontshape|$B%3%^%s%I$OOB2$J8$NN>J}$K1F6A$7$^$9!#(B
%    \begin{macrocode}
\DeclareRobustCommand\romanshape[1]{\edef\f@shape{#1}}
\DeclareRobustCommand\kanjishape[1]{\edef\k@shape{#1}}
\DeclareRobustCommand\fontshape[1]{\kanjishape{#1}\romanshape{#1}}
%    \end{macrocode}
% \end{macro}
% \end{macro}
% \end{macro}
%
%
% \begin{macro}{\usekanji}
% \begin{macro}{\useroman}
% \begin{macro}{\usefont}
% $B=qBNB0@-$r0lEY$K;XDj$9$k%3%^%s%I$G$9!#(B
% $BOBJ8=qBN$K$O(B|\usekanji|$B$r!"2$J8=qBN$K$O(B|\useroman|$B$r;XDj$7$F$/$@$5$$!#(B
%
% |\usefont|$B%3%^%s%I$O!"Bh0l0z?t$G;XDj$5$l$k%(%s%3!<%I$K$h$C$F!"(B
% $BOBJ8$^$?$O2$J8%U%)%s%H$r@Z$jBX$($^$9!#(B
%    \begin{macrocode}
\def\usekanji#1#2#3#4{%
    \kanjiencoding{#1}\kanjifamily{#2}\kanjiseries{#3}\kanjishape{#4}%
    \selectfont\ignorespaces}
\def\useroman#1#2#3#4{%
    \romanencoding{#1}\romanfamily{#2}\romanseries{#3}\romanshape{#4}%
    \selectfont\ignorespaces}
\def\usefont#1#2#3#4{%
  \edef\tmp@item{{#1}}%
  \expandafter\expandafter\expandafter
  \inlist@\expandafter\tmp@item\expandafter{\kenc@list}%
  \ifin@ \usekanji{#1}{#2}{#3}{#4}%
  \else\useroman{#1}{#2}{#3}{#4}%
  \fi}
%    \end{macrocode}
% \end{macro}
% \end{macro}
% \end{macro}
%
%
% \begin{macro}{\normalfont}
% $B=qBN$r%G%U%)%k%HCM$K$9$k%3%^%s%I$G$9!#(B
% $BOBJ8=qBN$b%G%U%)%k%HCM$K$J$k$h$&$K:FDj5A$7$F$$$^$9!#(B
% $B$?$@$79bB.2=$N$?$a!"(B|\usekanji|$B$H(B|\useroman|$B$rE83+$7!"(B
% |\selectfont|$B$r0lEY$7$+8F$S=P$5$J$$$h$&$K$7$F$$$^$9!#(B
%    \begin{macrocode}
\DeclareRobustCommand\normalfont{%
    \kanjiencoding{\kanjiencodingdefault}%
    \kanjifamily{\kanjifamilydefault}%
    \kanjiseries{\kanjiseriesdefault}%
    \kanjishape{\kanjishapedefault}%
    \romanencoding{\encodingdefault}%
    \romanfamily{\familydefault}%
    \romanseries{\seriesdefault}%
    \romanshape{\shapedefault}%
    \selectfont\ignorespaces}
\adjustbaseline
\let\reset@font\normalfont
%    \end{macrocode}
% \end{macro}
%
%
% \begin{macro}{\mcfamily}
% \begin{macro}{\gtfamily}
% $BOBJ8=qBN$rL@D+BN$K$9$k(B|\mcfamily|$B$H%4%7%C%/BN$K$9$k(B|\gtfamily|$B$rDj5A$7$^$9!#(B
% $B$3$l$i$O!"(B|\rmfamily|$B$J$I$KBP1~$7$^$9!#(B
% |\mathmc|$B$H(B|\mathgt|$B$O?t<0Fb$GMQ$$$k$H$-$N%3%^%s%IL>$G$9!#(B
%    \begin{macrocode}
\DeclareRobustCommand\mcfamily
        {\not@math@alphabet\mcfamily\mathmc
         \kanjifamily\mcdefault\selectfont}
\DeclareRobustCommand\gtfamily
        {\not@math@alphabet\gtfamily\mathgt
         \kanjifamily\gtdefault\selectfont}
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
%
% \begin{macro}{\romanprocess@table}
% \begin{macro}{\kanjiprocess@table}
% \begin{macro}{\process@table}
% $BJ8=q$N@hF,$G!"OBJ8%G%U%)%k%H%U%)%s%H$NJQ99$,H?1G$5$l$J$$$N$r=$@5$7$^$9!#(B
% \changes{v1.3g}{1999/04/05}{plpatch.ltx$B$NFbMF$rH?1G!#(B
%    $B$"$j$,$H$&!";3K\$5$s!#(B}
%    \begin{macrocode}
\let\romanprocess@table\process@table
\def\kanjiprocess@table{%
  \kanjiencoding{\kanjiencodingdefault}%
  \kanjifamily{\kanjifamilydefault}%
  \kanjiseries{\kanjiseriesdefault}%
  \kanjishape{\kanjishapedefault}%
}
\def\process@table{%
  \romanprocess@table
  \kanjiprocess@table
}
\@onlypreamble\romanprocess@table
\@onlypreamble\kanjiprocess@table
%    \end{macrocode}
% \end{macro}
% \end{macro}
% \end{macro}
%
%
%
% \begin{macro}{\textunderscore}
% \changes{v1.1b}{1995/04/12}{$B2<@~%^%/%m$rDI2C(B}
% $B$3$N%3%^%s%I$O%F%-%9%H%b!<%I$G;XDj$5$l$?(B|\_|$B$NFbIt%3%^%s%I$G$9!#(B
% $B=DAH$G$N0LCV$rD4@0$9$k$h$&$K:FDj5A$r$7$^$9!#(B
% $B$b$H$O(B\file{ltoutenc.dtx}$B$GDj5A$5$l$F$$$^$9!#(B
%
% $B$J$*!"(B|\_|$B$r?t<0%b!<%I$G;H$&$H(B|\mathunderscore|$B$,<B9T$5$l$^$9!#(B
%    \begin{macrocode}
\DeclareTextCommandDefault{\textunderscore}{%
  \leavevmode\kern.06em
  \iftdir\raise-\tbaselineshift\fi
  \vbox{\hrule\@width.3em}}
%    \end{macrocode}
% \end{macro}
%
%
%
% \subsection{$B%G%U%)%k%H@_Dj%U%!%$%k$NFI$_9~$_(B}
% $B:G8e$K!"%G%U%)%k%H@_Dj%U%!%$%k$G$"$k!"(B\file{pldefs.ltx}$B$rFI$_9~$_$^$9!#(B
% $B$3$N%U%!%$%k$K$D$$$F$N>\:Y$O!"Bh(B\ref{plfonts:pldefs}$B@a$r;2>H$7$F$/$@$5$$!#(B
% \TeX{}$B$NF~NO%U%!%$%k8!:w%Q%9$K@_Dj$5$l$F$$$k%G%#%l%/%H%j$K(B\file{pldefs.cfg}%
% $B%U%!%$%k$,$"$k>l9g$O!"$=$N%U%!%$%k$r;H$$$^$9!#(B
%    \begin{macrocode}
\InputIfFileExists{pldefs.cfg}
           {\typeout{*************************************^^J%
                     * Local config file pldefs.cfg used^^J%
                     *************************************}}%
           {\input{pldefs.ltx}}
%</plcore>
%    \end{macrocode}
%
%
%
%
% \section{$B%G%U%)%k%H@_Dj%U%!%$%k(B}\label{plfonts:pldefs}
% $B$3$3$G$O!"%U%)!<%^%C%H%U%!%$%k$KFI$_9~$^$l$k%G%U%)%k%HCM$r@_Dj$7$F$$$^$9!#(B
% $B$3$N@a$G$NFbMF$O(B\file{pldefs.ltx}$B$K=PNO$5$l$^$9!#(B
% $B$3$N%U%!%$%k$NFbMF$r(B\file{plcore.ltx}$B$K4^$a$F$b$h$$$N$G$9$,!"(B
% $B%G%U%)%k%H$N@_Dj$r;2>H$7$d$9$$$h$&$K!"JL%U%!%$%k$K$7$F$"$j$^$9!#(B
% \file{pldefs.ltx}$B$O(B\file{plcore.ltx}$B$+$iFI$_9~$^$l$^$9!#(B
%
% $B%W%j%m!<%I%5%$%:$O!"(B\dst{}$B%W%m%0%i%`$N%*%W%7%g%s$GJQ99$9$k$3$H$,$G$-$^$9!#(B
% $B$3$l0J30$N@_Dj$rJQ99$7$?$$>l9g$O!"(B\file{pldefs.ltx}$B$r(B
% $BD>@\!"=$@5$9$k$N$G$O$J$/!"$3$N%U%!%$%k$r(B\file{pldefs.cfg}$B$H$$$&L>A0$G(B
% $B%3%T!<$r$7$F!"$=$N%U%!%$%k$KBP$7$F=$@5$r2C$($k$h$&$K$7$F$/$@$5$$!#(B
%    \begin{macrocode}
%<*pldefs>
\ProvidesFile{pldefs.ltx}
      [2016/06/26 v1.6e pLaTeX Kernel (Default settings)] 
%</pldefs>
%    \end{macrocode}
%
% \subsection{$B9g@.J8;z(B}
% \LaTeXe{}$B$N%+!<%M%k$N%3!<%I$r$=$N$^$^;H$&$H!"(Bp\TeX{}$B$N%Y!<%9%i%$%s(B
% $BJd@5NL$,%<%m$G$J$$$H$-$K9g@.J8;z$,$*$+$7$/$J$C$F$$$?$?$a!"BP:v$7$^$9!#(B
%
% \begin{macro}{\g@tlastchart@}
% \TeX\ Live 2015$B$GDI2C$5$l$?(B\cs{lastnodechar}$B$rMxMQ$7$F!"(B
% $B!VD>A0$NJ8;z!W$NId9f0LCV$rF@$k%3!<%I$G$9!#(B\cs{lastnodechar}$B$,L$Dj5A$N>l9g$O(B
% $-1$$B$,JV$j$^$9!#(B
% \changes{v1.6c}{2016/06/06}{$B%^%/%mDI2C(B}
%    \begin{macrocode}
%<platexrelease>\plIncludeInRelease{2016/06/10}{\g@tlastchart@}
%<platexrelease>                   {Added \g@tlastchart@}%
%<*pldefs|platexrelease>
\def\g@tlastchart@#1{#1\ifx\lastnodechar\@undefined\m@ne\else\lastnodechar\fi}
%</pldefs|platexrelease>
%<platexrelease>\plEndIncludeInRelease
%<platexrelease>\plIncludeInRelease{0000/00/00}{\g@tlastchart@}
%<platexrelease>                   {Added \g@tlastchart@}%
%<platexrelease>\let\g@tlastchart@\@undefined
%<platexrelease>\plEndIncludeInRelease
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\pltx@isletter}
% $BBh0l0z?t$N%^%/%m(B(|#1|)$B$NCV49%F%-%9%H$,!"%+%F%4%j%3!<%I(B11$B$+(B12$B$NJ8;z%H!<%/%s(B1$BJ8;z$G$"$C$?(B
% $B>l9g$KBhFs0z?t$NFbMF$KE83+$5$l!"$=$&$G$J$$>l9g$OBh;00z?t$NFbMF$KE83+$5$l$^$9!#(B
% \changes{v1.6c}{2016/06/06}{$B%^%/%mDI2C(B}
% \changes{v1.6d}{2016/06/19}{$B%"%/%;%s%HIU$-J8;z$r$5$i$K=$@5(B(forum:1951)}
%    \begin{macrocode}
%<platexrelease>\plIncludeInRelease{2016/06/10}{\pltx@isletter}
%<platexrelease>                   {Added \pltx@isletter}%
%<*pldefs|platexrelease>
\def\pltx@mark{\pltx@mark@}
\let\pltx@scanstop\relax
\long\def\pltx@cond#1\fi{%
  #1\expandafter\@firstoftwo\else\expandafter\@secondoftwo\fi}
\long\def\pltx@isletter#1{%
  \expandafter\pltx@isletter@i#1\pltx@scanstop}
\long\def\pltx@isletter@i#1\pltx@scanstop{%
  \pltx@cond\ifx\pltx@mark#1\pltx@mark\fi{\@firstoftwo}%
    {\pltx@isletter@ii\pltx@scanstop#1\pltx@scanstop{}#1\pltx@mark}}
\long\def\pltx@isletter@ii#1\pltx@scanstop#{%
  \pltx@cond\ifx\pltx@mark#1\pltx@mark\fi%
    {\pltx@isletter@iii}{\pltx@isletter@iv}}
\long\def\pltx@isletter@iii#1\pltx@mark{\@secondoftwo}
\long\def\pltx@isletter@iv#1#2#3\pltx@mark{%
  \pltx@cond\ifx\pltx@mark#3\pltx@mark\fi{%
    \pltx@cond{\ifnum0\ifcat A\noexpand#21\fi\ifcat=\noexpand#21\fi>\z@}\fi
      {\@firstoftwo}{\@secondoftwo}%
  }{\@secondoftwo}}
%</pldefs|platexrelease>
%<platexrelease>\plEndIncludeInRelease
%<platexrelease>\plIncludeInRelease{0000/00/00}{\pltx@isletter}
%<platexrelease>                   {Added \pltx@isletter}%
%<platexrelease>\let\pltx@isletter\@undefined
%<platexrelease>\plEndIncludeInRelease
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@text@composite}
% $B9g@.J8;z$NFbItL?Na$G$9!#(Bv1.6a$B$G8m$C$F(B\LaTeX{}$B$NDj5A$r>e=q$-$7$F$7$^$$$^$7$?(B
% $B$,!"(Bv1.6c$B$G30$7$^$7$?!#(B
% \changes{v1.6a}{2016/04/01}{$B%Y!<%9%i%$%sJd@5NL$,(B0$B$G$J$$$H$-$K(B
%    \cs{AA}$B$J$I0lIt$N9g@.J8;z$,$*$+$7$/$J$k$3$H$KBP1~$9$k$?$a:FDj5A(B}
% \changes{v1.6c}{2016/06/06}{v1.6a$B$G$N8m$C$?:FDj5A$r:o=|(B(forum:1941)}
%    \begin{macrocode}
%<platexrelease>\plIncludeInRelease{2016/06/10}{\@text@composite}
%<platexrelease>                   {Wrong fix for non-zero baselineshift}%
%<platexrelease>\def\@text@composite#1#2#3\@text@composite{%
%<platexrelease>   \expandafter\@text@composite@x
%<platexrelease>      \csname\string#1-\string#2\endcsname}
%<platexrelease>\plEndIncludeInRelease
%<platexrelease>\plIncludeInRelease{2016/04/17}{\@text@composite}
%<platexrelease>                   {Wrong fix for non-zero baselineshift}%
%<platexrelease>\def\@text@composite#1#2#3#{%
%<platexrelease>  \begingroup
%<platexrelease>  \setbox\z@=\hbox\bgroup%
%<platexrelease>  \ybaselineshift\z@\tbaselineshift\z@
%<platexrelease>  \expandafter\@text@composite@x
%<platexrelease>  \csname\string#1-\string#2\endcsname}
%<platexrelease>\plEndIncludeInRelease
%<platexrelease>\plIncludeInRelease{0000/00/00}{\@text@composite}
%<platexrelease>                   {Wrong fix for non-zero baselineshift}%
%<platexrelease>\def\@text@composite#1#2#3\@text@composite{%
%<platexrelease>   \expandafter\@text@composite@x
%<platexrelease>      \csname\string#1-\string#2\endcsname}
%<platexrelease>\plEndIncludeInRelease
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@text@composite@x}
% $B9g@.J8;z$NFbItL?Na$G$9!#(B|\g@tlastchart@|$B$H(B|\pltx@isletter|$B$r;H$$$^$9!#(B
% \changes{v1.6a}{2016/04/01}{$B%Y!<%9%i%$%sJd@5NL$,(B0$B$G$J$$$H$-$K(B
%    \cs{AA}$B$J$I0lIt$N9g@.J8;z$,$*$+$7$/$J$k$3$H$X$NBP1~!#(B}
% \changes{v1.6c}{2016/06/06}{v1.6a$B$G$N=$@5$G(B\'e $B$J$IA4$F$N%"%/%;%s%HIU$-J8;z$G(B
%    $B<~0O$K(B\cs{xkanjiskip}$B$,F~$i$J$/$J$C$F$$$?$N$r=$@5!#(B}
% \changes{v1.6e}{2016/06/26}{v1.6a$B0J9_$N=$@5$GA4$F$N%"%/%;%s%HIU$-J8;z$G(B
%    $B%H%i%V%k$,Aj<!$$$@$?$a!"$$$C$?$s%Q%C%A$r=|5n!#(B}
%    \begin{macrocode}
%<platexrelease>\plIncludeInRelease{2016/07/01}{\@text@composite@x}
%<platexrelease>                   {Fix for non-zero baselineshift}%
%<platexrelease>\def\@text@composite@x#1{%
%<platexrelease>   \ifx#1\relax
%<platexrelease>      \expandafter\@secondoftwo
%<platexrelease>   \else
%<platexrelease>      \expandafter\@firstoftwo
%<platexrelease>   \fi
%<platexrelease>   #1}
%<platexrelease>\plEndIncludeInRelease
%<platexrelease>\plIncludeInRelease{2016/06/10}{\@text@composite@x}
%<platexrelease>                   {Fix for non-zero baselineshift}%
%<platexrelease>\def\@text@composite@x#1#2{%
%<platexrelease>  \ifx#1\relax
%<platexrelease>    #2%
%<platexrelease>  \else\pltx@isletter{#1}{#1}{%
%<platexrelease>    \begingroup
%<platexrelease>    \setbox\z@\hbox\bgroup%
%<platexrelease>      \ybaselineshift\z@\tbaselineshift\z@
%<platexrelease>      #1%
%<platexrelease>      \g@tlastchart@\@tempcntb
%<platexrelease>      \xdef\pltx@composite@temp{\noexpand\@tempcntb=\the\@tempcntb\relax}%
%<platexrelease>      \aftergroup\pltx@composite@temp
%<platexrelease>    \egroup
%<platexrelease>    \ifnum\@tempcntb<\z@
%<platexrelease>      \@tempdima=\iftdir
%<platexrelease>          \ifmdir
%<platexrelease>            \ifmmode\tbaselineshift\else\ybaselineshift\fi
%<platexrelease>          \else
%<platexrelease>            \tbaselineshift
%<platexrelease>          \fi
%<platexrelease>        \else
%<platexrelease>          \ybaselineshift
%<platexrelease>        \fi
%<platexrelease>      \@tempcntb=\@cclvi
%<platexrelease>    \else\@tempdima=\z@
%<platexrelease>    \fi
%<platexrelease>    \ifnum\@tempcntb<\@cclvi
%<platexrelease>      \ifnum\@tempcntb>\m@ne\ifnum\@tempcntb<\@cclvi
%<platexrelease>        \ifodd\xspcode\@tempcntb\else\leavevmode\hbox{}\fi
%<platexrelease>      \fi\fi
%<platexrelease>      \begingroup\mathsurround\z@$%
%<platexrelease>        \ifx\textbaselineshiftfactor\@undefined\else
%<platexrelease>          \textbaselineshiftfactor\z@\fi
%<platexrelease>        \box\z@
%<platexrelease>      $\endgroup%
%<platexrelease>      \ifnum\@tempcntb>\m@ne\ifnum\@tempcntb<\@cclvi
%<platexrelease>        \ifnum\xspcode\@tempcntb<2\hbox{}\fi
%<platexrelease>      \fi\fi
%<platexrelease>    \else
%<platexrelease>      \ifdim\@tempdima=\z@{\ybaselineshift\z@\tbaselineshift\z@#1}%
%<platexrelease>      \else\lower\@tempdima\box\z@\fi
%<platexrelease>    \fi
%<platexrelease>    \endgroup}%
%<platexrelease>  \fi
%<platexrelease>}
%<platexrelease>\plEndIncludeInRelease
%<platexrelease>\plIncludeInRelease{2016/04/17}{\@text@composite@x}
%<platexrelease>                   {Fix for non-zero baselineshift}%
%<platexrelease>\def\@text@composite@x#1#2{%
%<platexrelease>  \ifx#1\relax
%<platexrelease>    \expandafter\@secondoftwo
%<platexrelease>  \else
%<platexrelease>    \expandafter\@firstoftwo
%<platexrelease>  \fi
%<platexrelease>  #1{#2}\egroup
%<platexrelease>  \leavevmode
%<platexrelease>  \expandafter\lower
%<platexrelease>    \iftdir
%<platexrelease>      \ifmdir
%<platexrelease>        \ifmmode\tbaselineshift\else\ybaselineshift\fi
%<platexrelease>      \else
%<platexrelease>        \tbaselineshift
%<platexrelease>      \fi
%<platexrelease>    \else
%<platexrelease>      \ybaselineshift
%<platexrelease>    \fi
%<platexrelease>    \box\z@
%<platexrelease>  \endgroup}
%<platexrelease>\plEndIncludeInRelease
%<platexrelease>\plIncludeInRelease{0000/00/00}{\@text@composite@x}
%<platexrelease>                   {Fix for non-zero baselineshift}%
%<platexrelease>\def\@text@composite@x#1{%
%<platexrelease>   \ifx#1\relax
%<platexrelease>      \expandafter\@secondoftwo
%<platexrelease>   \else
%<platexrelease>      \expandafter\@firstoftwo
%<platexrelease>   \fi
%<platexrelease>   #1}
%<platexrelease>\plEndIncludeInRelease
%<*pldefs>
%    \end{macrocode}
% \end{macro}
%
% \subsection{$B%$%?%j%C%/Jd@5(B}
% \changes{v1.3i}{2000/07/13}{\cs{text..}$B%3%^%s%I$N:8B&$K(B\cs{xkanjiskip}$B$,(B
%    $BF~$i$J$$$N$r=$@5!J$"$j$,$H$&!"25It!wElBg$5$s!K(B}
% \begin{macro}{\check@nocorr@}
% $B!V(B\verb|$B$"(B\texttt{abc}$B$$(B|$B!W$H$7$?$H$-!"=qBN$NJQ99$r;XDj$5$l$?2$J8$N:8B&$K(B
% $BOB2$J84V%9%Z!<%9$,F~$i$J$$$N$r=$@5$7$^$9!#(B
%    \begin{macrocode}
\def \check@nocorr@ #1#2\nocorr#3\@nil {%
  \let \check@icl \relax% \maybe@ic $B$+$iJQ99(B
  \def \check@icr {\ifvmode \else \aftergroup \maybe@ic \fi}%
  \def \reserved@a {\nocorr}%
  \def \reserved@b {#1}%
  \def \reserved@c {#3}%
  \ifx \reserved@a \reserved@b
    \ifx \reserved@c \@empty
      \let \check@icl \@empty
    \else
      \let \check@icl \@empty
      \let \check@icr \@empty
    \fi
  \else
    \ifx \reserved@c \@empty
    \else
      \let \check@icr \@empty
    \fi
  \fi
}
%    \end{macrocode}
% \end{macro}
%
%
% \subsection{$B%F%-%9%H%U%)%s%H(B}
% $B%F%-%9%H%U%)%s%H$N$?$a$NB0@-$d%(%i!<=qBN$J$I$N@k8@$G$9!#(B
%
% \noindent
% $B=D2#%(%s%3!<%I6&DL!'(B
%    \begin{macrocode}
\DeclareKanjiEncodingDefaults{}{}
\DeclareErrorKanjiFont{JY1}{mc}{m}{n}{10}
%    \end{macrocode}
% $B2#AH%(%s%3!<%I!'(B
%    \begin{macrocode}
\DeclareYokoKanjiEncoding{JY1}{}{}
\DeclareKanjiSubstitution{JY1}{mc}{m}{n}
%    \end{macrocode}
% $B=DAH%(%s%3!<%I!'(B
%    \begin{macrocode}
\DeclareTateKanjiEncoding{JT1}{}{}
\DeclareKanjiSubstitution{JT1}{mc}{m}{n}
%    \end{macrocode}
% $B%U%)%s%HB0@-$N%G%U%)%k%HCM!'(B
%    \begin{macrocode}
\newcommand\mcdefault{mc}
\newcommand\gtdefault{gt}
\newcommand\kanjiencodingdefault{JY1}
\newcommand\kanjifamilydefault{\mcdefault}
\newcommand\kanjiseriesdefault{\mddefault}
\newcommand\kanjishapedefault{\updefault}
%    \end{macrocode}
% $BOBJ8%(%s%3!<%I$N;XDj!'(B
%    \begin{macrocode}
\kanjiencoding{JY1}
%    \end{macrocode}
% $B%U%)%s%HDj5A!'(B
% $B$3$l$i$N6qBNE*$JFbMF$OBh(B\ref{plfonts:fontdef}$B@a$r;2>H$7$F$/$@$5$$!#(B
% \changes{v1.3}{1997/01/24}{Rename font definition filename.}
%    \begin{macrocode}
\input{jy1mc.fd}
\input{jy1gt.fd}
\input{jt1mc.fd}
\input{jt1gt.fd}
%    \end{macrocode}
% $B%U%)%s%H$rM-8z$K$9$k(B
%    \begin{macrocode}
\fontencoding{JT1}\selectfont
\fontencoding{JY1}\selectfont
%    \end{macrocode}
%
% \begin{macro}{\textmc}
% \begin{macro}{\textgt}
% \changes{v1.3b}{1997/01/28}{\cs{textmc}, \cs{textgt}$B$NF0:n=$@5(B}
% $B%F%-%9%H%U%!%_%j$r@Z$jBX$($k$?$a$N%3%^%s%I$G$9!#(B
% \file{ltfntcmd.dtx}$B$GDj5A$5$l$F$$$k(B|\textrm|$B$J$I$KBP1~$7$^$9!#(B
%    \begin{macrocode}
\DeclareTextFontCommand{\textmc}{\mcfamily}
\DeclareTextFontCommand{\textgt}{\gtfamily}
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\em}
% \begin{macro}{\emph}
% \begin{macro}{\eminnershape}
% \changes{v1.3d}{1997/06/25}{\cs{em},\cs{emph}$B$GOBJ8$r6/D4=qBN$K(B}
% \changes{v1.6}{2016/02/01}{\LaTeX\ \texttt{!<2015/01/01!>}$B$G$N(B\cs{em}$B$N(B
%    $BDj5AJQ99$KBP1~!#(B\cs{eminnershape}$B$rDI2C!#(B}
% $B=>Mh$O(B|\em|, |\emph|$B$GOBJ8%U%)%s%H$N@Z$jBX$($O9T$C$F$$$^$;$s$G$7$?$,!"(B
% $BOBJ8%U%)%s%H$b(B|\gtfamily|$B$K@Z$jBX$($k$h$&$K$7$^$7$?!#(B
% \LaTeX\ \texttt{<2015/01/01>}$B$GDI2C$5$l$?(B|\eminnershape|$B$b<h$jF~$l!"(B
% $B6/D4%3%^%s%I$rF~$l;R$K$9$k>l9g$N=qBN$r<+M3$K:FDj5A$G$-$k$h$&$K$J$j$^$7$?!#(B
%    \begin{macrocode}
%</pldefs>
%<platexrelease>\plIncludeInRelease{2016/04/17}{\eminnershape}{\eminnershape}%
%<*pldefs|platexrelease>
\DeclareRobustCommand\em
        {\@nomath\em \ifdim \fontdimen\@ne\font >\z@
                       \eminnershape \else \gtfamily \itshape \fi}%
\def\eminnershape{\mcfamily \upshape}%
%</pldefs|platexrelease>
%<platexrelease>\plEndIncludeInRelease
%<platexrelease>\plIncludeInRelease{2015/01/01}{\eminnershape}{\eminnershape}%
%<platexrelease>\DeclareRobustCommand\em
%<platexrelease>        {\@nomath\em \ifdim \fontdimen\@ne\font >\z@ 
%<platexrelease>                       \mcfamily \upshape \else \gtfamily \itshape \fi}
%<platexrelease>\def\eminnershape{\upshape}% defined by LaTeX, but not used by pLaTeX
%<platexrelease>\plEndIncludeInRelease
%<platexrelease>\plIncludeInRelease{0000/00/00}{\eminnershape}{\eminnershape}%
%<platexrelease>\DeclareRobustCommand\em
%<platexrelease>        {\@nomath\em \ifdim \fontdimen\@ne\font >\z@ 
%<platexrelease>                       \mcfamily \upshape \else \gtfamily \itshape \fi}
%<platexrelease>\let\eminnershape\@undefined
%<platexrelease>\plEndIncludeInRelease
%<*pldefs>
%    \end{macrocode}
% \end{macro}
% \end{macro}
% \end{macro}
%
%
% \changes{v1.3b}{1997/01/30}{$B?t<0MQ%U%)%s%H$N@k8@$r%/%i%9%U%!%$%k$K0\F0$7$?(B}
%
%
% \subsection{$B%W%j%m!<%I%U%)%s%H(B}
% $B$"$i$+$8$a%U%)!<%^%C%H%U%!%$%k$K%m!<%I$5$l$k%U%)%s%H$N@k8@$G$9!#(B
% \dst{}$B%W%m%0%i%`$N%*%W%7%g%s$G%m!<%I$5$l$k%U%)%s%H$N%5%$%:$r(B
% $BJQ99$9$k$3$H$,$G$-$^$9!#(B\file{platex.ins}$B$G$O(B|xpt|$B$r;XDj$7$F$$$^$9!#(B
%    \begin{macrocode}
%<*xpt>
\DeclarePreloadSizes{JY1}{mc}{m}{n}{5,7,10,12}
\DeclarePreloadSizes{JY1}{gt}{m}{n}{5,7,10,12}
\DeclarePreloadSizes{JT1}{mc}{m}{n}{5,7,10,12}
\DeclarePreloadSizes{JT1}{gt}{m}{n}{5,7,10,12}
%</xpt>
%<*xipt>
\DeclarePreloadSizes{JY1}{mc}{m}{n}{5,7,10.95,12}
\DeclarePreloadSizes{JY1}{gt}{m}{n}{5,7,10.95,12}
\DeclarePreloadSizes{JT1}{mc}{m}{n}{5,7,10.95,12}
\DeclarePreloadSizes{JT1}{gt}{m}{n}{5,7,10.95,12}
%</xipt>
%<*xiipt>
\DeclarePreloadSizes{JY1}{mc}{m}{n}{7,9,12,14.4}
\DeclarePreloadSizes{JY1}{gt}{m}{n}{7,9,12,14.4}
\DeclarePreloadSizes{JT1}{mc}{m}{n}{7,9,12,14.4}
\DeclarePreloadSizes{JT1}{gt}{m}{n}{7,9,12,14.4}
%</xiipt>
%<*ori>
\DeclarePreloadSizes{JY1}{mc}{m}{n}
        {5,6,7,8,9,10,10.95,12,14.4,17.28,20.74,24.88}
\DeclarePreloadSizes{JY1}{gt}{m}{n}
        {5,6,7,8,9,10,10.95,12,14.4,17.28,20.74,24.88}
\DeclarePreloadSizes{JT1}{mc}{m}{n}
        {5,6,7,8,9,10,10.95,12,14.4,17.28,20.74,24.88}
\DeclarePreloadSizes{JT1}{gt}{m}{n}
        {5,6,7,8,9,10,10.95,12,14.4,17.28,20.74,24.88}
%</ori>
%    \end{macrocode}
%
%
% \subsection{$BAHHG%Q%i%a!<%?(B}
% $B6XB'%Q%i%a!<%?$dJ8;z4V$XA^F~$9$k%9%Z!<%9$N@_Dj$J$I$G$9!#(B
% $B<B:]$N3FJ8;z$X$N6XB'%Q%i%a!<%?$*$h$S%9%Z!<%9$NA^F~$N5v2D@_Dj$J$I$O!"(B
% \file{kinsoku.tex}$B$G9T$J$C$F$$$^$9!#(B
% $B6qBNE*$J@_Dj$K$D$$$F$O!"(B\file{kinsoku.dtx}$B$r;2>H$7$F$/$@$5$$!#(B
%    \begin{macrocode}
\InputIfFileExists{kinsoku.tex}%
  {\message{Loading kinsoku patterns for japanese.}}
  {\errhelp{The configuration for kinsoku is incorrectly installed.^^J%
            If you don't understand this error message you need
            to seek^^Jexpert advice.}%
   \errmessage{OOPS! I can't find any kinsoku patterns for japanese^^J%
               \space Think of getting some or the
               platex2e setup will never succeed}\@@end}
%    \end{macrocode}
%
% $BAHHG%Q%i%a!<%?$N@_Dj$r$7$^$9!#(B
% |\kanjiskip|$B$O!"4A;z$H4A;z$N4V$KA^F~$5$l$k%0%k!<$G$9!#(B
% |\noautospacing|$B$G!"A^F~$rCf;_$9$k$3$H$,$G$-$^$9!#(B
% $B%G%U%)%k%H$O(B|\autospacing|$B$G$9!#(B
%    \begin{macrocode}
\kanjiskip=0pt plus .4pt minus .5pt
\autospacing
%    \end{macrocode}
% |\xkanjiskip|$B$O!"OB2$J84V$K<+F0E*$KA^F~$5$l$k%0%k!<$G$9!#(B
% |\noautoxspacing|$B$G!"A^F~$rCf;_$9$k$3$H$,$G$-$^$9!#(B
% $B%G%U%)%k%H$O(B|\autoxspacing|$B$G$9!#(B
% \changes{v1.1c}{1995/09/12}{\cs{xkanjiskip}$B$N%G%U%)%k%HCM(B}
%    \begin{macrocode}
\xkanjiskip=.25zw plus1pt minus1pt
\autoxspacing
%    \end{macrocode}
% |\jcharwidowpenalty|$B$O!"%Q%i%0%i%U$KBP$9$k6XB'$G$9!#(B
% $B%Q%i%0%i%U$N:G8e$N9T$,#1J8;z$@$1$K$J$i$J$$$h$&$KD4@0$9$k$?$a$K;H$o$l$^$9!#(B
%    \begin{macrocode}
\jcharwidowpenalty=500
%    \end{macrocode}
% $B:G8e$K!"(B|\inhibitglue|$B$N4JN,7A$rDj5A$7$^$9!#(B
% $B$3$N%3%^%s%I$O!"OBJ8%U%)%s%H$N%a%H%j%C%/>pJs$+$i!"<+F0E*$KA^F~$5$l$k(B
% $B%0%k!<$NA^F~$r6X;_$7$^$9!#(B
%    \begin{macrocode}
\def\<{\inhibitglue}
%    \end{macrocode}
%
% $B$3$3$^$G$,!"(B\file{pldefs.ltx}$B$NFbMF$G$9!#(B
%    \begin{macrocode}
%</pldefs>
%    \end{macrocode}
%
%
%
% \section{$B%U%)%s%HDj5A%U%!%$%k(B}\label{plfonts:fontdef}
% \changes{v1.3}{1997/01/24}{Rename provided font definition filename.}
% $B$3$3$G$O!"%U%)%s%HDj5A%U%!%$%k$N@_Dj$r$7$F$$$^$9!#%U%)%s%HDj5A%U%!%$%k$O!"(B
% \LaTeX{}$B$N%U%)%s%HB0@-$r(B\TeX{}$B%U%)%s%H$KCV$-49$($k$?$a$N%U%!%$%k$G$9!#(B
% $B5-=RJ}K!$K$D$$$F$N>\:Y$O!"(B|fntguide.tex|$B$r;2>H$7$F$/$@$5$$!#(B
%
% $B2$J8=qBN$N@_Dj$K$D$$$F$O!"(B
% \file{cmfonts.fdd}$B$d(B\file{slides.fdd}$B$J$I$r;2>H$7$F$/$@$5$$!#(B
% \file{skfonts.fdd}$B$K$O!"<L8&BeMQ=qBN$r;H$&$?$a$N%Q%C%1!<%8$H(B
% $B%U%)%s%HDj5A$,5-=R$5$l$F$$$^$9!#(B
%    \begin{macrocode}
%<JY1mc>\ProvidesFile{jy1mc.fd}
%<JY1gt>\ProvidesFile{jy1gt.fd}
%<JT1mc>\ProvidesFile{jt1mc.fd}
%<JT1gt>\ProvidesFile{jt1gt.fd}
%<JY1mc,JY1gt,JT1mc,JT1gt>       [1997/01/24 v1.3 KANJI font defines]
%    \end{macrocode}
% $B2#AHMQ!"=DAHMQ$H$b$K!"(B
% $BL@D+BN$N%7%j!<%:(B|bx|$B$,%4%7%C%/BN$H$J$k$h$&$K@k8@$7$F$$$^$9!#(B
% \changes{v1.2}{1995/11/24}{it, sl, sc $B$N@k8@$r30$7$?(B}
% \changes{v1.3b}{1997/01/29}{$B%U%)%s%HDj5A%U%!%$%k$N%5%$%:;XDj$ND4@0(B}
% \changes{v1.3b}{1997/03/11}{$B$9$Y$F$N%5%$%:$r%m!<%I2DG=$K$7$?(B}
%    \begin{macrocode}
%<*JY1mc>
\DeclareKanjiFamily{JY1}{mc}{}
\DeclareRelationFont{JY1}{mc}{m}{}{OT1}{cmr}{m}{}
\DeclareRelationFont{JY1}{mc}{bx}{}{OT1}{cmr}{bx}{}
\DeclareFontShape{JY1}{mc}{m}{n}{<5> <6> <7> <8> <9> <10> sgen*min
    <10.95><12><14.4><17.28><20.74><24.88> min10
    <-> min10
    }{}
\DeclareFontShape{JY1}{mc}{bx}{n}{<->ssub*gt/m/n}{}
%</JY1mc>
%<*JT1mc>
\DeclareKanjiFamily{JT1}{mc}{}
\DeclareRelationFont{JT1}{mc}{m}{}{OT1}{cmr}{m}{}
\DeclareRelationFont{JT1}{mc}{bx}{}{OT1}{cmr}{bx}{}
\DeclareFontShape{JT1}{mc}{m}{n}{<5> <6> <7> <8> <9> <10> sgen*tmin
    <10.95><12><14.4><17.28><20.74><24.88> tmin10
    <-> tmin10
    }{}
\DeclareFontShape{JT1}{mc}{bx}{n}{<->ssub*gt/m/n}{}
%</JT1mc>
%<*JY1gt>
\DeclareKanjiFamily{JY1}{gt}{}
\DeclareRelationFont{JY1}{gt}{m}{}{OT1}{cmr}{bx}{}
\DeclareFontShape{JY1}{gt}{m}{n}{<5> <6> <7> <8> <9> <10> sgen*goth
    <10.95><12><14.4><17.28><20.74><24.88> goth10
    <-> goth10
    }{}
\DeclareFontShape{JY1}{gt}{bx}{n}{<->ssub*gt/m/n}{}
%</JY1gt>
%<*JT1gt>
\DeclareKanjiFamily{JT1}{gt}{}
\DeclareRelationFont{JT1}{gt}{m}{}{OT1}{cmr}{bx}{}
\DeclareFontShape{JT1}{gt}{m}{n}{<5> <6> <7> <8> <9> <10> sgen*tgoth
    <10.95><12><14.4><17.28><20.74><24.88> tgoth10
    <-> tgoth10
    }{}
\DeclareFontShape{JT1}{gt}{bx}{n}{<->ssub*gt/m/n}{}
%</JT1gt>
%    \end{macrocode}
%
%
% \Finale
%
\endinput
