uplatex (9mar18)

git-svn-id: svn://tug.org/texlive/trunk@46903 c570f23f-e606-0410-a88d-b1316a301751

41 files changed, 334 insertions, 5758 deletions

diff --git a/Master/texmf-dist/doc/uplatex/base/README.md b/Master/texmf-dist/doc/uplatex/base/README.md
index 9aabe257a09..a4f54b4caf9 100644
--- a/Master/texmf-dist/doc/uplatex/base/README.md
+++ b/Master/texmf-dist/doc/uplatex/base/README.md
@@ -17,6 +17,6 @@ the 3-clause BSD license (see [LICENSE](./LICENSE)).
 
 ## Release Date
 
-2018-01-27
+2018-03-09
 
 Japanese TeX Development Community
diff --git a/Master/texmf-dist/doc/uplatex/base/uplatex-en.pdf b/Master/texmf-dist/doc/uplatex/base/uplatex-en.pdf
index dcf9bce1bc2..732d6be517f 100644
--- a/Master/texmf-dist/doc/uplatex/base/uplatex-en.pdf
+++ b/Master/texmf-dist/doc/uplatex/base/uplatex-en.pdf
diff --git a/Master/texmf-dist/doc/uplatex/base/uplatex.pdf b/Master/texmf-dist/doc/uplatex/base/uplatex.pdf
index 4060adc7035..afc0d2999bb 100644
--- a/Master/texmf-dist/doc/uplatex/base/uplatex.pdf
+++ b/Master/texmf-dist/doc/uplatex/base/uplatex.pdf
diff --git a/Master/texmf-dist/doc/uplatex/base/upldoc.pdf b/Master/texmf-dist/doc/uplatex/base/upldoc.pdf
index 5fe1dc8e9e9..94f2a85530e 100644
--- a/Master/texmf-dist/doc/uplatex/base/upldoc.pdf
+++ b/Master/texmf-dist/doc/uplatex/base/upldoc.pdf
diff --git a/Master/texmf-dist/source/uplatex/base/Makefile b/Master/texmf-dist/source/uplatex/base/Makefile
index 9ea26c695fd..1b6a328514b 100644
--- a/Master/texmf-dist/source/uplatex/base/Makefile
+++ b/Master/texmf-dist/source/uplatex/base/Makefile
@@ -14,8 +14,7 @@ all: $(STRIPTARGET) $(PDFTARGET)
 PLFMT = uplatex.ltx uplcore.ltx ukinsoku.tex upldefs.ltx \
 	jy2mc.fd jy2gt.fd jt2mc.fd jt2gt.fd uptrace.sty
 
-PLFMT_SRC = uplatex.dtx uplvers.dtx uplfonts.dtx plcore.dtx \
-	ukinsoku.dtx
+PLFMT_SRC = uplatex.dtx uplvers.dtx uplfonts.dtx ukinsoku.dtx
 
 PLCLS = ujarticle.cls ujreport.cls ujbook.cls ujsize10.clo \
 	ujsize11.clo ujsize12.clo ujbk10.clo ujbk11.clo ujbk12.clo \
diff --git a/Master/texmf-dist/source/uplatex/base/plcore.dtx b/Master/texmf-dist/source/uplatex/base/plcore.dtx
deleted file mode 100644
index 156d9319100..00000000000
--- a/Master/texmf-dist/source/uplatex/base/plcore.dtx
+++ /dev/null
@@ -1,1968 +0,0 @@
-% \iffalse meta-comment
-%% File: plcore.dtx
-%
-%  Copyright 1994-2001 ASCII Corporation.
-%  Copyright (c) 2010 ASCII MEDIA WORKS
-%  Copyright (c) 2016-2018 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/04/12}{$B5SCm%^%/%m=$@5(B}
-% \changes{v1.1a}{1995/11/10}{\cs{topmargin}$B$,H?1G$5$l$J$$%P%0$r=$@5(B}
-% \changes{v1.1b}{1996/01/26}{$B5SCm%^!<%/$N8e$m$KM>7W$J%9%Z!<%9$,F~$k$N$r=$@5(B}
-% \changes{v1.1c}{1996/01/30}{$B%U%!%$%kL>$r(B\file{ploutput.dtx}$B$+$i(B
-%    \file{plcore.dtx}$B$H$7$?!#%-%c%W%7%g%s3HD%$r(B\file{plext.dtx}$B$K0\F0!#(B
-%    $B%W%j%"%s%V%k%3%^%s%I$rDI2C(B}
-% \changes{v1.1d}{1996/02/17}{\cs{printglossary}$B$rDI2C(B}
-% \changes{v1.1e}{1996/03/12}{tabbing$B4D6-$G$NOB2$J84V%9%Z!<%9(B}
-% \changes{v1.1f}{1996/07/10}{$B%H%s%\$^$o$j$r=$@5(B}
-% \changes{v1.1g}{1997/01/16}{\LaTeX\ \textt{!<1996/06/01!>}$B$KBP1~(B}
-% \changes{v1.1h}{1997/06/25}{\LaTeX\ $B$N2~9T%^%/%m$NJQ99$KBP1~(B}
-% \changes{v1.1i}{1998/02/03}{\cs{@shipoutsetup}$B$r(B\cs{@outputpage}$BFb$KF~$l$?(B}
-% \changes{v1.1j}{2001/05/10}{\cs{@makecol}$B$GAH$_N)$F$i$l$k(B
-%    \cs{@outputbox}$B$NBg$-$5$,!"=DAH$GCf?H$,6u$N%\%C%/%9$@$1$N>l9g$bE,@5$K$J$k(B
-%    $B$h$&$K=$@5(B}
-% \changes{v1.2}{2001/09/04}{$BK\J8$H(B\cs{footnoterule}$B$,=E$J$C$F$7$^$&$N$r=$@5(B}
-% \changes{v1.2a}{2001/09/26}{\LaTeX\ \texttt{!<2001/06/01!>}$B$KBP1~(B}
-% \changes{v1.2b}{2016/01/26}{2013$BG/0J9_$N(Bp\TeX\ (r28720)$B$G5SCmHV9f$NA08e$NOBJ8J8;z(B
-%    $B$H$N4V$K(Bxkanjiskip$B$,F~$C$F$7$^$&LdBj$KBP1~!#(B
-%    \cs{@outputbox}$B$N?<$5$,B>$N$b$N$N0LCV$K1F6A$rM?$($J$$(B
-%    $B$h$&$K$9$k(B\texttt{\cs{vskip}~-\cs{dimen@}}$B$,=DAH%b!<%I$G$OL58z$K$J$C$F$$$?$N$G=$@5(B}
-% \changes{v1.2c}{2016/02/28}{1.2b$B$HF1MM$N=$@5$r(Btabular$B4D6-$K$b9T$C$?(B}
-% \changes{v1.2c}{2016/02/28}{1.2b$B$HF1MM$N=$@5$r(B\cs{parbox}$BL?Na$K$b9T$C$?(B}
-% \changes{v1.2c}{2016/02/28}{1.2b$B$HF1MM$N=$@5$r(B\cs{underline}$BL?Na$K$b9T$C$?(B}
-% \changes{v1.2d}{2016/04/01}{multicol$B%Q%C%1!<%8$r;H$&$H%H%s%\$N2<C<$,=L$`LdBj$r=$@5(B}
-% \changes{v1.2e}{2016/05/20}{\file{fltrace}$B%Q%C%1!<%8$N(Bp\LaTeX{}$BHG(B
-%    $B$H$7$F(B\file{pfltrace}$B%Q%C%1!<%8$r?7@_(B}
-% \changes{v1.2f}{2016/06/30}{\cs{@begindvibox}$B$r>o$K2#AH$K(B}
-% \changes{v1.2g}{2016/08/25}{$B%+%&%s%?(B\cs{pltx@foot@penalty}$B$rDI2C(B}
-% \changes{v1.2g}{2016/08/25}{$B9g0u$NA0$NJ8;z$H9g0u$N4V$r%Y%?AH$K(B}
-% \changes{v1.2g}{2016/08/25}{$BJD$83g8LN`$ND>8e$K(B\cs{footnotetext}$B$,B3$/(B
-%    $B>l9g$K2~9T$,5/$-$k$3$H$,$"$kLdBj$KBP=h(B}
-% \changes{v1.2g}{2016/08/25}{$B5SCm$N9g0uD>8e$G$N2~9T$,6X;_$5$l$F$7$^$&(B
-%    $BLdBj$KBP=h(B}
-% \changes{v1.2h}{2016/09/01}{$B=DAH$G(Blongtable$B%Q%C%1!<%8$r;H$C$FI=AH$NESCf$G2~%Z!<%8(B
-%    $B$9$k$H$-L58B%k!<%W$,5/$3$kLdBj$KBP=h(B(Issue 21)}
-% \changes{v1.2i}{2016/09/08}{v1.2g$B$N=$@5$GF~$l$?(B\cs{null}$B$,$^$:$+$C$?$N$G(B
-%    $B?eJ?%b!<%I$N$H$-$@$1H/9T$9$k$3$H$K$7$?(B(Issue 23)}
-% \changes{v1.2j}{2016/11/09}{FAM256$B%Q%C%AE,MQ(Be-p\TeX{}$B$KBP1~(B}
-% \changes{v1.2k}{2017/02/20}{$BL\<!$G(B\cs{ref}$B$r;H$C$?>l9g$K8e$m$N6uGr$,>C$($k(B
-%    $B8=>]$KBP=h$9$k$?$a!"(B\cs{relax}$B$N$"$H$K(B\{\}$B$rDI2C(B}
-% \changes{v1.2l}{2017/02/25}{$B5SCm$H%\%H%`%U%m!<%H$N=g=x$rF~$lBX$($?$3$H$G(B
-%    $BHGLLA4BN$N?bD>0LCV$,$:$l$F$$$?$N$r=$@5(B(Issue 32)}
-% \changes{v1.2l}{2017/02/25}{\cs{@makecol}$B$rJQ99$7$?$N$K(B
-%    \cs{@makespecialcolbox}$B$rJQ99$7$J$$!"$H$$$&H=CG$K$D$$$FL@J82=(B}
-% \changes{v1.2m}{2017/03/19}{\cs{language}$B$r%j%;%C%H(B
-%    (sync with ltoutput.dtx 2017/03/10 v1.3c)}
-% \changes{v1.2m}{2017/03/19}{\cs{verb}$B$NESCf$G%O%$%U%M!<%7%g%s$,5/$-$J$$(B
-%    $B$h$&$K(B\cs{language}$B$r@_Dj(B(sync with ltmiscen.dtx 2017/03/09 v1.1m)}
-% \changes{v1.2n}{2017/04/23}{$B%I%-%e%a%s%H$NDI2C(B}
-% \changes{v1.2o}{2017/05/03}{$B9TF,6XB'J8;z$ND>A0$G$b2~9T$9$k$h$&$K$7$?(B}
-% \changes{v1.2p}{2017/07/21}{tabular$B4D6-$N%;%kFb$N(BJFM$B%0%k!=$r:o=|(B}
-% \changes{v1.2q}{2017/08/25}{\cs{nolinebreak}$B$N>l9g$K(B\cs{(x)kanjiskip}$B$,(B
-%    $BF~$i$J$/$J$C$F$$$?$N$r=$@5(B}
-% \changes{v1.2r}{2017/09/26}{tabular$B4D6-$N1&B7$((B(r)$B$G7S@~$,$:$l$k$h$&$K(B
-%    $B$J$C$F$$$?%P%0$r=$@5(B}
-% \changes{v1.2s}{2017/09/27}{$BAj8_;2>H$N%9%Z!<%9%U%!%/%?!<$rJd@5(B}
-% \changes{v1.2s}{2017/09/27}{\cs{verb}$B$NKAF,$NH>3Q6uGr$rJ];}(B}
-% \changes{v1.2s}{2017/09/27}{tabbing$B4D6-$N9TKAF,$N(BJFM$B%0%k!=$r:o=|(B}
-% \changes{v1.2t}{2017/10/31}{v1.2s$B$NJQ99$KH<$$!"(B\cs{ref}$B$,?t<0%b!<%I$G(B
-%    $B%(%i!<$K$J$C$F$$$?$N$r=$@5(B}
-% \changes{v1.2u}{2017/11/04}{emath$B$N(B\cs{marusuuref}$BBP:v(B}
-% \changes{v1.2v}{2018/01/27}{v1.2o$B$H(Bv1.2q$B$N=$@5$G(B\cs{nolinebreak}$B$,(B
-%    $B8z$+$J$$>l9g$,$"$C$?$N$G!"85$KLa$7$?(B}
-% \fi
-%
-% \iffalse
-%<*driver>
-\NeedsTeXFormat{pLaTeX2e}
-% \fi
-\ProvidesFile{plcore.dtx}[2018/01/27 v1.2v pLaTeX core file]
-% \iffalse
-\documentclass{jltxdoc}
-\GetFileInfo{plcore.dtx}
-\title{p\LaTeXe{}$B$N3HD%(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{plcore:intro}
-% $B$3$N%U%!%$%k$G$O!"$D$.$N5!G=$N3HD%$d=$@5$r9T$C$F$$$^$9!#(B
-% $B>\:Y$O!"$=$l$>$l$N9`L\$N@bL@$r;2>H$7$F$/$@$5$$!#(B
-%
-% \begin{itemize}
-% \item $B%W%j%"%s%V%k%3%^%s%I(B
-% \item $B2~%Z!<%8(B
-% \item $B2~9T(B
-% \item $B%*%V%8%'%/%H$N=PNO=g=x(B
-% \item $B%H%s%\(B
-% \item $B5SCm%^%/%m(B
-% \item $BAj8_;2>H(B
-% \item $B5?;w%?%$%WF~NO(B
-% \item tabbing$B4D6-(B
-% \item $BMQ8l=8$N=PNO(B
-% \item $B;~J,$r<($9%+%&%s%?(B
-% \end{itemize}
-%
-%
-% \section{$B%3!<%I(B}
-%
-% $B$3$N%U%!%$%k$NFbMF$O!"(Bp\LaTeXe{}$B$N%3%"ItJ,$G$9!#(B
-%    \begin{macrocode}
-%<*plcore>
-%    \end{macrocode}
-%
-% \subsection{$B%W%j%"%s%V%k%3%^%s%I(B}
-% $BJ8=q%U%!%$%k$,I,MW$H$9$k%U%)!<%^%C%H%U%!%$%k$N;XDj$r$9$k%3%^%s%I$r(B
-% $B3HD%$7!"(Bp\LaTeXe{}$B%U%)!<%^%C%H%U%!%$%k$bG'<1$9$k$h$&$K$7$^$9!#(B
-%
-% \begin{macro}{\NeedsTeXFormat}
-% \begin{macro}{\@needsPformat}
-% \begin{macro}{\@needsPf@rmat}
-% |\NeedsTeXFormats|$B$K(B``pLaTeX2e''$B$r;XDj$9$k$H!"(B
-% ``LaTeX2e''$B%U%)!<%^%C%H$rI,MW$H$9$k1Q8lHG$N%/%i%9%U%!%$%k$d(B
-% $B%Q%C%1!<%8%U%!%$%k$J$I$,;H$($J$/$J$C$F$7$^$&$?$a$K:FDj5A$7$^$9!#(B
-% $B$3$N%3%^%s%I$O(B\file{ltclass.dtx}$B$GDj5A$5$l$F$$$^$9!#(B
-%    \begin{macrocode}
-\def\NeedsTeXFormat#1{%
-   \def\reserved@a{#1}%
-   \ifx\reserved@a\pfmtname
-     \expandafter\@needsPformat
-   \else
-     \ifx\reserved@a\fmtname
-       \expandafter\expandafter\expandafter\@needsformat
-     \else
-       \@latex@error{This file needs format `\reserved@a'%
-          \MessageBreak but this is `\pfmtname'}{%
-          The current input file will not be processed
-          further,\MessageBreak
-          because it was written for some other flavor of
-          TeX.\MessageBreak\@ehd}%
-       \endinput
-     \fi
-   \fi}
-%
-\def\@needsPformat{\@ifnextchar[\@needsPf@rmat{}}
-%
-\def\@needsPf@rmat[#1]{%
-    \@ifl@t@r\pfmtversion{#1}{}%
-    {\@latex@warning@no@line
-        {You have requested release `#1' of pLaTeX,\MessageBreak
-         but only release `\pfmtversion' is available}}}
-%
-\@onlypreamble\@needsPformat
-\@onlypreamble\@needsPf@rmat
-%    \end{macrocode}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-%
-% \begin{macro}{\documentstyle}
-% |\documentclass|$B$NBe$o$j$K(B|\documentstyle|$B$,;H$o$l$k$H!"(B
-% \LaTeX~2.09$B8_49%b!<%I$KF~$j$^$9!#$3$N$H$-!"(B
-% $B%*%j%8%J%k$N(B\LaTeX{}$B$G$O(B\file{latex209.def}$B$rFI$_9~$_$^$9$,!"(B
-% p\LaTeXe{}$B$G$O(B\file{pl209.def}$B$rFI$_9~$_$^$9!#(B
-% $B$3$N%3%^%s%I$O(B\file{ltclass.dtx}$B$GDj5A$5$l$F$$$^$9!#(B
-%    \begin{macrocode}
-\def\documentstyle{%
-  \makeatletter\input{pl209.def}\makeatother
-  \documentclass}
-%    \end{macrocode}
-% \end{macro}
-%
-%
-%
-% \subsection{$B2~%Z!<%8(B}
-% $B=DAH$N$H$-!"2~%Z!<%88e$NFbMF$,6v?t%Z!<%8!J1&%Z!<%8!K$+$i$O$8$^$k$h$&$K$7$^$9!#(B
-% $B2#AH$N$H$-$K$O!"4q?t%Z!<%8!J1&%Z!<%8!K$+$i$O$8$^$j$^$9!#(B
-%
-% \begin{macro}{\cleardoublepage}
-% $B$3$N%3%^%s%I$K$h$C$F=PNO$5$l$k!"Gr%Z!<%8$N%Z!<%8%9%?%$%k$r(B
-% \pstyle{empty}$B$K$7!"%X%C%@$H%U%C%?$,F~$i$J$$$h$&$K$7$F$$$^$9!#(B
-% \file{ltoutput.dtx}$B$NDj5A$r!"=DAH!"2#AH$K9g$o$;$F!"Dj5A$7$J$*$7$?$b$N$G$9!#(B
-%    \begin{macrocode}
-\def\cleardoublepage{\clearpage\if@twoside
-  \ifodd\c@page
-    \iftdir
-      \hbox{}\thispagestyle{empty}\newpage
-      \if@twocolumn\hbox{}\newpage\fi
-    \fi
-  \else
-    \ifydir
-      \hbox{}\thispagestyle{empty}\newpage
-      \if@twocolumn\hbox{}\newpage\fi
-    \fi
-  \fi\fi}
-%    \end{macrocode}
-% \end{macro}
-%
-% \subsection{$B2~9T(B}
-%
-% \begin{macro}{\@gnewline}
-% \changes{v1.1c}{1995/08/25}{$B9TF,6XB'J8;z$ND>A0$G$N2~9T$G$NIT6q9g$N=$@5(B}
-% $BF|K\8l(B\TeX{}$B$N9TF,6XB'=hM}$O!"6XB'BP>]J8;z$ND>A0$K!"(B
-% |\prebreakpenalty|$B$G;XDj$5$l$?%Z%J%k%F%#$NCM$rA^F~$9$k$3$H$G(B
-% $B9T$J$C$F$$$^$9!#(B
-% $B$H$3$m$,!"2~9T%3%^%s%I$OIi$N%Z%J%k%F%#$NCM$rA^F~$9$k$3$H$G2~9T$r9T$J$$$^$9!#(B
-% $B$=$N$?$a$K!"6XB'%Z%J%k%F%#$NCM$,(B$10000$$B$NJ8;z$ND>8e$G$O!"%Z%J%k%F%#$NCM$,(B
-% $BAj;&$5$l!"2~9T$9$k$3$H$,$G$-$^$;$s!#(B
-%
-%\begin{verbatim}
-% $B$"$$$&$($*(B\\
-% $B!*$+$-$/$1$3(B
-%\end{verbatim}
-%
-% $B$7$?$,$C$F!"(B|\newline|$B%^%/%m$K(B|\mbox{}|$B$rF~$l$k$3$H$K$h$C$F!"(B
-% |\newline|$B%^%/%m$N%Z%J%k%F%#(B$-10000$$B$H9TF,J8;z$N%Z%J%k%F%#(B$10000$$B$,(B
-% $B2C;;$5$l$J$$$h$&$K$7$^$9!#(B|\\|$B$O(B|\newline|$B%^%/%m$r8F$S=P$7$F$$$^$9!#(B
-%
-% $B$J$*!"(B|\newline|$B%^%/%m$O(B\file{ltspaces.dtx}$B$GDj5A$5$l$F$$$^$9!#(B
-%
-% \changes{v1.1j}{1999/04/05}{$B%*%W%7%g%s$rIU$1$?>l9g$K!"M>7W$J6uGr(B
-%    $B$,F~$C$F$7$^$&$N$r=$@5!#$"$j$,$H$&!"NkLZN4;V!w5~ETBg3X$5$s!#(B}
-% \changes{v1.1h}{1997/06/25}{\LaTeX\ $B$N2~9T%^%/%m$NJQ99$KBP1~!#(B
-%    $B$"$j$,$H$&!"1|B<$5$s!#(B}
-% \LaTeX\ \texttt{<1996/12/01>}$B$G2~9T%^%/%m$,JQ99$5$l!"(B|\\|$B$,(B
-% |\newline|$B$r8F$S=P$5$J$/$J$C$?$?$a!"JQ99$5$l$?2~9T%^%/%m$KBP1~$7$^$7(B
-% $B$?!#(B|\null|$B$NA^F~0LCV$OF1$8$G$9!#(B
-% \file{ltspace.dtx}$B$NDj5A$r>e5-$K9g$o$;$F!"Dj5A$7$J$*$7$^$7$?!#(B
-%
-% \emph{$BF|K\8l(B\TeX{}$B3+H/%3%_%e%K%F%#$K$h$kJdB-(B}$B!'(B
-% $B%"%9%-!<$K$h$k(Bp\LaTeX{}$B$G$O!"9TF,6XB'J8;z$ND>A0$G(B|\\|$B$K$h$k6/@)2~9T$r(B
-% $B9T$($k$h$&$K$9$k$H$$$&L\E*$G(B
-% |\null|$B$r(B|\@gnewline|$B%^%/%mFb$KA^F~$7$F$$$^$7$?!#(B
-% $B$7$+$7!"$3$l$G$O(B|\\\par|$B$H=q$$$?>l9g$K(BUnderfull$B7Y9p$,=P$J$/$J$C$F(B
-% $B$$$^$9!J(B|tests/newline_par.tex|$B$r(B\texttt{latex}$B$H(B\texttt{platex}$B$G(B
-% $B=hM}$7$F$_$F$/$@$5$$!K!#(B
-%
-% $B$b$7(B|\null|$B$NBe$o$j$K(B|\hskip\z@|$B$rA^F~$9$l$P!"(B\LaTeX{}$B$HF1MM$K(B
-% Underfull$B7Y9p$r=P$9$3$H$,$G$-$^$9!#(B
-% $B$?$@$7!"(B|\null|$B$rA^F~$7$?>l9g$H0[$J$j!"6/@)2~9T8e$N9TF,$K(B
-% JFM$B%0%k!=$,F~$i$J$/$J$j$^$9!#$3$l$O$`$7$m!"1|B<$5$s$N(Bjsclasses$B$G(B
-% $B9TF,$rE7%D%-$KD>$7$F$$$k$N$HF1$8$G$9$,!"(Bp\LaTeX{}$B$H$7$F$O5sF0$,(B
-% $BJQ2=$7$F$7$^$$$^$9$N$G!"8=;~E@$G$O(B|\null|$B"*(B|\hskip\z@|$B$X$NJQ99$r(B
-% $B8+Aw$C$F$$$^$9!#(B
-% \changes{v1.2n}{2017/04/23}{$B%I%-%e%a%s%H$NDI2C(B}
-%
-%    \begin{macrocode}
-\def\@gnewline #1{%
-  \ifvmode
-    \@nolnerr
-  \else
-    \unskip \reserved@e {\reserved@f#1}\nobreak \hfil \break \null
-    \ignorespaces
-  \fi}
-%</plcore>
-%    \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\@no@lnbk}
-% \emph{$BF|K\8l(B\TeX{}$B3+H/%3%_%e%K%F%#$K$h$kDI2C(B}$B!'(B
-% $B$5$i$K!"(B|\\|$B$@$1$G$J$/(B|\linebreak|$B$K$D$$$F$bF1MM$NBP=h$r$7$^$9!#(B
-% \LaTeX{}$B$NDj5A$N$^$^$G$O%^%/%m$K$h$k%Z%J%k%F%#(B$-10000$$B$H(B
-% $B9TF,J8;z$N%Z%J%k%F%#(B$10000$$B$,2C;;$5$l$F$7$^$&$?$a!"(B
-% |\hskip\z@\relax|$B$rF~$l$F$*$-$^$9!#$J$*!"(B|\linebreak|$B$rH/9T$7$F(B
-% $B9TJ,3d$,5/$-$?>l9g!"?7$7$$9TF,$N(BJFM$B%0%k!=$O>C$($k$H$$$&=>Mh$N(B
-% p\LaTeX{}$B$N5sF0$b0];}$7$F$$$^$9!#(B
-% \changes{v1.2o}{2017/05/03}{$B9TF,6XB'J8;z$ND>A0$G$b2~9T$9$k$h$&$K$7$?(B}
-%
-% $BA02s$N(B|\hskip\z@\relax|$B$NDI2C$G$O!"(B|\nolinebreak|$B$N>l9g$K(B|\kanjiskip|$B$d(B
-% |\xkanjiskip|$B$,F~$i$J$$LdBj$,5/$-$F$7$^$$$^$7$?!#$=$3$G!"(B
-% |\penalty\z@\relax|$B$KJQ99$7$^$7$?!#$3$l$O!"L@<(E*$J(B|\penalty|$B%W%j%_%F%#%V(B
-% $BF1;N$N9g;;$O9T$o$l$J$$$3$H$rMxMQ$7$F$$$^$9!#(B
-% \changes{v1.2q}{2017/08/25}{\cs{nolinebreak}$B$N>l9g$K(B\cs{(x)kanjiskip}$B$,(B
-%    $BF~$i$J$/$J$C$F$$$?$N$r=$@5(B}
-%
-% $B$H$3$m$,!"$=$NJQ99$K$h$C$F$=$b$=$b(B|\nolinebreak|$B$,8z$+$J$$>l9g$,(B
-% $B@8$8$?$N$G!"JQ99A4BN$r$$$C$?$s%-%c%s%;%k$7$F85$KLa$7$^$9!#(B
-% \changes{v1.2v}{2018/01/27}{v1.2o$B$H(Bv1.2q$B$N=$@5$G(B\cs{nolinebreak}$B$,(B
-%    $B8z$+$J$$>l9g$,$"$C$?$N$G!"85$KLa$7$?(B}
-%    \begin{macrocode}
-%<platexrelease>\plIncludeInRelease{2017/10/28}{\@no@lnbk}
-%<platexrelease>                   {Break before prebreakpenalty}%
-%<platexrelease>\def\@no@lnbk #1[#2]{%
-%<platexrelease>  \ifvmode
-%<platexrelease>    \@nolnerr
-%<platexrelease>  \else
-%<platexrelease>    \@tempskipa\lastskip
-%<platexrelease>    \unskip
-%<platexrelease>    \penalty #1\@getpen{#2}%
-%<platexrelease>    \ifdim\@tempskipa>\z@
-%<platexrelease>      \hskip\@tempskipa
-%<platexrelease>      \ignorespaces
-%<platexrelease>    \fi
-%<platexrelease>  \fi}
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{2017/07/29}{\@no@lnbk}
-%<platexrelease>                   {Break before prebreakpenalty}%
-%<platexrelease>\def\@no@lnbk #1[#2]{%
-%<platexrelease>  \ifvmode
-%<platexrelease>    \@nolnerr
-%<platexrelease>  \else
-%<platexrelease>    \@tempskipa\lastskip
-%<platexrelease>    \unskip
-%<platexrelease>    \penalty #1\@getpen{#2}%
-%<platexrelease>    \penalty\z@\relax %% added (2017/08/25)
-%<platexrelease>    \ifdim\@tempskipa>\z@
-%<platexrelease>      \hskip\@tempskipa
-%<platexrelease>      \ignorespaces
-%<platexrelease>    \fi
-%<platexrelease>  \fi}
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{2017/05/05}{\@no@lnbk}
-%<platexrelease>                   {Break before prebreakpenalty}%
-%<platexrelease>\def\@no@lnbk #1[#2]{%
-%<platexrelease>  \ifvmode
-%<platexrelease>    \@nolnerr
-%<platexrelease>  \else
-%<platexrelease>    \@tempskipa\lastskip
-%<platexrelease>    \unskip
-%<platexrelease>    \penalty #1\@getpen{#2}%
-%<platexrelease>    \hskip\z@\relax %% added (2017/05/03)
-%<platexrelease>    \ifdim\@tempskipa>\z@
-%<platexrelease>      \hskip\@tempskipa
-%<platexrelease>      \ignorespaces
-%<platexrelease>    \fi
-%<platexrelease>  \fi}
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\@no@lnbk}
-%<platexrelease>                   {Break before prebreakpenalty}%
-%<platexrelease>\def\@no@lnbk #1[#2]{%
-%<platexrelease>  \ifvmode
-%<platexrelease>    \@nolnerr
-%<platexrelease>  \else
-%<platexrelease>    \@tempskipa\lastskip
-%<platexrelease>    \unskip
-%<platexrelease>    \penalty #1\@getpen{#2}%
-%<platexrelease>    \ifdim\@tempskipa>\z@
-%<platexrelease>      \hskip\@tempskipa
-%<platexrelease>      \ignorespaces
-%<platexrelease>    \fi
-%<platexrelease>  \fi}
-%<platexrelease>\plEndIncludeInRelease
-%    \end{macrocode}
-% \end{macro}
-%
-% $B$J$*!"(B\LaTeX{}$BMQ$NL?Na$G$"$k(B|\\|$B$H(B|\linebreak|$B$K$O>e5-$N$h$&$J(B
-% $B6XB'J8;z$X$NBP:v$rF~$l$F$$$^$9$,!"(Bplain \TeX{}$B8_49$N%7%s%W%k$J(B
-% $BL?Na$G$"$k(B|\break|$B$d(B|\nobreak|$B$K$O!"BP:v$r9T$$$^$;$s!#(B
-%
-% \subsection{$B%*%V%8%'%/%H$N=PNO=g=x(B}
-% $B%*%j%8%J%k$N(B\LaTeX{}$B$O!"%H%C%W%U%m!<%H!"K\J8!"5SCm!"%\%H%`%U%m!<%H(B
-% $B$N=gHV$G=PNO$7$^$9$1$l$I$b!"F|K\8lAHHG$G$O!"%H%C%W%U%m!<%H!"K\J8!"(B
-% $B%\%H%`%U%m!<%H!"5SCm$H$$$&=gHV$NJ}$,0lHLE*$G$9$N$G!"(B
-% $B$3$N$h$&$J=gHV$K$J$k$h$&=$@5$r$7$^$9!#(B
-%
-% $B$7$?$,$C$F!"J8=q%U%!%$%k$K$h$C$F$O(B\LaTeX{}$B$NAHHG7k2L$H0[$J$k>l9g$,(B
-% $B$"$j$^$9$N$G!"Cm0U$r$7$F$/$@$5$$!#(B
-%
-% 2014$BG/$K(B\LaTeX{}$B$K(B\file{fltrace}$B%Q%C%1!<%8$,DI2C$5$l$^$7$?$N$G!"(B
-% $B$=$N(Bp\LaTeX{}$BHG$H$7$F(B\file{pfltrace}$B%Q%C%1!<%8$rDI2C$7$^$9!#(B
-% $B$3$N(B\file{pfltrace}$B%Q%C%1!<%8$O(B\LaTeX{}$B$N(B\file{fltrace}$B%Q%C%1!<%8$K(B
-% $B0MB8$7$^$9!#(B
-% \changes{v1.2e}{2016/05/20}{\file{fltrace}$B%Q%C%1!<%8$N(Bp\LaTeX{}$BHG(B
-%    $B$H$7$F(B\file{pfltrace}$B%Q%C%1!<%8$r?7@_(B}
-%    \begin{macrocode}
-%<*fltrace>
-\NeedsTeXFormat{pLaTeX2e}
-\ProvidesPackage{pfltrace}
-     [2016/05/20 v1.2e Standard pLaTeX package (float tracing)]
-\RequirePackageWithOptions{fltrace}
-%</fltrace>
-%    \end{macrocode}
-%
-% \begin{macro}{\@makecol}
-% $B$3$N%^%/%m$,AH$_N)$F$kItJ,$NCf?4$H$J$j$^$9!#(B
-% \file{ltoutput.dtx}$B$GDj5A$5$l$F$$$k$b$N$G$9!#(B
-%    \begin{macrocode}
-%<platexrelease>\plIncludeInRelease{2017/04/08}{\@makecol}{\@makecol}%
-%<*plcore|platexrelease>
-\gdef\@makecol{%
-   \setbox\@outputbox\box\@cclv%
-   \let\@elt\relax % added on LaTeX (ltoutput.dtx 2003/12/16 v1.2k)
-   \xdef\@freelist{\@freelist\@midlist}%
-   \global \let \@midlist \@empty
-   \@combinefloats
-%    \end{macrocode}
-% $B%*%j%8%J%k$N(B\LaTeX{}$B$O!"%H%C%W%U%m!<%H!"K\J8!"5SCm!"%\%H%`%U%m!<%H$N=gHV$G(B
-% $B=PNO$7$^$9!#0lJ}(Bp\LaTeX{}$B$O!"%H%C%W%U%m!<%H!"K\J8!"%\%H%`%U%m!<%H!"5SCm$N(B
-% $B=gHV$G=PNO$7$^$9!#$H$3$m$,!"%"%9%-!<HG$N%3!<%I$O=gHV$rF~$lBX$($k$@$1$G$J$/!"(B
-% $BHGLLA4BN$N?bD>0LCV$,!JFC$K=DAH$G82Cx$K!K$:$l$F$7$^$C$F$$$^$7$?!#(B
-% $B$3$l$OJd@5NL(B|\dp\@outputbox|$B$N<hF@$,Aa$9$.$?$?$a$G$9$N$G!"%3%_%e%K%F%#HG(B
-% p\LaTeX{}$B$G$O$3$NLdBj$KBP=h$7$F$"$j$^$9!#7k2LE*$K!"(Bfnpos$B%Q%C%1!<%8(B(yafoot)$B$N(B
-% |\makeFNbottom|$B$+$D(B|\makeFNbelow|$B$J>uBV$H40A4$KEy2A$K$J$j$^$7$?!#(B
-% \changes{v1.2l}{2017/02/25}{$B5SCm$H%\%H%`%U%m!<%H$N=g=x$rF~$lBX$($?$3$H$G(B
-%    $BHGLLA4BN$N?bD>0LCV$,$:$l$F$$$?$N$r=$@5(B(Issue 32)}
-%    \begin{macrocode}
-   \let\pltx@textbottom\@textbottom % save (pLaTeX 2017/02/25)
-   \ifvoid\footins\else % changed (pLaTeX 2017/02/25)
-     \setbox\@outputbox \vbox {%
-       \boxmaxdepth \@maxdepth
-       \unvbox \@outputbox
-       \@textbottom % inserted here (pLaTeX 2017/02/25)
-       \vskip \skip\footins
-       \color@begingroup
-         \normalcolor
-         \footnoterule
-         \unvbox \footins
-       \color@endgroup
-       }%
-       \let\@textbottom\relax % disable temporarily (pLaTeX 2017/02/25)
-   \fi
-   \ifvbox\@kludgeins
-     \@makespecialcolbox
-   \else
-     \setbox\@outputbox \vbox to\@colht {%
-%       \boxmaxdepth \@maxdepth    % comment out on LaTeX 1997/12/01
-       \@texttop
-       \dimen@ \dp\@outputbox
-       \unvbox \@outputbox
-%    \end{macrocode}
-% $B=DAH$N:]$K(B|\@outputbox|$B$NFbMF$,6u$N%\%C%/%9$@$1$N>l9g$K!"(B|\wd\@outputbox|$B$,(B
-% 0pt$B$K$J$C$F$7$^$$!"7k2L$H$7$F%U%C%?$N0LCV$,$/$k$C$F$7$^$C$F$$$?!#(B
-% 0$B$N(B|\hskip|$B$rH/@8$5$;$k$H(B|\wd\@outputbox|$B$NCM$,4|BT$7$?$b$N$H$J$k$N$G!"(B
-% $B=DAH$N>l9g$O$=$NJ}K!$GBP=h$9$k!#(B
-%
-% $B$?$@$7!"(B0$B$N(B|\hskip|$B$rH/@8$5$;$k$H$-!"?eJ?%b!<%I$KF~$C$F$7$^$&$H!"$?$H$($P(B
-% longtable$B%Q%C%1!<%8$r;HMQ$7$FI=AHESCf$G2~%Z!<%8$9$k$H$-$K(B|\par -> {\vskip}|$B$N(B
-% $BL58B%k!<%W$,5/$-$F$7$^$$$^$9!#$=$3$G!"(B|\vbox|$B$NCf$GH/@8$5$;$^$9!#(B
-% \changes{v1.1j}{2001/05/10}{\cs{@makecol}$B$GAH$_N)$F$i$l$k(B
-%    \cs{@outputbox}$B$NBg$-$5$,!"=DAH$GCf?H$,6u$N%\%C%/%9$@$1$N>l9g$bE,@5$K$J$k(B
-%    $B$h$&$K=$@5(B}
-% \changes{v1.2b}{2016/01/26}{\cs{@outputbox}$B$N?<$5$,B>$N$b$N$N0LCV$K1F6A$rM?$($J$$(B
-%    $B$h$&$K$9$k(B\texttt{\cs{vskip}~-\cs{dimen@}}$B$,=DAH%b!<%I$G$OL58z$K$J$C$F$$$?$N$G=$@5(B}
-% \changes{v1.2h}{2016/09/01}{$B=DAH$G(Blongtable$B%Q%C%1!<%8$r;H$C$FI=AH$NESCf$G2~%Z!<%8(B
-%    $B$9$k$H$-L58B%k!<%W$,5/$3$kLdBj$KBP=h(B(Issue 21)}
-%    \begin{macrocode}
-       \iftdir\vbox{\hskip\z@}\fi
-       \vskip -\dimen@
-       \@textbottom
-       }%
-   \fi
-   \let\@textbottom\pltx@textbottom % restore (pLaTeX 2017/02/25)
-   \global \maxdepth \@maxdepth
-}
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{2016/09/03}{\@makecol}{\@makecol}%
-%<platexrelease>\gdef\@makecol{%
-%<platexrelease>   \setbox\@outputbox\box\@cclv%
-%<platexrelease>   \xdef\@freelist{\@freelist\@midlist}%
-%<platexrelease>   \global \let \@midlist \@empty
-%<platexrelease>   \@combinefloats
-%<platexrelease>   \ifvbox\@kludgeins
-%<platexrelease>     \@makespecialcolbox
-%<platexrelease>   \else
-%<platexrelease>     \setbox\@outputbox \vbox to\@colht {%
-%<platexrelease>%       \boxmaxdepth \@maxdepth    % comment out on LaTeX 1997/12/01
-%<platexrelease>       \@texttop
-%<platexrelease>       \dimen@ \dp\@outputbox
-%<platexrelease>       \unvbox \@outputbox
-%<platexrelease>       \iftdir\vbox{\hskip\z@}\fi
-%<platexrelease>       \vskip -\dimen@
-%<platexrelease>       \@textbottom
-%<platexrelease>       \ifvoid\footins\else % for pLaTeX
-%<platexrelease>         \vskip \skip\footins
-%<platexrelease>         \color@begingroup
-%<platexrelease>            \normalcolor
-%<platexrelease>            \footnoterule
-%<platexrelease>            \unvbox \footins
-%<platexrelease>         \color@endgroup
-%<platexrelease>       \fi
-%<platexrelease>       }%
-%<platexrelease>   \fi
-%<platexrelease>   \global \maxdepth \@maxdepth
-%<platexrelease>}
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{2016/04/17}{\@makecol}{\@makecol}%
-%<platexrelease>\gdef\@makecol{%
-%<platexrelease>   \setbox\@outputbox\box\@cclv%
-%<platexrelease>   \xdef\@freelist{\@freelist\@midlist}%
-%<platexrelease>   \global \let \@midlist \@empty
-%<platexrelease>   \@combinefloats
-%<platexrelease>   \ifvbox\@kludgeins
-%<platexrelease>     \@makespecialcolbox
-%<platexrelease>   \else
-%<platexrelease>     \setbox\@outputbox \vbox to\@colht {%
-%<platexrelease>%       \boxmaxdepth \@maxdepth    % comment out on LaTeX 1997/12/01
-%<platexrelease>       \@texttop
-%<platexrelease>       \dimen@ \dp\@outputbox
-%<platexrelease>       \unvbox \@outputbox
-%<platexrelease>       \iftdir\hskip\z@\fi
-%<platexrelease>       \vskip -\dimen@
-%<platexrelease>       \@textbottom
-%<platexrelease>       \ifvoid\footins\else % for pLaTeX
-%<platexrelease>         \vskip \skip\footins
-%<platexrelease>         \color@begingroup
-%<platexrelease>            \normalcolor
-%<platexrelease>            \footnoterule
-%<platexrelease>            \unvbox \footins
-%<platexrelease>         \color@endgroup
-%<platexrelease>       \fi
-%<platexrelease>       }%
-%<platexrelease>   \fi
-%<platexrelease>   \global \maxdepth \@maxdepth
-%<platexrelease>}
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\@makecol}{\@makecol}%
-%<platexrelease>\gdef\@makecol{%
-%<platexrelease>   \setbox\@outputbox\box\@cclv%
-%<platexrelease>   \xdef\@freelist{\@freelist\@midlist}%
-%<platexrelease>   \global \let \@midlist \@empty
-%<platexrelease>   \@combinefloats
-%<platexrelease>   \ifvbox\@kludgeins
-%<platexrelease>     \@makespecialcolbox
-%<platexrelease>   \else
-%<platexrelease>     \setbox\@outputbox \vbox to\@colht {%
-%<platexrelease>%       \boxmaxdepth \@maxdepth    % comment out on LaTeX 1997/12/01
-%<platexrelease>       \@texttop
-%<platexrelease>       \dimen@ \dp\@outputbox
-%<platexrelease>       \unvbox \@outputbox
-%<platexrelease>       \iftdir\hskip\z@
-%<platexrelease>       \else\vskip -\dimen@\fi
-%<platexrelease>       \@textbottom
-%<platexrelease>       \ifvoid\footins\else % for pLaTeX
-%<platexrelease>         \vskip \skip\footins
-%<platexrelease>         \color@begingroup
-%<platexrelease>            \normalcolor
-%<platexrelease>            \footnoterule
-%<platexrelease>            \unvbox \footins
-%<platexrelease>         \color@endgroup
-%<platexrelease>       \fi
-%<platexrelease>       }%
-%<platexrelease>   \fi
-%<platexrelease>   \global \maxdepth \@maxdepth
-%<platexrelease>}
-%<platexrelease>\plEndIncludeInRelease
-%    \end{macrocode}
-% \end{macro}
-%
-%
-% \begin{macro}{\@makespecialcolbox}
-% $BK\J8!J$"$k$$$O%\%H%`%U%m!<%H!K$H5SCm$N4V$K(B|\@textbottom|$B$rF~$l$?$$$N$G!"(B
-% |\@makespecialcolbox|$B%3%^%s%I$b=$@5$r$7$^$9!#(B
-% $B$d$O$j!"(B\file{ltoutput.dtx}$B$GDj5A$5$l$F$$$k$b$N$G$9!#(B
-%
-% $B$3$N%^%/%m$O!"(B|\enlargethispage|$B$,;H$o$l$?$H$-$K!"(B
-% |\@makecol|$B%^%/%m$+$i8F$S=P$5$l$^$9!#(B
-%
-% \noindent\emph{$BF|K\8l(B\TeX{}$B3+H/%3%_%e%K%F%#$K$h$kJdB-(B(2017/02/25)}$B!'(B
-% 2016/11/29$B0JA0$N(Bp\LaTeX{}$B$G$O!"(B|\@makecol|$B$O%\%H%`%U%m!<%H$rA^F~$7$?8e!"(B
-% $B$9$0$K(B|\@kludgeins|$B$,6u$+$I$&$+H=Dj$7(B
-% \begin{itemize}
-% \item $B6u$N>l9g$O!";D$j$9$Y$F$N=hM}$r(B|\@makespecialcolbox|$B$KG$$;$k(B
-% \item $B6u$G$J$$>l9g$O!"(B|\@makecol|$B<+?H$G;D$j$9$Y$F$N=hM}$r9T$&(B
-% \end{itemize}
-% $B$H$7$F$$$^$7$?!#$7$+$7(B2017/04/08$B0J9_$N(Bp\LaTeX{}$B$G$O!"(B|\@makecol|$B$O%\%H%`(B
-% $B%U%m!<%H$H5SCm$rA^F~$7$F$+$i(B|\@kludgeins|$B$NH=Dj$K0\$k$h$&$K$7$F$$$^$9!#(B
-% $B$7$?$,$C$F!"?7$7$$(B|\@makecol|$B$+$i0J2<$K5-$9(B|\@makespecialcolbox|$B$,8F$S(B
-% $B=P$5$l$k>l9g$O!"(B|\ifvoid\footins|$B!JFs2U=j!K$NH=Dj$O>o$K??$H$J$k$O$:$G$9!#(B
-% $BMW$9$k$K!V$D$.$NItJ,$,(Bp\LaTeX{}$BMQ$N=$@5$G$9!#!W$H$$$&Fs2U=j$N%3!<%I$O(B
-% $B<B<AE*$KITMW$H$J$j$^$7$?!#(B
-%
-% $B$7$+$7!"$@$+$i$H$$$C$F>C$7$F$7$^$&$H!"8E$$(Bp\LaTeX{}$B$N(B|\@makecol|$B$r(B
-% $B%Y!<%9$K:n$i$l$?30It%Q%C%1!<%8$+$i(B|\@makespecialcolbox|$B$,8F$S=P$5$l$k(B
-% $B>l9g$K5SCm$,>CLG$9$k$*$=$l$,$"$j$^$9!#$3$N$?$a!"(B|\@makespecialcolbox|$B$O(B
-% $B=>Mh$N%3!<%I$N$^$^0];}$7$F$"$j$^$9!J32$O$"$j$^$;$s!K!#(B
-% \changes{v1.2l}{2017/02/25}{\cs{@makecol}$B$rJQ99$7$?$N$K(B
-%    \cs{@makespecialcolbox}$B$rJQ99$7$J$$!"$H$$$&H=CG$K$D$$$FL@J82=(B}
-%    \begin{macrocode}
-%<*plcore|fltrace>
-\gdef\@makespecialcolbox{%
-%<*trace>
-   \fl@trace{Krudgeins ht \the\ht\@kludgeins\space
-                       dp \the\dp\@kludgeins\space
-                       wd \the\wd\@kludgeins}%
-%</trace>
-   \setbox\@outputbox \vbox {%
-     \@texttop
-     \dimen@ \dp\@outputbox
-     \unvbox\@outputbox
-     \vskip-\dimen@
-     }%
-   \@tempdima \@colht
-   \ifdim \wd\@kludgeins>\z@
-     \advance \@tempdima -\ht\@outputbox
-     \advance \@tempdima \pageshrink
-%<*trace>
-     \fl@trace {Natural ht of col: \the\ht\@outputbox}%
-     \fl@trace {\string \@colht: \the\@colht}%
-     \fl@trace {Pageshrink added: \the\pageshrink}%
-     \fl@trace {Hence, space added: \the\@tempdima}%
-%</trace>
-     \setbox\@outputbox \vbox to \@colht {%
-%       \boxmaxdepth \maxdepth
-       \unvbox\@outputbox
-       \vskip \@tempdima
-       \@textbottom
-%    \end{macrocode}
-% $B$D$.$NItJ,$,(Bp\LaTeX{}$BMQ$N=$@5$G$9!#(B
-% \changes{v1.2}{2001/09/04}{$BK\J8$H(B\cs{footnoterule}$B$,=E$J$C$F$7$^$&$N$r=$@5(B}
-%    \begin{macrocode}
-       \ifvoid\footins\else % for pLaTeX
-         \vskip\skip\footins
-         \color@begingroup
-            \normalcolor
-            \footnoterule
-            \unvbox \footins
-         \color@endgroup
-       \fi
-     }%
-   \else
-     \advance \@tempdima -\ht\@kludgeins
-%<*trace>
-     \fl@trace {Natural ht of col: \the\ht\@outputbox}%
-     \fl@trace {\string \@colht: \the\@colht}%
-     \fl@trace {Extra size added: -\the \ht \@kludgeins}%
-     \fl@trace {Hence, height of inner box: \the\@tempdima}%
-     \fl@trace {Max? pageshrink available: \the\pageshrink}%
-%</trace>
-     \setbox \@outputbox \vbox to \@colht {%
-       \vbox to \@tempdima {%
-         \unvbox\@outputbox
-         \@textbottom
-%    \end{macrocode}
-% $B$D$.$NItJ,$,(Bp\LaTeX{}$BMQ$N=$@5$G$9!#(B
-% $B5SCm$,$"$l$P!"$3$3$G$=$l$r=PNO$7$^$9!#(B
-% \changes{v1.2}{2001/09/04}{$BK\J8$H(B\cs{footnoterule}$B$,=E$J$C$F$7$^$&$N$r=$@5(B}
-%    \begin{macrocode}
-         \ifvoid\footins\else % for pLaTeX
-           \vskip\skip\footins
-           \color@begingroup
-              \normalcolor
-              \footnoterule
-              \unvbox \footins
-           \color@endgroup
-         \fi
-       }\vss}%
-   \fi
-   {\setbox \@tempboxa \box \@kludgeins}%
-%<*trace>
-     \fl@trace {kludgeins box made void}%
-%</trace>
-}
-%</plcore|fltrace>
-%    \end{macrocode}
-% \end{macro}
-%
-%
-% \begin{macro}{\@reinserts}
-% $B$3$N%^%/%m$O!"(B|\@specialoutput|$B%^%/%m$+$i8F$S=P$5$l$^$9!#(B
-% $B%\%C%/%9(B|footins|$B$,AH$_N)$F$i$l$?%b!<%I$K9g$o$;$F(B
-% $B=D%b!<%I$+2#%b!<%I$G(B|\unvbox|$B$r$7$^$9!#(B
-%    \begin{macrocode}
-%<*plcore>
-\def\@reinserts{%
-  \ifvoid\footins\else\insert\footins{%
-    \iftbox\footins\tate\else\yoko\fi
-    \unvbox\footins}\fi
-  \ifvbox\@kludgeins\insert\@kludgeins{\unvbox\@kludgeins}\fi
-}
-%    \end{macrocode}
-% \end{macro}
-%
-%
-% \subsection{$B%H%s%\(B}
-% $B$3$3$G$O%H%s%\$r=PNO$9$k$?$a$N%^%/%m$rDj5A$7$F$$$^$9!#(B
-%
-% \begin{macro}{\iftombow}
-% \begin{macro}{\iftombowdate}
-% |\iftombow|$B$O%H%s%\$r=PNO$9$k$+$I$&$+!"(B|\iftombowdate|$B$O(BDVI$B$r:n@.$7$?(B
-% $BF|IU$r%H%s%\$NOF$K=PNO$9$k$+$I$&$+$r<($9$?$a$KMQ$$$^$9!#(B
-%    \begin{macrocode}
-\newif\iftombow \tombowfalse
-\newif\iftombowdate \tombowdatetrue
-%    \end{macrocode}
-% \end{macro}
-% \end{macro}
-%
-% \begin{macro}{\@tombowwidth}
-% |\@tombowwidth|$B$K$O!"%H%s%\MQ7S@~$NB@$5$r;XDj$7$^$9!#(B
-% $B%G%U%)%k%H$O(B0.1$B%]%$%s%H$G$9!#(B
-% $B$3$NCM$rJQ99$7!"(B|\maketombowbox|$B%3%^%s%I$r<B9T$9$k$3$H$K$h$j!"%H%s%\$N(B
-% $B7S@~B@$5$rJQ99$7$F=PNO$9$k$3$H$,$G$-$^$9!#DL>o$N;H$$J}$G$O!"(B
-% $B%H%s%\$N7S@~$rJQ99$9$kI,MW$O$"$j$^$;$s!#(BDVI$B$r%U%#%k%`$KLLIU$1=PNO$9$k(B
-% $B$H$-!"%H%s%\$r$D$1$:$K0LCV$O$=$N$^$^$K$9$kI,MW$,$"$k$H$-$K!"$3$NB@$5$r(B
-% $B%<%m%]%$%s%H$K$7$^$9!#(B
-%    \begin{macrocode}
-\newdimen\@tombowwidth
-\setlength{\@tombowwidth}{.1\p@}
-%    \end{macrocode}
-% \end{macro}
-%
-% $B%H%s%\MQ$N7S@~$rDj5A$7$^$9!#(B
-%
-% \begin{macro}{\@TL}
-% \begin{macro}{\@Tl}
-% \begin{macro}{\@TC}
-% \begin{macro}{\@TR}
-% \begin{macro}{\@Tr}
-% |\@TL|$B$H(B|\@Tl|$B$O%Z!<%8>eIt$N:8B&!"(B
-% |\@TC|$B$O%Z!<%8>eIt$NCf1{!"(B
-% |\@TR|$B$H(B|\@Tr|$B$O%Z!<%8>eIt$N:8B&$N%H%s%\$H$J$k%\%C%/%9$G$9!#(B
-%    \begin{macrocode}
-\newbox\@TL\newbox\@Tl
-\newbox\@TC
-\newbox\@TR\newbox\@Tr
-%    \end{macrocode}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-%
-% \begin{macro}{\@BL}
-% \begin{macro}{\@Bl}
-% \begin{macro}{\@BC}
-% \begin{macro}{\@BR}
-% \begin{macro}{\@Br}
-% |\@BL|$B$H(B|\@Bl|$B$O%Z!<%82<It$N:8B&!"(B
-% |\@BC|$B$O%Z!<%82<It$NCf1{!"(B
-% |\@BR|$B$H(B|\@Br|$B$O%Z!<%82<It$N:8B&$N%H%s%\$H$J$k%\%C%/%9$G$9!#(B
-%    \begin{macrocode}
-\newbox\@BL\newbox\@Bl
-\newbox\@BC
-\newbox\@BR\newbox\@Br
-%    \end{macrocode}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-%
-% \begin{macro}{\@CL}
-% \begin{macro}{\@CR}
-% |\@CL|$B$O%Z!<%8:8B&$NCf1{!"(B|\@CR|$B$O%Z!<%81&B&$NCf1{$N%H%s%\$H$J$k(B
-% $B%\%C%/%9$G$9!#(B
-%    \begin{macrocode}
-\newbox\@CL
-\newbox\@CR
-%    \end{macrocode}
-% \end{macro}
-% \end{macro}
-%
-% \begin{macro}{\@bannertoken}
-% \begin{macro}{\@bannerfont}
-% |\@bannertoken|$B%H!<%/%s$O!"%H%s%\$N2#$K=PNO$9$kJ8;zNs$rF~$l$^$9!#(B
-% $B%G%U%)%k%H$G$O2?$b=PNO$7$^$;$s!#(B
-% |\@bannerfont|$B%U%)%s%H$O!"$=$NJ8;zNs$r=PNO$9$k$?$a$N%U%)%s%H$G$9!#(B
-% 9$B%]%$%s%H$N%?%$%W%i%$%?BN$H$7$F$$$^$9!#(B
-% \changes{v1.1f}{1996/09/03}{Add \cs{@bannertoken}.}
-%    \begin{macrocode}
-\font\@bannerfont=cmtt9
-\newtoks\@bannertoken
-\@bannertoken{}
-%    \end{macrocode}
-% \end{macro}
-% \end{macro}
-%
-% \begin{macro}{\maketombowbox}
-% |\maketombow|$B%3%^%s%I$O!"%H%s%\$H$J$k%\%C%/%9$r:n$k$?$a$KMQ$$$^$9!#(B
-% $B$3$N%3%^%s%I$O!"%H%s%\$H$J$k%\%C%/%9$r:n$k$@$1$G!"$=$l$i$N%\%C%/%9$r(B
-% $B=PNO$9$k$N$G$O$J$$$3$H$KCm0U$r$7$F$/$@$5$$!#(B
-%    \begin{macrocode}
-\def\maketombowbox{%
-  \setbox\@TL\hbox to\z@{\yoko\hss
-      \vrule width13mm height\@tombowwidth depth\z@
-      \vrule height10mm width\@tombowwidth depth\z@
-%    \end{macrocode}
-% \changes{v1.0f}{1996/07/10}{$B%H%s%\$N2#$K(BDVI$B%U%!%$%k$N:n@.F|$r=PNO$9$k(B
-%    $B$h$&$K$7$?!#(B}
-% \changes{v1.0g}{1997/01/23}{$B:n@.F|$N=PNO$r$9$k$+$I$&$+$r%U%i%0$G;XDj$9$k(B
-%    $B$h$&$K$7$?!#(B}
-%    \begin{macrocode}
-      \iftombowdate
-        \raise4pt\hbox to\z@{\hskip5mm\@bannerfont\the\@bannertoken\hss}%
-      \fi}%
-  \setbox\@Tl\hbox to\z@{\yoko\hss
-      \vrule width10mm height\@tombowwidth depth\z@
-      \vrule height13mm width\@tombowwidth depth\z@}%
-  \setbox\@TC\hbox{\yoko
-      \vrule width10mm height\@tombowwidth depth\z@
-      \vrule height10mm width\@tombowwidth depth\z@
-      \vrule width10mm height\@tombowwidth depth\z@}%
-  \setbox\@TR\hbox to\z@{\yoko
-      \vrule height10mm width\@tombowwidth depth\z@
-      \vrule width13mm height\@tombowwidth depth\z@\hss}%
-  \setbox\@Tr\hbox to\z@{\yoko
-      \vrule height13mm width\@tombowwidth depth\z@
-      \vrule width10mm height\@tombowwidth depth\z@\hss}%
-%
-  \setbox\@BL\hbox to\z@{\yoko\hss
-      \vrule width13mm depth\@tombowwidth height\z@
-      \vrule depth10mm width\@tombowwidth height\z@}%
-  \setbox\@Bl\hbox to\z@{\yoko\hss
-      \vrule width10mm depth\@tombowwidth height\z@
-      \vrule depth13mm width\@tombowwidth height\z@}%
-  \setbox\@BC\hbox{\yoko
-      \vrule width10mm depth\@tombowwidth height\z@
-      \vrule depth10mm width\@tombowwidth height\z@
-      \vrule width10mm depth\@tombowwidth height\z@}%
-  \setbox\@BR\hbox to\z@{\yoko
-      \vrule depth10mm width\@tombowwidth height\z@
-      \vrule width13mm depth\@tombowwidth height\z@\hss}%
-  \setbox\@Br\hbox to\z@{\yoko
-      \vrule depth13mm width\@tombowwidth height\z@
-      \vrule width10mm depth\@tombowwidth height\z@\hss}%
-%
-  \setbox\@CL\hbox to\z@{\yoko\hss
-      \vrule width10mm height.5\@tombowwidth depth.5\@tombowwidth
-      \vrule height10mm depth10mm width\@tombowwidth}%
-  \setbox\@CR\hbox to\z@{\yoko
-      \vrule height10mm depth10mm width\@tombowwidth
-      \vrule height.5\@tombowwidth depth.5\@tombowwidth width10mm\hss}%
-}
-%    \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\@outputtombow}
-% |\@outputtombow|$B%3%^%s%I$O!"%H%s%\$r=PNO$9$k$N$KMQ$$$^$9!#(B
-% \changes{v1.2d}{2016/04/01}{multicol$B%Q%C%1!<%8$r;H$&$H%H%s%\$N2<C<$,=L$`LdBj$r=$@5(B}
-%    \begin{macrocode}
-%</plcore>
-%<platexrelease>\plIncludeInRelease{2016/04/17}{\@outputtombow}{\@outputtombow}%
-%<*plcore|platexrelease>
-\def\@outputtombow{%
-  \iftombow
-  \vbox to\z@{\kern-13mm\relax
-    \boxmaxdepth\maxdimen%% Added (Apr 1, 2016)
-    \moveleft3mm\vbox to\@@paperheight{%
-      \hbox to\@@paperwidth{\hskip3mm\relax
-         \copy\@TL\hfill\copy\@TC\hfill\copy\@TR\hskip3mm}%
-      \kern-10mm
-      \hbox to\@@paperwidth{\copy\@Tl\hfill\copy\@Tr}%
-      \vfill
-      \hbox to\@@paperwidth{\copy\@CL\hfill\copy\@CR}%
-      \vfill
-      \hbox to\@@paperwidth{\copy\@Bl\hfill\copy\@Br}%
-      \kern-10mm
-      \hbox to\@@paperwidth{\hskip3mm\relax
-         \copy\@BL\hfill\copy\@BC\hfill\copy\@BR\hskip3mm}%
-    }\vss
-  }%
-  \fi
-}
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\@outputtombow}{\@outputtombow}%
-%<platexrelease>\def\@outputtombow{%
-%<platexrelease>  \iftombow
-%<platexrelease>  \vbox to\z@{\kern-13mm\relax
-%<platexrelease>    \moveleft3mm\vbox to\@@paperheight{%
-%<platexrelease>      \hbox to\@@paperwidth{\hskip3mm\relax
-%<platexrelease>         \copy\@TL\hfill\copy\@TC\hfill\copy\@TR\hskip3mm}%
-%<platexrelease>      \kern-10mm
-%<platexrelease>      \hbox to\@@paperwidth{\copy\@Tl\hfill\copy\@Tr}%
-%<platexrelease>      \vfill
-%<platexrelease>      \hbox to\@@paperwidth{\copy\@CL\hfill\copy\@CR}%
-%<platexrelease>      \vfill
-%<platexrelease>      \hbox to\@@paperwidth{\copy\@Bl\hfill\copy\@Br}%
-%<platexrelease>      \kern-10mm
-%<platexrelease>      \hbox to\@@paperwidth{\hskip3mm\relax
-%<platexrelease>         \copy\@BL\hfill\copy\@BC\hfill\copy\@BR\hskip3mm}%
-%<platexrelease>    }\vss
-%<platexrelease>  }%
-%<platexrelease>  \fi
-%<platexrelease>}
-%<platexrelease>\plEndIncludeInRelease
-%<*plcore>
-%    \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\@@paperheight}
-% \begin{macro}{\@@paperwidth}
-% \begin{macro}{\@@topmargin}
-% |\@@pageheight|$B$O!"MQ;f$N=D$ND9$5$K%H%s%\$ND9$5$r2C$($?D9$5$K$J$j$^$9!#(B
-%
-% |\@@pagewidth|$B$O!"MQ;f$N2#$ND9$5$K%H%s%\$ND9$5$r2C$($?D9$5$K$J$j$^$9!#(B
-%
-% |\@@topmargin|$B$O!"8=:_$N%H%C%W%^!<%8%s$K(B1$B%$%s%A2C$($?D9$5$K$J$j$^$9!#(B
-%    \begin{macrocode}
-\newdimen\@@paperheight
-\newdimen\@@paperwidth
-\newdimen\@@topmargin
-%    \end{macrocode}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-%
-%  \begin{macro}{\@shipoutsetup}
-% \changes{v1.1i}{1998/02/03}{Command removed}
-% |\@outputpage|$BFb$KA^F~$7$?$N$G:o=|$7$^$7$?!#(B
-%  \end{macro}
-%
-% \begin{macro}{\@outputpage}
-% |\textwidth|$B$H(B|\textheight|$B$N8r49$O!"(B|\@shipoutsetup|$BFb$G$O9T$J$$$^$;$s!#(B
-% $B$J$<$J$i!"(B|\@shipoutsetup|$B%^%/%m$,<B9T$5$l$k$H$-$O!"(B
-% |\shipout|$B$5$l$k(Bvbox$B$NCf$G$"$j!"$3$N$H$-$O2#AH%b!<%I$G$9$N$G!"(B
-% $B$D$M$K(B|\iftdir|$B$O56$HH=CG$5$l!"=D$H2#$N%5%$%:$r8r49$G$-$J$$$+$i$G$9!#(B
-%
-% $B$J$*!"$3$NJQ99$r%m!<%+%k$J$b$N$K$9$k$?$a$K!"(B
-% |\begingroup|$B$H(B|\endgroup|$B$G0O$_$^$9!#(B
-% \changes{v1.2a}{2001/09/26}{\LaTeX\ \texttt{!<2001/06/01!>}$B$KBP1~(B}
-%    \begin{macrocode}
-%</plcore>
-%<platexrelease>\plIncludeInRelease{2017/04/08}{\@outputpage}
-%<platexrelease>                   {Reset language for hyphenation}%
-%<*plcore|platexrelease>
-\def\@outputpage{%
-\begingroup % the \endgroup is put in by \aftergroup
-  \iftdir
-    \dimen\z@\textwidth \textwidth\textheight \textheight\dimen\z@
-  \fi
-  \let \protect \noexpand
-%    \end{macrocode}
-% \LaTeXe\ 2017-04-15$B$G$O(Bverbatim$B4D6-Fb$G%O%$%U%M!<%7%g%s$,5/$-$J$$$h$&$K(B
-% $B=$@5$5$l$^$7$?$,!"(Bverbatim$B4D6-$NESCf$G2~%Z!<%8$,5/$-$?>l9g$K%X%C%@$G(B
-% $B%O%$%U%M!<%7%g%s$,M^@)$5$l$k$N$O@5$7$/$J$$$N$G!"(B|\language|$B$r(B
-% |\begin{document}|$B$G$NCM$K%j%;%C%H$7$^$9!J;29M!'(Blatex2e svn r1407$B!K!#(B
-% $B%W%j%"%s%V%k$GFCJL$K@_Dj$5$l$l$P$=$NCM!"@_Dj$5$l$J$1$l$P(B0$B$G$9!JK|$,0l(B
-% |\document|$B$NDj5A$,8E$$>l9g(B\footnote{\LaTeXe\ 2017/01/01$B0JA0$r;H$C$F(B
-% p\LaTeXe{}$B$N%U%)!<%^%C%H$r:n@.$7$?>l9g$d!"(Bdinbrief.cls$B$N$h$&$KFH<+$N(B
-% $B:FDj5A$r9T$&%/%i%9$d%Q%C%1!<%8$r;H$C$?>l9g$K5/$3$k$+$b$7$l$^$;$s!#(B}$B$O(B
-% $-1$$B$K$J$j$^$9$,!"$3$l$O(B0$B$HF1$8$O$?$i$-$r$9$k$N$GLdBj$O5/$-$^$;$s!K!#(B
-% \changes{v1.2m}{2017/03/19}{\cs{language}$B$r%j%;%C%H(B
-%    (sync with ltoutput.dtx 2017/03/10 v1.3c)}
-%    \begin{macrocode}
-  \language\document@default@language
-  \@resetactivechars
-  \global\let\@@if@newlist\if@newlist
-  \global\@newlistfalse
-  \@parboxrestore
-  \shipout\vbox{\yoko
-    \set@typeset@protect
-    \aftergroup\endgroup
-    \aftergroup\set@typeset@protect
-%    \end{macrocode}
-% \changes{v1.1g}{1998/02/03}{\cs{@shipoutsetup}$B$r(B\cs{@outputpage}$BFb$KF~$l$?(B}
-% $B$3$3$+$i(B|\@shipoutsetup|$B$NFbMF!#(B
-%    \begin{macrocode}
-     \if@specialpage
-       \global\@specialpagefalse\@nameuse{ps@\@specialstyle}%
-     \fi
-%    \end{macrocode}
-% \changes{v1.1c}{1995/02/05}{\cs{oddsidemargin}$B$H(B\cs{evensidemargin}$B$,(B
-%    $B5U$@$C$?$N$r=$@5(B}
-%    \begin{macrocode}
-     \if@twoside
-       \ifodd\count\z@ \let\@thehead\@oddhead \let\@thefoot\@oddfoot
-          \iftdir\let\@themargin\evensidemargin
-          \else\let\@themargin\oddsidemargin\fi
-       \else \let\@thehead\@evenhead
-          \let\@thefoot\@evenfoot
-           \iftdir\let\@themargin\oddsidemargin
-           \else\let\@themargin\evensidemargin\fi
-     \fi\fi
-%    \end{macrocode}
-% $B%H%s%\=PNO%*%W%7%g%s$,;XDj$5$l$F$$$k>l9g!"$3$3$GMQ;f%5%$%:$r:F@_Dj$7$^$9!#(B
-% \TeX $B$N2C$($k:8$H>eIt$N(B1$B%$%s%A$O!"%H%s%\$NFbB&$KF~$j$^$9!#(B
-% \changes{v1.1a}{1995/11/10}{\cs{topmargin}$B$,H?1G$5$l$J$$%P%0$r=$@5(B}
-%    \begin{macrocode}
-     \@@topmargin\topmargin
-     \iftombow
-       \@@paperwidth\paperwidth \advance\@@paperwidth 6mm\relax
-       \@@paperheight\paperheight \advance\@@paperheight 16mm\relax
-       \advance\@@topmargin 1in\relax \advance\@themargin 1in\relax
-     \fi
-     \reset@font
-     \normalsize
-     \normalsfcodes
-     \let\label\@gobble
-     \let\index\@gobble
-     \let\glossary\@gobble
-     \baselineskip\z@skip \lineskip\z@skip \lineskiplimit\z@
-%    \end{macrocode}
-% $B$3$3$^$G$,(B|\@shipoutsetup|$B$NFbMF!#(B
-%    \begin{macrocode}
-    \@begindvi
-    \@outputtombow
-    \vskip \@@topmargin
-    \moveright\@themargin\vbox{%
-      \setbox\@tempboxa \vbox to\headheight{%
-        \vfil
-        \color@hbox
-          \normalcolor
-          \hb@xt@\textwidth{\@thehead}%
-        \color@endbox
-      }%                        %% 22 Feb 87
-      \dp\@tempboxa \z@
-      \box\@tempboxa
-      \vskip \headsep
-      \box\@outputbox
-      \baselineskip \footskip
-      \color@hbox
-        \normalcolor
-        \hb@xt@\textwidth{\@thefoot}%
-      \color@endbox
-    }%
-  }%
-%  \endgroup now inserted by \aftergroup
-%    \end{macrocode}
-% |\if@newlist|$B$r=i4|2=!#(B
-%    \begin{macrocode}
-  \global\let\if@newlist\@@if@newlist
-  \global \@colht \textheight
-  \stepcounter{page}%
-  \let\firstmark\botmark
-}
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\@outputpage}
-%<platexrelease>                   {Reset language for hyphenation}%
-%<platexrelease>\def\@outputpage{%
-%<platexrelease>\begingroup % the \endgroup is put in by \aftergroup
-%<platexrelease>  \iftdir
-%<platexrelease>    \dimen\z@\textwidth \textwidth\textheight \textheight\dimen\z@
-%<platexrelease>  \fi
-%<platexrelease>  \let \protect \noexpand
-%<platexrelease>  \@resetactivechars
-%<platexrelease>  \global\let\@@if@newlist\if@newlist
-%<platexrelease>  \global\@newlistfalse
-%<platexrelease>  \@parboxrestore
-%<platexrelease>  \shipout\vbox{\yoko
-%<platexrelease>    \set@typeset@protect
-%<platexrelease>    \aftergroup\endgroup
-%<platexrelease>    \aftergroup\set@typeset@protect
-%<platexrelease>     \if@specialpage
-%<platexrelease>       \global\@specialpagefalse\@nameuse{ps@\@specialstyle}%
-%<platexrelease>     \fi
-%<platexrelease>     \if@twoside
-%<platexrelease>       \ifodd\count\z@ \let\@thehead\@oddhead \let\@thefoot\@oddfoot
-%<platexrelease>          \iftdir\let\@themargin\evensidemargin
-%<platexrelease>          \else\let\@themargin\oddsidemargin\fi
-%<platexrelease>       \else \let\@thehead\@evenhead
-%<platexrelease>          \let\@thefoot\@evenfoot
-%<platexrelease>           \iftdir\let\@themargin\oddsidemargin
-%<platexrelease>           \else\let\@themargin\evensidemargin\fi
-%<platexrelease>     \fi\fi
-%<platexrelease>     \@@topmargin\topmargin
-%<platexrelease>     \iftombow
-%<platexrelease>       \@@paperwidth\paperwidth \advance\@@paperwidth 6mm\relax
-%<platexrelease>       \@@paperheight\paperheight \advance\@@paperheight 16mm\relax
-%<platexrelease>       \advance\@@topmargin 1in\relax \advance\@themargin 1in\relax
-%<platexrelease>     \fi
-%<platexrelease>     \reset@font
-%<platexrelease>     \normalsize
-%<platexrelease>     \normalsfcodes
-%<platexrelease>     \let\label\@gobble
-%<platexrelease>     \let\index\@gobble
-%<platexrelease>     \let\glossary\@gobble
-%<platexrelease>     \baselineskip\z@skip \lineskip\z@skip \lineskiplimit\z@
-%<platexrelease>    \@begindvi
-%<platexrelease>    \@outputtombow
-%<platexrelease>    \vskip \@@topmargin
-%<platexrelease>    \moveright\@themargin\vbox{%
-%<platexrelease>      \setbox\@tempboxa \vbox to\headheight{%
-%<platexrelease>        \vfil
-%<platexrelease>        \color@hbox
-%<platexrelease>          \normalcolor
-%<platexrelease>          \hb@xt@\textwidth{\@thehead}%
-%<platexrelease>        \color@endbox
-%<platexrelease>      }%                        %% 22 Feb 87
-%<platexrelease>      \dp\@tempboxa \z@
-%<platexrelease>      \box\@tempboxa
-%<platexrelease>      \vskip \headsep
-%<platexrelease>      \box\@outputbox
-%<platexrelease>      \baselineskip \footskip
-%<platexrelease>      \color@hbox
-%<platexrelease>        \normalcolor
-%<platexrelease>        \hb@xt@\textwidth{\@thefoot}%
-%<platexrelease>      \color@endbox
-%<platexrelease>    }%
-%<platexrelease>  }%
-%<platexrelease>  \global\let\if@newlist\@@if@newlist
-%<platexrelease>  \global \@colht \textheight
-%<platexrelease>  \stepcounter{page}%
-%<platexrelease>  \let\firstmark\botmark
-%<platexrelease>}
-%<platexrelease>\plEndIncludeInRelease
-%<*plcore>
-%    \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\AtBeginDvi}
-% p\LaTeX{}$B$N=PNO%k!<%A%s$N(B|\@outputpage|$B$G$O!"(B|\shipout|$B$9$k(Bvbox$B$NCf?H$K(B
-% |\yoko|$B$r;XDj$7$F$$$^$9!#$3$N$?$a!"(B|\AtBeginDocument{\AtBeginDvi{}}|$B$H$$$&(B
-% $B%3!<%I$r=q$/$H(B\texttt{Incompatible direction list can't be unboxed.}$B$H$$$&(B
-% $B%(%i!<$,=P$F$7$^$$$^$9!#(B
-%
-% $B$=$3$G!"%3%_%e%K%F%#HG(Bp\LaTeX{}$B$G$O!V(B|\shipout|$B$G(B|\yoko|$B$,;XDj$5$l$F$$$k!W(B
-% $B$3$H$r:,5r$H$7$F(B
-% \begin{center}
-% |\@begindvibox|$B$O!J6u$G$J$$8B$j!K>o$K2#AH$G$J$1$l$P$J$i$J$$(B
-% \end{center}
-% $B$H2>Dj$7$^$9!#$3$N2>Dj$K=>$$!"(B|\AtBeginDvi|$B$r:FDj5A$7$^$9!#(B
-% \changes{v1.2f}{2016/06/30}{\cs{@begindvibox}$B$r>o$K2#AH$K(B}
-%    \begin{macrocode}
-%</plcore>
-%<platexrelease>\plIncludeInRelease{2016/07/01}{\AtBeginDvi}
-%<platexrelease>                   {Fix for incompatible direction}%
-%<*plcore|platexrelease>
-\def \AtBeginDvi #1{%
-  \global \setbox \@begindvibox
-    \vbox{\yoko \unvbox \@begindvibox #1}%
-}
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\AtBeginDvi}
-%<platexrelease>                   {Fix for incompatible direction}%
-%<platexrelease>\def \AtBeginDvi #1{%
-%<platexrelease>  \global \setbox \@begindvibox
-%<platexrelease>    \vbox{\unvbox \@begindvibox #1}%
-%<platexrelease>}
-%<platexrelease>\plEndIncludeInRelease
-%<*plcore>
-%    \end{macrocode}
-% \end{macro}
-%
-%
-% \subsection{$B5SCm%^%/%m(B}
-% $B5SCm$rAH$_N)$F$kItJ,$N%^%/%m$r:FDj5A$7$^$9!#(B
-% $B<g$J=$@5E@$O!"=DAH%b!<%I$G$NF0:n$NDI2C$G$9!#(B
-%
-% $B$3$l$i$N%^%/%m$O!"(B\file{ltfloat.dtx}$B$GDj5A$5$l$F$$$?$b$N$G$9!#(B
-%
-% \begin{macro}{\thempfn}
-% $BK\J8$G;H$o$l$k5SCm5-9f$G$9!#(B
-%
-% |\@footnotemark|$B$G=D2#$NH=CG$r$9$k$h$&$K$7$?$?$a!":o=|!#(B
-%
-% \changes{v1.0a}{1995/04/12}{Removed \texttt{\protect\bslash thempfn}}
-%    \begin{macrocode}
-%\def\thempfn{%
-%  \ifydir\thefootnote\else\hbox{\yoko\thefootnote}\fi}
-%    \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\thempfootnote}
-% minipage$B4D6-$G;H$o$l$k5SCm5-9f$G$9!#(B
-%
-% \changes{v1.0a}{1995/04/12}{Removed \texttt{\protect\bslash thempfootnote}}
-%    \begin{macrocode}
-%\def\thempfootnote{%
-%  \ifydir\alph{mpfootnote}\else\hbox{\yoko\alph{mpfootnote}}\fi}
-%    \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\@makefnmark}
-% $B5SCm5-9f$r:n@.$9$k%^%/%m$G$9!#(B
-%
-% \changes{v1.0a}{1995/04/12}{$B=DAH$G$b>eIU$-?t;z$r;H$&$h$&$K=$@5(B}
-% \changes{v1.1b}{1996/01/26}{$B5SCm%^!<%/$N8e$m$KM>7W$J%9%Z!<%9$,F~$k$N$r=$@5(B}
-% \changes{v1.1g}{1997/02/14}{$B=DAH;~$K5SCm%^!<%/$N=qBN$,@5$7$/$J$$$N$r=$@5(B}
-% \changes{v1.2b}{2016/01/26}{2013$BG/0J9_$N(Bp\TeX\ (r28720)$B$G5SCmHV9f$NA08e$NOBJ8J8;z(B
-%    $B$H$N4V$K(Bxkanjiskip$B$,F~$C$F$7$^$&LdBj$KBP1~(B}
-%    \begin{macrocode}
-%</plcore>
-%<platexrelease>\plIncludeInRelease{2016/04/17}{\@makefnmark}
-%<platexrelease>                   {Remove extra \xkanjiskip}%
-%<*plcore|platexrelease>
-\renewcommand\@makefnmark{%
-  \ifydir \hbox{}\hbox{\@textsuperscript{\normalfont\@thefnmark}}\hbox{}%
-  \else\hbox{\yoko\@textsuperscript{\normalfont\@thefnmark}}\fi}
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\@makefnmark}
-%<platexrelease>                   {Remove extra \xkanjiskip}%
-%<platexrelease>\renewcommand\@makefnmark{\hbox{%
-%<platexrelease>  \ifydir \@textsuperscript{\normalfont\@thefnmark}%
-%<platexrelease>  \else\hbox{\yoko\@textsuperscript{\normalfont\@thefnmark}}\fi}}
-%<platexrelease>\plEndIncludeInRelease
-%    \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\pltx@foot@penalty}
-% $B3+$-3g8LN`$ND>8e$K(B|\footnotetext|$B$,B3$$$?>l9g!"(B|\footnotetext|$B$NA0$G$N2~9T$O(B
-% $BK>$^$7$/$"$j$^$;$s!#$3$N$h$&$J>l9g$KBP=h$9$k$?$a$K!"(B|\pltx@foot@penalty|$B$H$$$&(B
-% $B%+%&%s%?$rMQ0U$7$^$7$?!#(B|\footnotetext|$B$N:G=i$G!VD>A0$N%Z%J%k%F%#CM!W(B
-% $B$H$7$F$3$N%+%&%s%?$,=i4|2=$5$l$^$9!#(B
-% |\footnotemark|,~|\footnote|$B$G$O;H$o$J$$$N$G(B0$B$K@_Dj$7$F$$$^$9!#(B
-% \changes{v1.2g}{2016/08/25}{$B%+%&%s%?(B\cs{pltx@foot@penalty}$B$rDI2C(B}
-%    \begin{macrocode}
-%<platexrelease>\plIncludeInRelease{2016/09/03}{\pltx@foot@penalty}
-%<platexrelease>                   {Add new counter \pltx@foot@penalty}%
-%<*plcore|platexrelease>
-\ifx\@undefined\pltx@foot@penalty \newcount\pltx@foot@penalty \fi
-\pltx@foot@penalty\z@
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\pltx@foot@penalty}
-%<platexrelease>                   {Add new counter \pltx@foot@penalty}%
-%<platexrelease>\let\pltx@foot@penalty\@undefined
-%<platexrelease>\plEndIncludeInRelease
-%    \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\footnotemark}
-% \begin{macro}{\footnote}
-% $B$^$?!"9g0u$NA0$NJ8;z$H9g0u$N4V$O86B'%Y%?AH$G$9!JC"$7!"(BJIS~X~4051$B$K$ONc30M-$j!K!#(B
-% $B$=$N$?$a!"9g0u$r=PNO$9$k(B|\footnotemark|,~|\footnote|$B$N:G=i$G(B|\inhibitglue|$B$r(B
-% $B<B9T$7$F$*$/$3$H$K$7$^$9!J(B|\@makefnmark|$B$NCf$KCV$$$F$b8zNO$,$"$j$^$;$s!K!#(B
-% \changes{v1.2g}{2016/08/25}{$B9g0u$NA0$NJ8;z$H9g0u$N4V$r%Y%?AH$K(B}
-%    \begin{macrocode}
-%<platexrelease>\plIncludeInRelease{2016/09/03}{\footnote}
-%<platexrelease>                   {Append \inhibitglue in \footnotemark}%
-%<*plcore|platexrelease>
-%    \end{macrocode}
-%    \begin{macrocode}
-\def\footnote{\inhibitglue
-     \@ifnextchar[\@xfootnote{\stepcounter\@mpfn
-     \protected@xdef\@thefnmark{\thempfn}%
-     \@footnotemark\@footnotetext}}
-\def\footnotemark{\inhibitglue
-   \@ifnextchar[\@xfootnotemark
-     {\stepcounter{footnote}%
-      \protected@xdef\@thefnmark{\thefootnote}%
-      \@footnotemark}}
-%    \end{macrocode}
-%    \begin{macrocode}
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\footnote}
-%<platexrelease>                   {Append \inhibitglue in \footnotemark}%
-%<platexrelease>\def\footnote{\@ifnextchar[\@xfootnote{\stepcounter\@mpfn
-%<platexrelease>     \protected@xdef\@thefnmark{\thempfn}%
-%<platexrelease>     \@footnotemark\@footnotetext}}
-%<platexrelease>\def\footnotemark{%
-%<platexrelease>   \@ifnextchar[\@xfootnotemark
-%<platexrelease>     {\stepcounter{footnote}%
-%<platexrelease>      \protected@xdef\@thefnmark{\thefootnote}%
-%<platexrelease>      \@footnotemark}}
-%<platexrelease>\plEndIncludeInRelease
-%    \end{macrocode}
-% \end{macro}
-% \end{macro}
-%
-% \begin{macro}{\footnotetext}
-% |\footnotetext|$B$ND>A0$N%Z%J%k%F%#CM$rJ];}$7$^$9!#(B
-% \changes{v1.2g}{2016/08/25}{$BJD$83g8LN`$ND>8e$K(B\cs{footnotetext}$B$,B3$/(B
-%    $B>l9g$K2~9T$,5/$-$k$3$H$,$"$kLdBj$KBP=h(B}
-%    \begin{macrocode}
-%<platexrelease>\plIncludeInRelease{2016/09/03}{\footnotetext}
-%<platexrelease>                   {Preserve penalty before \footnotetext}%
-%<*plcore|platexrelease>
-%    \end{macrocode}
-%    \begin{macrocode}
-\def\footnotetext{%
-  \ifhmode\pltx@foot@penalty\lastpenalty\unpenalty\fi%
-  \@ifnextchar [\@xfootnotenext
-    {\protected@xdef\@thefnmark{\thempfn}%
-     \@footnotetext}}
-%    \end{macrocode}
-%    \begin{macrocode}
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\footnotetext}
-%<platexrelease>                   {Preserve penalty before \footnotetext}%
-%<platexrelease>\def\footnotetext{%
-%<platexrelease>     \@ifnextchar [\@xfootnotenext
-%<platexrelease>       {\protected@xdef\@thefnmark{\thempfn}%
-%<platexrelease>    \@footnotetext}}
-%<platexrelease>\plEndIncludeInRelease
-%    \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\@footnotetext}
-% $B%$%s%5!<%H%\%C%/%9(B|\footins|$B$K5SCm$N%F%-%9%H$rF~$l$^$9!#(B
-% $B%3%_%e%K%F%#HG(Bp\LaTeX{}$B$G$O(B|\footnotetext|,~|\footnote|$B$ND>8e$G(B
-% $B2~9T$r2DG=$K$7$^$9!#(Bjsclasses$B$G$O$3$NJQ99$K2C$(!"5SCm$G(B|\verb|$B$,(B
-% $B;H$($k$h$&$K:FDj5A$5$l$^$9!#(B
-%
-% \changes{v1.0a}{1995/04/07}{$BAHJ}8~$NH=Dj$r%\%C%/%9$N30$G$9$k$h$&$K$7$?(B}
-%    \begin{macrocode}
-%<platexrelease>\plIncludeInRelease{2016/09/08}{\@footnotetext}
-%<platexrelease>                   {Allow break after \footnote (more fix)}%
-%<*plcore|platexrelease>
-%    \end{macrocode}
-%    \begin{macrocode}
-\long\def\@footnotetext#1{%
-  \ifydir\def\@tempa{\yoko}\else\def\@tempa{\tate}\fi
-  \insert\footins{\@tempa%
-    \reset@font\footnotesize
-    \interlinepenalty\interfootnotelinepenalty
-    \splittopskip\footnotesep
-    \splitmaxdepth \dp\strutbox \floatingpenalty \@MM
-    \hsize\columnwidth \@parboxrestore
-    \protected@edef\@currentlabel{%
-       \csname p@footnote\endcsname\@thefnmark
-    }%
-    \color@begingroup
-      \@makefntext{%
-        \rule\z@\footnotesep\ignorespaces#1\@finalstrut\strutbox}%
-%    \end{macrocode}
-%
-% p\TeX{}$B$G$O(B|\insert|$B$ND>8e$KOBJ8J8;z$,Mh$?>l9g!"$=$3$G$N2~9T$O5v$5$l$J$$(B
-% $B$H$$$&5sF0$K$J$C$F$$$^$9!#$3$N$?$a!"=>Mh$O5SCmHV9f!J9g0u!K$ND>8e$N2~9T$,(B
-% $BM^@)$5$l$F$$$^$7$?!#$7$+$7!"(B|\hbox|$B$ND>8e$KOBJ8J8;z$,Mh$?>l9g$O!"$=$3$G(B
-% $B$N2~9T$O5v$5$l$^$9$+$i!":G8e$K(B|\null|$B$rDI2C$7$^$9!#(B
-% $B$^$?!"(B|\pltx@foot@penalty|$B$NCM$,(B0$B$G$O$J$+$C$?>l9g!"(B
-% $B5SCm$NA0$K%Z%J%k%F%#$,$"$C$?$H$$$&$3$H$G$9$+$i!"I|3h$5$;$F$*$-$^$9!#(B
-% \changes{v1.2g}{2016/08/25}{$B5SCm$N9g0uD>8e$G$N2~9T$,6X;_$5$l$F$7$^$&(B
-%    $BLdBj$KBP=h(B}
-% \changes{v1.2i}{2016/09/08}{v1.2g$B$N=$@5$GF~$l$?(B\cs{null}$B$,$^$:$+$C$?$N$G(B
-%    $B?eJ?%b!<%I$N$H$-$@$1H/9T$9$k$3$H$K$7$?(B(Issue 23)}
-%    \begin{macrocode}
-    \color@endgroup}\ifhmode\null\fi
-    \ifnum\pltx@foot@penalty=\z@\else
-      \penalty\pltx@foot@penalty
-      \pltx@foot@penalty\z@
-    \fi}
-%    \end{macrocode}
-%    \begin{macrocode}
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{2016/09/03}{\@footnotetext}
-%<platexrelease>                   {Allow break after \footnote}%
-%<platexrelease>\long\def\@footnotetext#1{%
-%<platexrelease>  \ifydir\def\@tempa{\yoko}\else\def\@tempa{\tate}\fi
-%<platexrelease>  \insert\footins{\@tempa%
-%<platexrelease>    \reset@font\footnotesize
-%<platexrelease>    \interlinepenalty\interfootnotelinepenalty
-%<platexrelease>    \splittopskip\footnotesep
-%<platexrelease>    \splitmaxdepth \dp\strutbox \floatingpenalty \@MM
-%<platexrelease>    \hsize\columnwidth \@parboxrestore
-%<platexrelease>    \protected@edef\@currentlabel{%
-%<platexrelease>       \csname p@footnote\endcsname\@thefnmark
-%<platexrelease>    }%
-%<platexrelease>    \color@begingroup
-%<platexrelease>      \@makefntext{%
-%<platexrelease>        \rule\z@\footnotesep\ignorespaces#1\@finalstrut\strutbox}%
-%<platexrelease>    \color@endgroup}\null
-%<platexrelease>    \ifnum\pltx@foot@penalty=\z@\else
-%<platexrelease>      \penalty\pltx@foot@penalty
-%<platexrelease>      \pltx@foot@penalty\z@
-%<platexrelease>    \fi}
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\@footnotetext}
-%<platexrelease>                   {Allow break after \footnote}%
-%<platexrelease>\long\def\@footnotetext#1{%
-%<platexrelease>  \ifydir\def\@tempa{\yoko}\else\def\@tempa{\tate}\fi
-%<platexrelease>  \insert\footins{\@tempa%
-%<platexrelease>    \reset@font\footnotesize
-%<platexrelease>    \interlinepenalty\interfootnotelinepenalty
-%<platexrelease>    \splittopskip\footnotesep
-%<platexrelease>    \splitmaxdepth \dp\strutbox \floatingpenalty \@MM
-%<platexrelease>    \hsize\columnwidth \@parboxrestore
-%<platexrelease>    \protected@edef\@currentlabel{%
-%<platexrelease>       \csname p@footnote\endcsname\@thefnmark
-%<platexrelease>    }%
-%<platexrelease>    \color@begingroup
-%<platexrelease>      \@makefntext{%
-%<platexrelease>        \rule\z@\footnotesep\ignorespaces#1\@finalstrut\strutbox}%
-%<platexrelease>    \color@endgroup}}
-%<platexrelease>\plEndIncludeInRelease
-%<*plcore>
-%    \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\@footnotemark}
-% \changes{v1.0a}{1995/04/12}{$B5SCm5-9f$N=PNO0LCV$ND4@0(B}
-% \changes{v1.1g}{1997/02/14}{$B=DAH;~$N0LCVD4@0$r(B2\cs{ch}$B$+$i(B.9zh$B$KJQ99(B}
-% $B5SCm5-9f$r=PNO$7$^$9!#(B
-%    \begin{macrocode}
-\def\@footnotemark{\leavevmode
-  \ifhmode\edef\@x@sf{\the\spacefactor}\nobreak\fi
-  \ifydir\@makefnmark
-  \else\hbox to\z@{\hskip-.25zw\raise.9zh\@makefnmark\hss}\fi
-  \ifhmode\spacefactor\@x@sf\fi\relax}
-%    \end{macrocode}
-% \end{macro}
-%
-%
-% \subsection{$BAj8_;2>H(B}
-%
-% \begin{macro}{\@setref}
-% \changes{v1.1c}{1995/09/07}{change \cs{null} to \cs{relax} in \cs{@setref}.}
-% \changes{v1.2k}{2017/02/20}{$BL\<!$G(B\cs{ref}$B$r;H$C$?>l9g$K8e$m$N6uGr$,>C$($k(B
-%    $B8=>]$KBP=h$9$k$?$a!"(B\cs{relax}$B$N$"$H$K(B\{\}$B$rDI2C(B}
-% |\ref|$B%3%^%s%I$d(B|\pageref|$B%3%^%s%I$G;2>H$7$?$H$-!"$3$l$i$N%3%^%s%I$K(B
-% $B$h$C$F=PNO$5$l$?HV9f$HB3$/#2%P%$%HJ8;z$H$N4V$K(B|\xkanjiskip|$B$,F~$j$^$;$s!#(B
-% $B$3$l$O!"(B|\null|$B$,(B|\hbox{}|$B$HDj5A$5$l$F$$$k$?$a$G$9!#(B
-% $B$=$3$G(B|\null|$B$r<h$j=|$-$^$9!#(B
-% $B$3$N%3%^%s%I$O!"(B\file{ltxref.dtx}$B$GDj5A$5$l$F$$$k$b$N$G$9!#(B
-%
-% $B$7$+$7!"C1$K(B|\null|$B$r(B|\relax|$B$KCV$-49$($k$@$1$G$O!"(B|\section|$B$N$h$&$J(B
-% $B!VF0$/0z?t!W$G(B|\ref|$B$J$I$r;H$C$?>l9g$K!"L\<!$G8e$m$N6uGr$,>C$($F$7$^$$$^$9!#(B
-% $B$=$3$G!"(B|\relax|$B$N$"$H$K(B|{}|$B$rDI2C$7$^$7$?!#=>Mh$b(B|\protect\ref|$B$N$h$&$K;H$($P(B
-% $BLdBj$"$j$^$;$s$G$7$?$,!"(B\LaTeX{}$B$G$OE83+$5$l$F$bLdBj$,5/$-$J$$(Brobust$B$J<BAu$K(B
-% $B$J$C$F$$$^$9$N$G!"$3$l$K=>$$$^$9!#(B
-%
-% $B$5$i$K!"Nc$($P(B``see Appendix A.''$B$N$h$&$J5-=R$,J8Kv$K$"$j!"$+$D(B
-% ``A''$B$rAj8_;2>H$G<hF@$7$?>l9g$N%9%Z!<%9%U%!%/%?!<$rJd@5$9$k$?$a!"(B
-% |\spacefactor\@m{}|$B$K=$@5$7$^$7$?!#$3$l$G!"(B``A.''$B$N8e$N%9%Z!<%9$,(B
-% $BJ8Kv$H$7$F07$o$l$^$9!#(B
-% $B!V(B\LaTeXe{}$B%^%/%m(B\&$B%/%i%9(B $B%W%m%0%i%_%s%0<BA)2r@b!W$N%3!<%I$r;29M$K(B
-% $B$7$^$7$?$,!"?t<0%b!<%IFb$G$b%(%i!<$K$J$i$J$$$h$&$K2~NI$7$F$$$^$9!#(B
-% \changes{v1.2s}{2017/09/27}{$BAj8_;2>H$N%9%Z!<%9%U%!%/%?!<$rJd@5(B}
-% \changes{v1.2t}{2017/10/31}{v1.2s$B$NJQ99$KH<$$!"(B\cs{ref}$B$,?t<0%b!<%I$G(B
-%    $B%(%i!<$K$J$C$F$$$?$N$r=$@5(B}
-% \changes{v1.2u}{2017/11/04}{emath$B$N(B\cs{marusuuref}$BBP:v(B}
-%    \begin{macrocode}
-%</plcore>
-%<platexrelease>\plIncludeInRelease{2017/10/28}{\@setref}
-%<platexrelease>                   {Spacing after \ref in moving arguments}%
-%<*plcore|platexrelease>
-\def\@setref#1#2#3{%
-  \ifx#1\relax
-    \protect\G@refundefinedtrue
-    \nfss@text{\reset@font\bfseries ??}%
-    \@latex@warning{Reference `#3' on page \thepage \space
-              undefined}%
-  \else
-    \expandafter#2#1\protect\@setref@{}% change \null to \protect\@setref@{}
-  \fi}
-\def\@setref@{\ifhmode\spacefactor\@m\fi}
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{2017/04/08}{\@setref}
-%<platexrelease>                   {Spacing after \ref in moving arguments}%
-%<platexrelease>\def\@setref#1#2#3{%
-%<platexrelease>  \ifx#1\relax
-%<platexrelease>    \protect\G@refundefinedtrue
-%<platexrelease>    \nfss@text{\reset@font\bfseries ??}%
-%<platexrelease>    \@latex@warning{Reference `#3' on page \thepage \space
-%<platexrelease>              undefined}%
-%<platexrelease>  \else
-%<platexrelease>    \expandafter#2#1\relax{}% change \null to \relax{}
-%<platexrelease>  \fi}
-%<platexrelease>\let\@setref@\@undefined
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\@setref}
-%<platexrelease>                   {Spacing after \ref in moving arguments}%
-%<platexrelease>\def\@setref#1#2#3{%
-%<platexrelease>  \ifx#1\relax
-%<platexrelease>    \protect\G@refundefinedtrue
-%<platexrelease>    \nfss@text{\reset@font\bfseries ??}%
-%<platexrelease>    \@latex@warning{Reference `#3' on page \thepage \space
-%<platexrelease>              undefined}%
-%<platexrelease>  \else
-%<platexrelease>    \expandafter#2#1\relax% change \null to \relax
-%<platexrelease>  \fi}
-%<platexrelease>\let\@setref@\@undefined
-%<platexrelease>\plEndIncludeInRelease
-%<*plcore>
-%    \end{macrocode}
-% \end{macro}
-%
-%
-% \subsection{$B5?;w%?%$%WF~NO(B}
-%
-% \begin{macro}{\verb}
-% \changes{v1.1b}{1995/04/05}{$B8_49%b!<%I$N$H$-$O!"(Bpl209.def$B$NDj5A$r;H$&(B}
-% \changes{v1.1g}{1997/01/16}
-%    {\cs{verb}$B%3%^%s%I$r(B\LaTeX\ \texttt{!<1996/06/01!>}$B$K9g$o$;$F=$@5(B}
-% \LaTeX{}$B$N(B|\verb|$B%3%^%s%I$G$O!"?t<0%b!<%I$G$J$$$H$-$O!"(B
-% |\leavevmode|$B$G?eJ?%b!<%I$KF~$C$?$"$H!"(B|\null|$B$r=PNO$7$F$$$^$9!#(B
-% $B%^%/%m(B|\null|$B$O(B|\hbox{}|$B$H$7$FDj5A$5$l$F$$$^$9$N$G!"(B
-% $B$3$3$K$OOB2$J84V%9%Z!<%9!J(B|\xkanjiskip|$B!K$,F~$j$^$;$s!#(B
-%
-% $B$7$+$7!"C1$K(B|\null|$B$r=|$$$F$7$^$&$H!":#EY$O(B|\verb+ abc+|$B$N$h$&$K(B
-% |\verb|$B$NKAF,$KH>3Q6uGr$,$"$k>l9g$K$3$l$,>C$($F$7$^$$$^$9(B(TeX.SX 170245)$B!#(B
-% $B$=$3$G!"(Bp\LaTeX{}$B$G$O(B|\null|$B$NBe$o$j$K(B
-% \begin{enumerate}
-%   \item $BOB2$J84V%9%Z!<%9$NA^F~=hM}$OF)2a$9$k(B
-%   \item $B9TJ,3d;~$K>C$($k(B(discardable)$B%N!<%I$G$O$J$$(B
-% \end{enumerate}
-% $B$NN>>r7o$rK~$?$9%N!<%I$rA^F~$7$^$9!#$3$3$G$O(B|\vadjust{}|$B$H$7$^$7$?!#(B
-%
-% $B$3$N%^%/%m$O!"(B\file{ltmiscen.dtx}$B$GDj5A$5$l$F$$$^$9!#(B
-% \changes{v1.2s}{2017/09/27}{\cs{verb}$B$NKAF,$NH>3Q6uGr$rJ];}(B}
-%    \begin{macrocode}
-%</plcore>
-%<platexrelease>\plIncludeInRelease{2017/10/28}{\verb}
-%<platexrelease>                   {Preserve beginning space characters}%
-%<*plcore|platexrelease>
-\if@compatibility\else
-\def\verb{\relax\ifmmode\hbox\else\leavevmode\vadjust{}\fi
-  \bgroup
-    \verb@eol@error \let\do\@makeother \dospecials
-    \verbatim@font\@noligs
-%    \end{macrocode}
-% \LaTeXe\ 2017-04-15$B$KDI?o$7$F!"(B|\verb|$B$NESCf$G%O%$%U%M!<%7%g%s$,5/$-$J$$(B
-% $B$h$&$K(B|\language|$B$r@_Dj$7$^$9!J;29M!'(Blatex2e svn r1405$B!K!#(B
-% \changes{v1.2m}{2017/03/19}{\cs{verb}$B$NESCf$G%O%$%U%M!<%7%g%s$,5/$-$J$$(B
-%    $B$h$&$K(B\cs{language}$B$r@_Dj(B(sync with ltmiscen.dtx 2017/03/09 v1.1m)}
-%    \begin{macrocode}
-    \language\l@nohyphenation
-    \@ifstar\@sverb\@verb}
-\fi
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{2017/04/08}{\verb}
-%<platexrelease>                   {Disable hyphenation in verb}%
-%<platexrelease>\if@compatibility\else
-%<platexrelease>\def\verb{\relax\ifmmode\hbox\else\leavevmode\fi
-%<platexrelease>  \bgroup
-%<platexrelease>    \verb@eol@error \let\do\@makeother \dospecials
-%<platexrelease>    \verbatim@font\@noligs
-%<platexrelease>    \language\l@nohyphenation
-%<platexrelease>    \@ifstar\@sverb\@verb}
-%<platexrelease>\fi
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\verb}
-%<platexrelease>                   {Disable hyphenation in verb}%
-%<platexrelease>\if@compatibility\else
-%<platexrelease>\def\verb{\relax\ifmmode\hbox\else\leavevmode\fi
-%<platexrelease>  \bgroup
-%<platexrelease>    \verb@eol@error \let\do\@makeother \dospecials
-%<platexrelease>    \verbatim@font\@noligs
-%<platexrelease>    \@ifstar\@sverb\@verb}
-%<platexrelease>\fi
-%<platexrelease>\plEndIncludeInRelease
-%<*plcore>
-%    \end{macrocode}
-% \end{macro}
-%
-%
-% \subsection{tabbing$B4D6-(B}
-%
-% \begin{macro}{\@startline}
-% tabbing$B4D6-$N9T$G!"Cf?H$,;O$a3g8LN`$J$I$G;O$^$k>l9g!"(B
-% $B:G=i$N9`L\$@$1(BJFM$B%0%k!<$,>C$($J$$8=>]$KBP=h$7$^$9!#(B
-% \changes{v1.2s}{2017/09/27}{tabbing$B4D6-$N9TKAF,$N(BJFM$B%0%k!=$r:o=|(B}
-%    \begin{macrocode}
-%</plcore>
-%<platexrelease>\plIncludeInRelease{2017/10/28}{\@startline}
-%<platexrelease>                   {Inhibit JFM glue at the beginning}%
-%<*plcore|platexrelease>
-\gdef\@startline{%
-     \ifnum \@nxttabmar >\@hightab
-       \@badtab
-       \global\@nxttabmar \@hightab
-     \fi
-     \global\@curtabmar \@nxttabmar
-     \global\@curtab \@curtabmar
-     \global\setbox\@curline \hbox {}%
-     \@startfield
-     \strut\inhibitglue}
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\@startline}
-%<platexrelease>                   {Inhibit JFM glue at the beginning}%
-%<platexrelease>\gdef\@startline{%
-%<platexrelease>     \ifnum \@nxttabmar >\@hightab
-%<platexrelease>       \@badtab
-%<platexrelease>       \global\@nxttabmar \@hightab
-%<platexrelease>     \fi
-%<platexrelease>     \global\@curtabmar \@nxttabmar
-%<platexrelease>     \global\@curtab \@curtabmar
-%<platexrelease>     \global\setbox\@curline \hbox {}%
-%<platexrelease>     \@startfield
-%<platexrelease>     \strut}
-%<platexrelease>\plEndIncludeInRelease
-%<*plcore>
-%    \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\@stopfield}
-% \changes{v1.1d}{1996/03/12}{\cs{=}$B$N8e$m$KOB2$J84V%9%Z!<%9$,F~$k$N$r=$@5(B}
-% $BAj8_;2>H$d5?;w%?%$%WF~NO$G$O!"OB2$J84V%9%Z!<%9$,F~$i$J$$$N$G!"(B|\null|$B$r(B
-% $B<h$j=|$-$^$7$?$,!"(B|tabbing|$B4D6-$G$O!"5U$K(B|\null|$B$,$J$$$?$a!"(B
-% $BOB2$J84V%9%Z!<%9$,F~$C$F$7$^$&$N$G!"$=$l$rDI2C$7$^$9!#(B
-% \file{lttab.dtx}$B$GDj5A$5$l$F$$$k$b$N$G$9!#(B
-%    \begin{macrocode}
-\gdef\@stopfield{\null\color@endgroup\egroup}
-%    \end{macrocode}
-% \end{macro}
-%
-% \subsection{$BMQ8l=8$N=PNO(B}
-% \LaTeX{}$B$K$O!"$J$<$+MQ8l=8$r=PNO$9$k$?$a$N%3%^%s%I$,$"$j$^$;$s$N$G!"(B
-% $BDI2C$r$7$^$9!#(B
-% \changes{v1.1e}{1996/02/17}{\cs{printglossary}$B$rDI2C(B}
-%
-% \begin{macro}{\printglossary}
-% \cs{printglossary}$B%3%^%s%I$O!"C1$K3HD%;R$,(B\texttt{gls}$B$N%U%!%$%k$r(B
-% $BFI$_9~$`$@$1$G$9!#$3$N%U%!%$%k$N@8@.$K$O!"(Bmendex$B$J$I$rMQ$$$^$9!#(B
-%    \begin{macrocode}
-\newcommand\printglossary{\@input@{\jobname.gls}}
-%    \end{macrocode}
-% \end{macro}
-%
-% \subsection{$B;~J,$r<($9%+%&%s%?(B}
-% \TeX $B$K$O!"G/7nF|$r<($9?tCM$rJ];}$7$F$$$k%+%&%s%?$H$7$F!"$=$l$>$l(B
-% |\year|, |\month|, |\day|$B$,%W%j%_%F%#%V$H$7$FB8:_$7$^$9!#$7$+$7!"(B
-% $B;~J,$K$D$$$F$O!"?<Lk$NNm;~$+$i$N7P2a;~4V$r<($9(B|\time|$B%+%&%s%?$7$+B8:_(B
-% $B$7$F$$$^$;$s!#$=$3$G!"(Bp\LaTeXe{}$B$G$O!";~J,$r<($9$?$a$N%+%&%s%?(B|\hour|$B$H(B
-% |\minute|$B$r:n@.$7$F$$$^$9!#(B
-%
-% \begin{macro}{\hour}
-% \begin{macro}{\minute}
-% $B2?;~$+!J(B|\hour|$B!K$rF@$k$K$O!"(B|\time|$B$r(B60$B$G3d$C$?>&$r$=$N$^$^MQ$$$^$9!#(B
-% $B2?J,$+!J(B|\minute|$B!K$O!"(B|\hour|$B$K(B60$B$r3]$1$?CM$r(B|\time|$B$+$i0z$$$F;;=P$7$^$9!#(B
-% $B$3$3$G$O%+%&%s%?$r@k8@$9$k$@$1$G$9!#<B:]$N7W;;$O!"%/%i%9$d%Q%C%1!<%8$NCf(B
-% $B$G9T$J$C$F$$$^$9!#(B
-%    \begin{macrocode}
-\newcount\hour
-\newcount\minute
-%    \end{macrocode}
-% \end{macro}
-% \end{macro}
-%
-% \subsection{tabular$B4D6-(B}
-% \LaTeX{}$B%+!<%M%k(B(lttab.dtx)$B$NL?Na72$r=$@5$7$^$9!#(B
-%
-% \begin{macro}{\@tabclassz}
-% \LaTeX{}$B%+!<%M%k$O!"%"%i%$%s%a%s%HJ8;z(B|&|$B$N<~0O$KH>3Q6uGr$r=q$$$?$+$I$&$+$K(B
-% $B$+$+$o$i$:M>J,$J%9%Z!<%9$r=PNO$7$J$$$h$&$K!"(B|\ignorespaces|$B$H(B|\unskip|$B$r(B
-% $BH/9T$7$F$$$^$9(B(lttab.dtx)$B!#$7$+$7!"$3$l$@$1$G$O(BJFM$B%0%k!<$,>C$($:$K;D$C$F(B
-% $B$7$^$&$N$G!"(Bp\LaTeX{}$B$G$ODI2C$NBP=h$rF~$l$^$9!#(B
-%
-% $B$^$:!"(B|l|, |c|, |r|$B$N>l9g$G$9!#(B
-% $B%;%k$NMWAG$r(B|\mbox|$B$KF~$l!"$=$N:G=i$G(B|\inhibitglue|$B$rH/9T$7$^$9!#(B
-% \changes{v1.2p}{2017/07/21}{tabular$B4D6-$N%;%kFb$N(BJFM$B%0%k!=$r:o=|(B}
-% \changes{v1.2r}{2017/09/26}{tabular$B4D6-$N1&B7$((B(r)$B$G7S@~$,$:$l$k$h$&$K(B
-%    $B$J$C$F$$$?%P%0$r=$@5(B}
-%    \begin{macrocode}
-%</plcore>
-%<platexrelease>\plIncludeInRelease{2017/09/26}{\@tabclassz}
-%<platexrelease>                   {Inhibit JFM glue in tabular cells}%
-%<*plcore|platexrelease>
-\def\@tabclassz{%
-  \ifcase\@lastchclass
-    \@acolampacol
-  \or
-    \@ampacol
-  \or
-  \or
-  \or
-    \@addamp
-  \or
-    \@acolampacol
-  \or
-    \@firstampfalse\@acol
-  \fi
-  \edef\@preamble{%
-    \@preamble{%
-      \ifcase\@chnum
-        \hfil\mbox{\inhibitglue\ignorespaces\@sharp\unskip}\hfil % c
-      \or
-        \hskip1sp\mbox{\inhibitglue\ignorespaces\@sharp\unskip}\hfil % l
-      \or
-        \hfil\hskip1sp\mbox{\inhibitglue\ignorespaces\@sharp\unskip}% % r
-      \fi}}}
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{2017/07/29}{\@tabclassz}
-%<platexrelease>                   {Inhibit JFM glue in tabular cells}%
-%<platexrelease>\def\@tabclassz{%
-%<platexrelease>  \ifcase\@lastchclass
-%<platexrelease>    \@acolampacol
-%<platexrelease>  \or
-%<platexrelease>    \@ampacol
-%<platexrelease>  \or
-%<platexrelease>  \or
-%<platexrelease>  \or
-%<platexrelease>    \@addamp
-%<platexrelease>  \or
-%<platexrelease>    \@acolampacol
-%<platexrelease>  \or
-%<platexrelease>    \@firstampfalse\@acol
-%<platexrelease>  \fi
-%<platexrelease>  \edef\@preamble{%
-%<platexrelease>    \@preamble{%
-%<platexrelease>      \ifcase\@chnum
-%<platexrelease>        \hfil\inhibitglue\ignorespaces\@sharp\unskip\unskip\hfil % c
-%<platexrelease>      \or
-%<platexrelease>        \hskip1sp\inhibitglue\ignorespaces\@sharp\unskip\unskip\hfil % l
-%<platexrelease>      \or
-%<platexrelease>        \hfil\hskip1sp\inhibitglue\ignorespaces\@sharp\unskip\unskip % r
-%<platexrelease>      \fi}}}
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\@tabclassz}
-%<platexrelease>                   {Inhibit JFM glue in tabular cells}%
-%<platexrelease>\def\@tabclassz{%
-%<platexrelease>  \ifcase\@lastchclass
-%<platexrelease>    \@acolampacol
-%<platexrelease>  \or
-%<platexrelease>    \@ampacol
-%<platexrelease>  \or
-%<platexrelease>  \or
-%<platexrelease>  \or
-%<platexrelease>    \@addamp
-%<platexrelease>  \or
-%<platexrelease>    \@acolampacol
-%<platexrelease>  \or
-%<platexrelease>    \@firstampfalse\@acol
-%<platexrelease>  \fi
-%<platexrelease>  \edef\@preamble{%
-%<platexrelease>    \@preamble{%
-%<platexrelease>      \ifcase\@chnum
-%<platexrelease>        \hfil\ignorespaces\@sharp\unskip\hfil
-%<platexrelease>      \or
-%<platexrelease>        \hskip1sp\ignorespaces\@sharp\unskip\hfil
-%<platexrelease>      \or
-%<platexrelease>        \hfil\hskip1sp\ignorespaces\@sharp\unskip
-%<platexrelease>      \fi}}}
-%<platexrelease>\plEndIncludeInRelease
-%    \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\@classv}
-% $B<!$K!"(B|p|$B$N>l9g$G$9!#(B|\mbox{}\inhibitglue|$B$H(B|\unskip|$B$rDI2C$7$F$$$^$9!#(B
-% \changes{v1.2p}{2017/07/21}{tabular$B4D6-$N%;%kFb$N(BJFM$B%0%k!=$r:o=|(B}
-%    \begin{macrocode}
-%<platexrelease>\plIncludeInRelease{2017/07/29}{\@classv}
-%<platexrelease>                   {Inhibit JFM glue in tabular cells}%
-%<*plcore|platexrelease>
-\def\@classv{\@addtopreamble{\@startpbox{\@nextchar}\mbox{}\inhibitglue\ignorespaces
-\@sharp\unskip\@endpbox}}
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\@classv}
-%<platexrelease>                   {Inhibit JFM glue in tabular cells}%
-%<platexrelease>\def\@classv{\@addtopreamble{\@startpbox{\@nextchar}\ignorespaces
-%<platexrelease>\@sharp\@endpbox}}
-%<platexrelease>\plEndIncludeInRelease
-%    \end{macrocode}
-% \end{macro}
-%
-%
-% \section{2013$BG/0J9_$N?7$7$$(Bp\TeX{}$BBP1~(B}
-% \LaTeXe{}$B$N%+!<%M%k$N%3!<%I$r$=$N$^$^;H$&$H!"(B2013$BG/0J9_$N(Bp\TeX{}$B$G$O(B
-% |\xkanjiskip|$BM3Mh$N%"%-$,A08e$KF~$C$F$7$^$&$3$H$,$"$j$^$7$?!#(B
-% $B$=$&$7$?L?Na$K%Q%C%A$r$"$F$^$9!#$J$*!"4{$K=P$F$-$?(B|\footnote|$B$NFbItL?Na(B
-% $B!J(B|\@makefnmark|$B!K$K$OF1MM$N%Q%C%A$,$b$&$"$F$F$"$j$^$9!#(B
-%
-% \begin{macro}{\@tabular}
-% tabular$B4D6-$NFbItL?Na$G$9!#$b$H$O(B\file{lttab.dtx}$B$GDj5A$5$l$F$$$^$9!#(B
-% \changes{v1.2c}{2016/02/28}{1.2b$B$HF1MM$N=$@5$r(Btabular$B4D6-$K$b9T$C$?(B}
-%    \begin{macrocode}
-%<platexrelease>\plIncludeInRelease{2016/04/17}{\@tabular}
-%<platexrelease>                   {Remove extra \xkanjiskip}%
-%<*plcore|platexrelease>
-\def\@tabular{\leavevmode \null\hbox \bgroup $\let\@acol\@tabacol
-   \let\@classz\@tabclassz
-   \let\@classiv\@tabclassiv \let\\\@tabularcr\@tabarray}
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\@tabular}
-%<platexrelease>                   {Remove extra \xkanjiskip}%
-%<platexrelease>\def\@tabular{\leavevmode \hbox \bgroup $\let\@acol\@tabacol
-%<platexrelease>   \let\@classz\@tabclassz
-%<platexrelease>   \let\@classiv\@tabclassiv \let\\\@tabularcr\@tabarray}
-%<platexrelease>\plEndIncludeInRelease
-%    \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\endtabular}
-% \begin{macro}{\endtabular*}
-%    \begin{macrocode}
-%<platexrelease>\plIncludeInRelease{2016/04/17}{\endtabular}
-%<platexrelease>                   {Remove extra \xkanjiskip}%
-%<*plcore|platexrelease>
-\def\endtabular{\crcr\egroup\egroup $\egroup\null}
-\expandafter \let \csname endtabular*\endcsname = \endtabular
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\endtabular}
-%<platexrelease>                   {Remove extra \xkanjiskip}%
-%<platexrelease>\def\endtabular{\crcr\egroup\egroup $\egroup}
-%<platexrelease>\expandafter \let \csname endtabular*\endcsname = \endtabular
-%<platexrelease>\plEndIncludeInRelease
-%    \end{macrocode}
-% \end{macro}
-% \end{macro}
-%
-% \begin{macro}{\@iiiparbox}
-% |\parbox|$B$NFbItL?Na$G$9!#$b$H$O(B\file{ltboxes.dtx}$B$GDj5A$5$l$F$$$^$9!#(B
-% \changes{v1.2c}{2016/02/28}{1.2b$B$HF1MM$N=$@5$r(B\cs{parbox}$BL?Na$K$b9T$C$?(B}
-%    \begin{macrocode}
-%<platexrelease>\plIncludeInRelease{2016/04/17}{\@iiiparbox}
-%<platexrelease>                   {Remove extra \xkanjiskip}%
-%<*plcore|platexrelease>
-\let\@parboxto\@empty
-\long\def\@iiiparbox#1#2[#3]#4#5{%
-  \leavevmode
-  \@pboxswfalse
-  \setlength\@tempdima{#4}%
-  \@begin@tempboxa\vbox{\hsize\@tempdima\@parboxrestore#5\@@par}%
-    \ifx\relax#2\else
-      \setlength\@tempdimb{#2}%
-      \edef\@parboxto{to\the\@tempdimb}%
-    \fi
-    \if#1b\vbox
-    \else\if #1t\vtop
-    \else\ifmmode\vcenter
-    \else\@pboxswtrue\null$\vcenter% !!!
-    \fi\fi\fi
-    \@parboxto{\let\hss\vss\let\unhbox\unvbox
-       \csname bm@#3\endcsname}%
-    \if@pboxsw \m@th$\null\fi% !!!
-  \@end@tempboxa}
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\@iiiparbox}
-%<platexrelease>                   {Remove extra \xkanjiskip}%
-%<platexrelease>\let\@parboxto\@empty
-%<platexrelease>\long\def\@iiiparbox#1#2[#3]#4#5{%
-%<platexrelease>  \leavevmode
-%<platexrelease>  \@pboxswfalse
-%<platexrelease>  \setlength\@tempdima{#4}%
-%<platexrelease>  \@begin@tempboxa\vbox{\hsize\@tempdima\@parboxrestore#5\@@par}%
-%<platexrelease>    \ifx\relax#2\else
-%<platexrelease>      \setlength\@tempdimb{#2}%
-%<platexrelease>      \edef\@parboxto{to\the\@tempdimb}%
-%<platexrelease>    \fi
-%<platexrelease>    \if#1b\vbox
-%<platexrelease>    \else\if #1t\vtop
-%<platexrelease>    \else\ifmmode\vcenter
-%<platexrelease>    \else\@pboxswtrue $\vcenter
-%<platexrelease>    \fi\fi\fi
-%<platexrelease>    \@parboxto{\let\hss\vss\let\unhbox\unvbox
-%<platexrelease>       \csname bm@#3\endcsname}%
-%<platexrelease>    \if@pboxsw \m@th$\fi
-%<platexrelease>  \@end@tempboxa}
-%<platexrelease>\plEndIncludeInRelease
-%    \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\underline}
-% $B2<@~$r0z$/L?Na$G$9!#$b$H$O(B\file{ltboxes.dtx}$B$GDj5A$5$l$F$$$^$9!#(B
-% \changes{v1.2c}{2016/02/28}{1.2b$B$HF1MM$N=$@5$r(B\cs{underline}$BL?Na$K$b9T$C$?(B}
-%    \begin{macrocode}
-%<platexrelease>\plIncludeInRelease{2016/04/17}{\underline}
-%<platexrelease>                   {Remove extra \xkanjiskip}%
-%<*plcore|platexrelease>
-\def\underline#1{%
-  \relax
-  \ifmmode\@@underline{#1}%
-  \else \leavevmode\null$\@@underline{\hbox{#1}}\m@th$\null\relax\fi}
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\underline}
-%<platexrelease>                   {Remove extra \xkanjiskip}%
-%<platexrelease>\def\underline#1{%
-%<platexrelease>  \relax
-%<platexrelease>  \ifmmode\@@underline{#1}%
-%<platexrelease>  \else $\@@underline{\hbox{#1}}\m@th$\relax\fi}
-%<platexrelease>\plEndIncludeInRelease
-%    \end{macrocode}
-% \end{macro}
-%
-%
-% \section{e-p\TeX{}$B$G$N(BFAM256$B%Q%C%A$NMxMQ(B}
-%
-% \begin{macro}{\e@alloc@chardef}
-% \begin{macro}{\e@alloc@top}
-% \LaTeXe\ 2015/01/01$B0J9_!"3HD%%l%8%9%?$,$"$l$PMxMQ$9$k$h$&$K$J$C$F$$$^$9(B
-% $B$N$G!"(Be-p\TeX{}$B$N3HD%%l%8%9%?$rMxMQ$G$-$k$h$&$K@_Dj$7$^$9!#(B
-% \changes{v1.2j}{2016/11/09}{FAM256$B%Q%C%AE,MQ(Be-p\TeX{}$B$KBP1~(B}
-%    \begin{macrocode}
-%<platexrelease>\plIncludeInRelease{2016/11/29}%
-%<platexrelease>                   {\e@alloc@chardef}{Extended Allocation (FAM256)}%
-%<*plcore|platexrelease>
-%    \end{macrocode}
-%    \begin{macrocode}
-\ifx\omathchar\@undefined
-  \ifx\widowpenalties\@undefined
-%    \end{macrocode}
-% $B%*%j%8%J%k$N(B\TeX{}$B$N>l9g!J3HD%$J$7$N%"%9%-!<(Bp\TeX{}$B$N>l9g!K!#(B
-%    \begin{macrocode}
-    \mathchardef\e@alloc@top=255
-    \let\e@alloc@chardef\chardef
-  \else
-%    \end{macrocode}
-% e-\TeX{}$B3HD%$G(B$2^{15}$$B8D$N%l%8%9%?$,MxMQ$G$-$^$9!#(B
-% ^^A $B!V(BFAM256$B$J$7$N(Be-(u)p\TeX{}$B!W$O;v<B>eB8:_$7$J$$$O$:!#(B
-% ^^A $B$?$@$7!"$?$H$($P(Be-(u)p\TeX{}$B$r%Y!<%9$K$7$?(B
-% ^^A p\TeX{}-ng (Asiatic pTeX)$B$O(Be-\TeX{}$B3HD%$r;}$C$F$$$F!"(B
-% ^^A FAM256$B%Q%C%A$OE,MQ$5$l$F$$$J$$$?$a!"$3$3$K3:Ev$9$k!#(B
-% ^^A   cf: https://github.com/clerkma/ptex-ng
-% ^^A $B$J$*!"(Bp\TeX{}-ng$B$O(Be-p\TeX{}$B$HF1MM$K(Bpdf\TeX{}$B3HD%$N(B
-% ^^A $B0lIt!J(Be-p\TeX{}$B$HHO0O$,0lCW$7$J$$!K$r;}$C$F$$$k$3$H!"(B
-% ^^A $B$^$?(B|\lastnodechar|$B$J$I$N(Be-p\TeX{}$BFH<+$N%W%j%_%F%#%V$r(B
-% ^^A $B;}$C$F$$$J$$$3$H$K$bCm0U!D$@$C$?$,!"(B2017/09/06$BIU$G(B
-% ^^A p\TeX{}-ng$B$K$b(B|\lastnodechar|$B$,DI2C$5$l$?!#(B
-%    \begin{macrocode}
-    \mathchardef\e@alloc@top=32767
-    \let\e@alloc@chardef\mathchardef
-  \fi
-\else
-%    \end{macrocode}
-% FAM256$B%Q%C%A$,E,MQ$5$l$?(Be-p\TeX{}$B$N>l9g$O!"(B$2^{16}$$B8D$N%l%8%9%?$,MxMQ$G$-$^$9!#(B
-%    \begin{macrocode}
-  \ifx\enablecjktoken\@undefined % pTeX
-    \omathchardef\e@alloc@top=65535
-    \let\e@alloc@chardef\omathchardef
-  \else                          % upTeX
-    \chardef\e@alloc@top=65535
-    \let\e@alloc@chardef\chardef
-  \fi
-\fi
-%    \end{macrocode}
-%    \begin{macrocode}
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{2015/01/01}%
-%<platexrelease>                   {\e@alloc@chardef}{Extended Allocation (FAM256)}%
-%<platexrelease>\ifx\widowpenalties\@undefined
-%<platexrelease>  \mathchardef\e@alloc@top=255
-%<platexrelease>  \let\e@alloc@chardef\chardef
-%<platexrelease>\else
-%<platexrelease>  \mathchardef\e@alloc@top=32767
-%<platexrelease>  \let\e@alloc@chardef\mathchardef
-%<platexrelease>\fi
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}%
-%<platexrelease>                   {\e@alloc@chardef}{Extended Allocation (FAM256)}%
-%<platexrelease>\let\e@alloc@top\@undefined
-%<platexrelease>\let\e@alloc@chardef\@undefined
-%<platexrelease>\plEndIncludeInRelease
-%    \end{macrocode}
-% \end{macro}
-% \end{macro}
-%
-% \begin{macro}{\e@mathgroup@top}
-% 2015/01/01$B0J9_$N(B\LaTeXe{}$B%+!<%M%k$O!"(BXe\TeX{}$B$H(BLua\TeX{}$B$KBP$7$F?t<0(Bfam$B$N(B
-% $B>e8B$r(B16$B$+$i(B256$B$KA}$d$7$F$$$^$9!J(B|\Umathcode| $B$GH=Dj!K!#(B
-% FAM256$B%Q%C%A$,E,MQ$5$l$?(Be-p\TeX{}$B$G$bF1MM$K>e8B$r(B16$B$+$i(B256$B$KA}$d$7$^$9!#(B
-% $B$3$l$G(B
-%\begin{verbatim}
-%  ! LaTeX Error: Too many math alphabets used in version normal.
-%\end{verbatim}
-% $B$,=P$K$/$/$J$k$O$:$G$9!#(B
-% \changes{v1.2j}{2016/11/09}{FAM256$B%Q%C%AE,MQ(Be-p\TeX{}$B$KBP1~(B}
-%    \begin{macrocode}
-%<platexrelease>\plIncludeInRelease{2016/11/29}%
-%<platexrelease>                   {\e@mathgroup@top}{Extended Allocation (FAM256)}%
-%<*plcore|platexrelease>
-%    \end{macrocode}
-%    \begin{macrocode}
-\ifx\omathchar\@undefined
-  \chardef\e@mathgroup@top=16 % LaTeX2e kernel standard
-\else
-  \mathchardef\e@mathgroup@top=256 % for e-pTeX FAM256 patched
-\fi
-%    \end{macrocode}
-%    \begin{macrocode}
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{2015/01/01}%
-%<platexrelease>                   {\e@mathgroup@top}{Extended Allocation (FAM256)}%
-%<platexrelease>\chardef\e@mathgroup@top=16
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}%
-%<platexrelease>                   {\e@mathgroup@top}{Extended Allocation (FAM256)}%
-%<platexrelease>\let\e@mathgroup@top\@undefined
-%<platexrelease>\plEndIncludeInRelease
-%    \end{macrocode}
-% \end{macro}
-%
-% \Finale
-\endinput
diff --git a/Master/texmf-dist/source/uplatex/base/ujclasses.dtx b/Master/texmf-dist/source/uplatex/base/ujclasses.dtx
index 0b6dc76fec8..121061ab7be 100644
--- a/Master/texmf-dist/source/uplatex/base/ujclasses.dtx
+++ b/Master/texmf-dist/source/uplatex/base/ujclasses.dtx
@@ -7,7 +7,7 @@
 %
 %  Copyright (c) 2010 ASCII MEDIA WORKS
 %  Copyright (c) 2016 Takuji Tanaka
-%  Copyright (c) 2016-2017 Japanese TeX Development Community
+%  Copyright (c) 2016-2018 Japanese TeX Development Community
 %
 %  This file is part of the upLaTeX2e system (community edition).
 %  --------------------------------------------------------------
@@ -103,6 +103,8 @@
 % \changes{v1.7f}{2017/08/31}{和文書体の基準を全角空白から「漢」に変更}
 % \changes{v1.7g}{2017/09/19}{内部処理で使ったボックス0を空にした}
 % \changes{v1.7g-u00}{2017/09/19}{p\LaTeX{}用に追随}
+% \changes{v1.7h}{2018/02/04}{和文スケール値\cs{Cjascale}を定義}
+% \changes{v1.7h-u00}{2018/02/04}{p\LaTeX{}用に追随}
 % \fi
 %
 % \iffalse
@@ -132,7 +134,7 @@
 %<11pt&bk>\ProvidesFile{utbk11.clo}
 %<12pt&bk>\ProvidesFile{utbk12.clo}
 %</tate>
-  [2017/09/19 v1.7g-u00
+  [2018/02/04 v1.7h-u00
 %<article|report|book> Standard upLaTeX class]
 %<10pt|11pt|12pt>  Standard upLaTeX file (size option)]
 %<*driver>
@@ -766,6 +768,22 @@
 % \end{macro}
 % \end{macro}
 %
+% \begin{macro}{\Cjascale}
+% このクラスファイルが意図する和文スケール値
+% （$1\,\mathrm{zw} \div \textmc{要求サイズ}$）を
+% 表す実数値マクロ|\Cjascale|を定義します。
+% このup\LaTeXe{}の標準クラスでは、フォーマット作成時に読み込まれた
+% フォント定義ファイル（\file{jy2mc.fd} / \file{jy2gt.fd} /
+% \file{jt2mc.fd} / \file{jt2gt.fd}）での和文スケール値がそのまま
+% 有効ですので、これは0.962216です。
+% \changes{v1.7h}{2018/02/04}{和文スケール値\cs{Cjascale}を定義}
+%    \begin{macrocode}
+%<*article|report|book>
+\def\Cjascale{0.962216}
+%</article|report|book>
+%    \end{macrocode}
+% \end{macro}
+%
 %
 %
 % \section{レイアウト}
diff --git a/Master/texmf-dist/source/uplatex/base/ukinsoku.dtx b/Master/texmf-dist/source/uplatex/base/ukinsoku.dtx
index 13ed52b7bac..deffad0c7e7 100644
--- a/Master/texmf-dist/source/uplatex/base/ukinsoku.dtx
+++ b/Master/texmf-dist/source/uplatex/base/ukinsoku.dtx
@@ -530,8 +530,8 @@
 %%
 %%\inhibitxspcode`¡=2
 %%\inhibitxspcode`¿=2
-%%\inhibitxspcode`º=1
-%%\inhibitxspcode`ª=1
+%%\inhibitxspcode"BA=1% º
+%%\inhibitxspcode"AA=1% ª
 \inhibitxspcode`™=1
 %%
 %% inhibitxspcode  半角片仮名
diff --git a/Master/texmf-dist/source/uplatex/base/uplatex.dtx b/Master/texmf-dist/source/uplatex/base/uplatex.dtx
index 886be7225ac..bfc9b906c1a 100644
--- a/Master/texmf-dist/source/uplatex/base/uplatex.dtx
+++ b/Master/texmf-dist/source/uplatex/base/uplatex.dtx
@@ -7,7 +7,7 @@
 %
 %  Copyright (c) 2010 ASCII MEDIA WORKS
 %  Copyright (c) 2016 Takuji Tanaka
-%  Copyright (c) 2016-2017 Japanese TeX Development Community
+%  Copyright (c) 2016-2018 Japanese TeX Development Community
 %
 %  This file is part of the upLaTeX2e system (community edition).
 %  --------------------------------------------------------------
@@ -74,6 +74,13 @@
 % \changes{v1.0q-u01}{2017/11/29}{英語版ドキュメントを追加
 %     (based on platex.dtx 2017/11/29 v1.0q)}
 % \changes{v1.0r-u01}{2017/12/02}{\upLaTeX{}と\upTeX{}の参考文献も追加}
+% \changes{v1.0s-u01}{2017/12/05}{デフォルト設定ファイルの読み込みを
+%    \file{uplcore.ltx}から\file{uplatex.ltx}へ移動
+%     (based on platex.dtx 2017/12/05 v1.0s)}
+% \changes{v1.0s-u02}{2017/12/10}{\file{uplcore.ltx}の前に
+%    \file{plcore.ltx}を読み込むようにした（最近の\pLaTeX{}が前提）}
+% \changes{v1.0u-u02}{2018/02/18}{\pLaTeX{}の変更に追随。
+%     (based on platex.dtx 2018/02/18 v1.0u)}
 %\else
 % \changes{v1.0c-u00}{2011/05/07}{Created \upLaTeX\ version based on \pLaTeX\ one
 %     (based on platex.dtx 1997/01/29 v1.0c)}
@@ -96,6 +103,13 @@
 % \changes{v1.0q-u01}{2017/11/29}{New English documentation added!
 %     (based on platex.dtx 2017/11/29 v1.0q)}
 % \changes{v1.0r-u01}{2017/12/02}{\upLaTeX\ and \upTeX\ references added}
+% \changes{v1.0s-u01}{2017/12/05}{Moved loading default settings
+%    from \file{uplcore.ltx} to \file{uplatex.ltx}
+%     (based on platex.dtx 2017/12/05 v1.0s)}
+% \changes{v1.0s-u02}{2017/12/10}{Load \file{plcore.ltx} before
+%    \file{uplcore.ltx} (recent version of \pLaTeX\ is assumed)}
+% \changes{v1.0u-u02}{2018/02/18}{Sync with \pLaTeX.
+%     (based on platex.dtx 2018/02/18 v1.0u)}
 %\fi
 % \fi
 %
@@ -103,7 +117,7 @@
 %<*driver>
 \NeedsTeXFormat{pLaTeX2e}
 % \fi
-\ProvidesFile{uplatex.dtx}[2017/12/02 v1.0r-u01 upLaTeX document file]
+\ProvidesFile{uplatex.dtx}[2018/02/18 v1.0u-u02 upLaTeX document file]
 % \iffalse
 \documentclass{jltxdoc}
 \usepackage{plext}
@@ -360,6 +374,7 @@
 %\ifJAPANESE
 % 次のリストが、\file{uplatex.ltx}の内容です。
 % ただし、このバージョンでは、\LaTeX{}から\upLaTeX{}への拡張を
+% \file{plcore.ltx}（\pLaTeX{}によって提供される）および
 % \file{uplcore.ltx}をロードすることで行ない、
 % \file{latex.ltx}には直接、手を加えないようにしています。
 % したがって\file{uplatex.ltx}はとても短いものとなっています。
@@ -369,7 +384,8 @@
 % The content of \file{uplatex.ltx} is shown below.
 % In the current version of \upLaTeX,
 % first we simply load \file{latex.ltx} and
-% modify/extend some definitions by loading \file{uplcore.ltx}.
+% modify/extend some definitions by loading
+% \file{plcore.ltx} (available from \pLaTeX) and \file{uplcore.ltx}.
 %\fi
 %    \begin{macrocode}
 %<*plcore>
@@ -399,9 +415,13 @@
 %    \end{macrocode}
 %
 %\ifJAPANESE
-% \file{uplcore.ltx}を読み込みます。
+% \file{plcore.ltx}と\file{uplcore.ltx}を読み込みます。
+% \changes{v1.0s-u02}{2017/12/10}{\file{uplcore.ltx}の前に
+%    \file{plcore.ltx}を読み込むようにした（最近の\pLaTeX{}が前提）}
 %\else
-% Load \file{uplcore.ltx}.
+% Load \file{plcore.ltx} and \file{uplcore.ltx}.
+% \changes{v1.0s-u02}{2017/12/10}{Load \file{plcore.ltx} before
+%    \file{uplcore.ltx} (recent version of \pLaTeX\ is assumed)}
 %\fi
 %    \begin{macrocode}
 \typeout{**************************^^J%
@@ -410,10 +430,36 @@
          *^^J%
          **************************}
 \makeatletter
+\input plcore.ltx
 \input uplcore.ltx
 %    \end{macrocode}
 %
 %\ifJAPANESE
+% フォント関連のデフォルト設定ファイルである、
+% \file{upldefs.ltx}を読み込みます。
+% \TeX{}の入力ファイル検索パスに設定されている
+% ディレクトリに\file{upldefs.cfg}ファイルがある場合は、
+% そのファイルを使います。
+% \changes{v1.0s-u01}{2017/12/05}{デフォルト設定ファイルの読み込みを
+%    \file{uplcore.ltx}から\file{uplatex.ltx}へ移動
+%     (based on platex.dtx 2017/12/05 v1.0s)}
+%\else
+% Load font-related default settings, \file{upldefs.ltx}.
+% If a file \file{upldefs.cfg} is found, then that file will be
+% used instead.
+% \changes{v1.0s-u01}{2017/12/05}{Moved loading default settings
+%    from \file{uplcore.ltx} to \file{uplatex.ltx}
+%     (based on platex.dtx 2017/12/05 v1.0s)}
+%\fi
+%    \begin{macrocode}
+\InputIfFileExists{upldefs.cfg}
+           {\typeout{*************************************^^J%
+                     * Local config file upldefs.cfg used^^J%
+                     *************************************}}%
+           {\input{upldefs.ltx}}
+%    \end{macrocode}
+%
+%\ifJAPANESE
 % フォーマット作成時に\upLaTeX{}のバージョンがわかるように、
 % 端末に表示します。
 %\else
@@ -474,14 +520,13 @@
 % \begin{itemize}
 % \item \file{uplvers.dtx}は、\upLaTeXe{}のフォーマットバージョンを
 %   定義しています。
-% \item \file{uplfonts.dtx}は、\NFSS2を拡張しています。
-% \item このほか、\pLaTeXe{}に含まれる\file{plcore.dtx}をそのまま利用
-%   しています。これは、上記以外のコマンドでフォーマットファイルに
-%   格納されるコマンドを定義しています。
 % \end{itemize}
 %
 % また、プリロードフォントや組版パラメータなどのデフォルト設定は、
-% \file{uplcore.ltx}の中で\file{upldefs.ltx}をロードすることにより行います。
+% \file{uplatex.ltx}の中で\file{upldefs.ltx}をロードすることにより行います
+% \footnote{旧版では\file{uplcore.ltx}の中でロードしていましたが、
+% 2018年以降の新しいコミュニティ版\upLaTeX{}では
+% \file{uplatex.ltx}から読み込むことにしました。}。
 % このファイル\file{upldefs.ltx}も\file{uplfonts.dtx}から生成されます。
 % \begin{chuui}
 % このファイルに記述されている設定を変更すれば
@@ -504,7 +549,10 @@
 % \end{itemize}
 %
 % Moreover, default settings of pre-loaded fonts and typesetting parameters
-% are done by loading \file{upldefs.ltx} inside \file{uplcore.ltx}.
+% are done by loading \file{upldefs.ltx} inside
+% \file{uplatex.ltx}.\footnote{Older \upLaTeX\ loaded \file{upldefs.ltx}
+% inside \file{uplcore.ltx}; however, \upLaTeX\ community edition newer than
+% 2018 loads \file{upldefs.ltx} inside \file{uplatex.ltx}.}
 % This file \file{upldefs.ltx} is also stripped from \file{uplfonts.dtx}.
 % \begin{chuui}
 % You can customize \upLaTeXe\ by tuning these settings.
@@ -539,18 +587,18 @@
 %
 %\ifJAPANESE
 % \subsubsection{\NFSS2コマンド}
-% \upLaTeXe{}は、\pLaTeXe{}と同じ方式で\NFSS2を拡張し、
-% 和文フォントを選択できるようにしています。
+% \upLaTeXe{}は\pLaTeXe{}と共通の\file{plcore.ltx}を使用していますので、
+% \NFSS2の和文フォント選択への拡張が有効になっています。
 %\else
 % \subsubsection{\NFSS2 Commands}
-% \upLaTeXe\ extends \NFSS2 in the same way as \pLaTeXe, to enable
-% selection of Japanese fonts.
+% \upLaTeXe\ shares \file{plcore.dtx} with \pLaTeXe, so
+% the extensions of \NFSS2 for selecting Japanese fonts are available.
 %\fi
 %
 %
 %\ifJAPANESE
 % \subsubsection{出力ルーチンとフロート}
-% \upLaTeXe{}は\pLaTeXe{}と共通の\file{plcore.dtx}を使用していますので、
+% \upLaTeXe{}は\pLaTeXe{}と共通の\file{plcore.ltx}を使用していますので、
 % 出力ルーチンや脚注マクロなどは\pLaTeXe{}と同じように動作します。
 %\else
 % \subsubsection{Output Routine and Floats}
@@ -899,46 +947,19 @@ all others indicate the places where it is used.}
  \title{The \upLaTeXe\ Sources}
  \author{Ken Nakano \& Japanese \TeX\ Development Community \& TTK}
 
-% This command will be used to input the patch file
-% if that file exists.
-\newcommand{\includeltpatch}{%
-  \def\currentfile{uplpatch.ltx}
-  \part{uplpatch}
-  {\let\ttfamily\relax
-    \xdef\filekey{\filekey, \thepart={\ttfamily\currentfile}}}%
-  Things we did wrong\ldots
-  \IndexInput{uplpatch.ltx}}
-
 % Get the date and patch level from uplvers.dtx
 \makeatletter
 \let\patchdate=\@empty
 \begingroup
-   \def\ProvidesFile#1\pfmtversion#2#3\ppatch@level#4{%
-      \date{#2}\xdef\patchdate{#4}\endinput}
+   \def\ProvidesFile#1[#2 #3]#4\def\uppatch@level#5{%
+      \date{#2}\xdef\patchdate{#5}\endinput}
    \input{uplvers.dtx}
-\global\let\X@date=\@date
-
-% Add the patch version if available.
-   \long\def\Xdef#1#2#3\def#4#5{%
-    \xdef\X@date{#2}%
-    \xdef\patchdate{#5}%
-    \endinput}%
-   \InputIfFileExists{uplpatch.ltx}
-    {\let\def\Xdef}{\global\let\includeltpatch\relax}
 \endgroup
 
-\ifx\@date\X@date
-  \def\Xpatch{0}
-  \ifx\patchdate\Xpatch\else
-  % number is assumed
-  \ifnum\patchdate>0
-    \edef\@date{\@date\space Patch level\space\patchdate}
-  \else
-    \edef\@date{\@date\space Pre-Release\patchdate}
-  \fi\fi
-\else
-   \@warning{uplpatch.ltx does not match uplvers.dtx!}
-   \let\includeltpatch\relax
+% Add the patch version if available.
+\def\Xpatch{}
+\ifx\patchdate\Xpatch\else
+  \edef\@date{\@date\space version \patchdate}
 \fi
 \makeatother
 
@@ -953,14 +974,10 @@ all others indicate the places where it is used.}
 
 \DocInclude{uplfonts}  % NFSS2 commands
 
-%\DocInclude{plcore}   % kernel commands (comment out for upLaTeX)
-
 \DocInclude{ukinsoku}  % kinsoku parameter
 
 \DocInclude{ujclasses} % Standard class
 
-%\includeltpatch       % patch file (comment out May 8, 2016)
-
 \StopEventually{\end{document}}
 
 \clearpage
@@ -1105,7 +1122,7 @@ uplatex upldoc.tex
 % \bibitem{tb108tanaka}
 % Takuji Tanaka,
 % \newblock Up\TeX\ --- Unicode version of \pTeX\ with CJK extensions
-% \newblock TUGboat issue 34:3, 2013].\\
+% \newblock TUGboat issue 34:3, 2013.\\
 %   (\texttt{http://tug.org/TUGboat/tb34-3/tb108tanaka.pdf})
 % \end{thebibliography}
 %
diff --git a/Master/texmf-dist/source/uplatex/base/uplcls.ins b/Master/texmf-dist/source/uplatex/base/uplcls.ins
index 9f298326138..1f6e9749679 100644
--- a/Master/texmf-dist/source/uplatex/base/uplcls.ins
+++ b/Master/texmf-dist/source/uplatex/base/uplcls.ins
@@ -9,7 +9,7 @@
 
 Copyright (c) 2010 ASCII MEDIA WORKS
 Copyright (c) 2016 Takuji Tanaka
-Copyright (c) 2016 Japanese TeX Development Community
+Copyright (c) 2016-2018 Japanese TeX Development Community
 
 This file is part of the upLaTeX2e system (community edition).
 --------------------------------------------------------------
diff --git a/Master/texmf-dist/source/uplatex/base/upldocs.ins b/Master/texmf-dist/source/uplatex/base/upldocs.ins
index 61e7f1e1932..8dd59de1634 100644
--- a/Master/texmf-dist/source/uplatex/base/upldocs.ins
+++ b/Master/texmf-dist/source/uplatex/base/upldocs.ins
@@ -9,7 +9,7 @@
 
 Copyright (c) 2010 ASCII MEDIA WORKS
 Copyright (c) 2016 Takuji Tanaka
-Copyright (c) 2016 Japanese TeX Development Community
+Copyright (c) 2016-2018 Japanese TeX Development Community
 
 This file is part of the upLaTeX2e system (community edition).
 --------------------------------------------------------------
diff --git a/Master/texmf-dist/source/uplatex/base/uplfmt.ins b/Master/texmf-dist/source/uplatex/base/uplfmt.ins
index a93fb9fcd73..884cfc18407 100644
--- a/Master/texmf-dist/source/uplatex/base/uplfmt.ins
+++ b/Master/texmf-dist/source/uplatex/base/uplfmt.ins
@@ -1,7 +1,7 @@
 \input docstrip
 \keepsilent
-\usedir{tex/uplatex/base}
 \ifToplevel{\askonceonly}
+\usedir{tex/uplatex/base}
 
 \Msg{*** Generating the upLaTeX files for making the documents ***}
 
@@ -9,7 +9,7 @@
 
 Copyright (c) 2010 ASCII MEDIA WORKS
 Copyright (c) 2016 Takuji Tanaka
-Copyright (c) 2016 Japanese TeX Development Community
+Copyright (c) 2016-2018 Japanese TeX Development Community
 
 This file is part of the upLaTeX2e system (community edition).
 --------------------------------------------------------------
@@ -19,8 +19,6 @@ This file is part of the upLaTeX2e system (community edition).
 \generate{
   \file{uplatex.ltx}{\from{uplatex.dtx}{plcore}}
   \file{uplcore.ltx}{\from{uplvers.dtx}{plcore}
-          \from{uplfonts.dtx}{plcore}
-          \from{plcore.dtx}{plcore}
           \from{uplvers.dtx}{plfinal}}
   \file{ukinsoku.tex}{\from{ukinsoku.dtx}{plcore}}
   \file{upldefs.ltx}{\from{uplfonts.dtx}{pldefs,xpt}}
@@ -28,7 +26,6 @@ This file is part of the upLaTeX2e system (community edition).
   \file{jy2gt.fd}{\from{uplfonts.dtx}{JY2gt}}
   \file{jt2mc.fd}{\from{uplfonts.dtx}{JT2mc}}
   \file{jt2gt.fd}{\from{uplfonts.dtx}{JT2gt}}
-%  \file{plext.sty}{\from{plext.dtx}{package}}
   \file{uptrace.sty}{\from{uplfonts.dtx}{trace}}
 }
 
diff --git a/Master/texmf-dist/source/uplatex/base/uplfonts.dtx b/Master/texmf-dist/source/uplatex/base/uplfonts.dtx
index 51cb38c6b66..6a5aa24e6a2 100644
--- a/Master/texmf-dist/source/uplatex/base/uplfonts.dtx
+++ b/Master/texmf-dist/source/uplatex/base/uplfonts.dtx
@@ -7,7 +7,7 @@
 %
 %  Copyright (c) 2010 ASCII MEDIA WORKS
 %  Copyright (c) 2016 Takuji Tanaka
-%  Copyright (c) 2016-2017 Japanese TeX Development Community
+%  Copyright (c) 2016-2018 Japanese TeX Development Community
 %
 %  This file is part of the upLaTeX2e system (community edition).
 %  --------------------------------------------------------------
@@ -19,81 +19,45 @@
 % \StopEventually{}
 %
 % \iffalse
-% \changes{v1.0}{1994/09/16}{first edition}
-% \changes{v1.1}{1995/02/21}{\cs{selectfont}アルゴリズム変更}
-% \changes{v1.1b}{1995/04/25}{\cs{selectfont}修正}
-% \changes{v1.1c}{1995/08/22}{縦横フォント同時切り替え}
-% \changes{v1.2}{1995/11/09}{\cs{DeclareFixedFont}の日本語化}
-% \changes{v1.3}{1996/03/25}{数式ファミリの定義変更}
-% \changes{v1.3a}{1997/01/25}{\LaTeX\ \texttt{!<1996/12/01!>に対応}}
-% \changes{v1.3b}{1997/01/28}{\cs{textmc}, \cs{textgt}の動作修正}
-% \changes{v1.3c}{1997/04/08}{和文エンコード関連の修正}
-% \changes{v1.3d}{1997/06/25}{\cs{em},\cs{emph}で和文を強調書体に}
-% \changes{v1.3e}{1997/07/10}{fdファイル名の小文字化が効いていなかったのを修正}
-% \changes{v1.3f}{1998/08/10}{\cs{DeclareFixedCommand}を\cs{@onlypreamble}に
-%    してしまっていたのを修正}
-% \changes{v1.3g}{1999/04/05}{plpatch.ltxの内容を反映}
-% \changes{v1.3h}{1999/08/09}{\cs{strut}の改善}
-% \changes{v1.3i}{2000/07/13}{\cs{text..}コマンドの左側に\cs{xkanjiskip}が
-%    入らないのを修正}
-% \changes{v1.3j}{2000/10/24}{\cs{adjustbaseline}で余分なアキが入らない
-%    ようにした}
-% \changes{v1.3k}{2001/05/10}{欧文書体の基準を再び`/`から`M'に変更}
-% \changes{v1.3l}{2002/04/05}{\cs{adjustbaseline}でフォントの基準値が縦書き
-%    以外では設定されないのを修正}
-% \changes{v1.3m}{2004/06/14}{\cs{fontfamily}コマンド内部フラグ変更}
-% \changes{v1.3n}{2004/08/10}{和文エンコーディングの切り替えを有効化}
-% \changes{v1.3o}{2005/01/04}{\cs{fontfamily}中のフラグ修正}
-% \changes{v1.3p}{2006/01/04}{\cs{DeclareFontEncoding@}中で
-%    \cs{LastDeclaredEncodeng}の再定義が抜けていたので追加}
-% \changes{v1.4}{2006/06/27}{\cs{reDeclareMathAlphabet}を修正。
-%    ありがとう、ymtさん。}
-% \changes{v1.5}{2006/11/10}{\cs{reDeclareMathAlphabet}を修正。
-%    ありがとう、ymtさん。}
-% \changes{v1.5-u00}{2011/05/07}{p\LaTeX{}用からup\LaTeX{}用に修正。}
-% \changes{v1.6}{2016/02/01}{\LaTeX\ \texttt{!<2015/01/01!>}での\cs{em}の
-%    定義変更に対応。\cs{eminnershape}を追加。}
-% \changes{v1.6a}{2016/04/01}{ベースライン補正量が0でないときに
-%    \cs{AA}など一部の合成文字がおかしくなることへの対応。}
-% \changes{v1.6a-u00}{2016/04/06}{p\LaTeX{}の変更に追随。}
+% \changes{v1.5-u00}{2011/05/07}{p\LaTeX{}用からup\LaTeX{}用に修正。
+%     (based on plfonts.dtx 2006/11/10 v1.5)}
+% \changes{v1.6a-u00}{2016/04/06}{p\LaTeX{}の変更に追随。
+%     (based on plfonts.dtx 2016/04/01 v1.6a)}
 % \changes{v1.6b-u00}{2016/04/30}{uptrace.styの冒頭でtracefnt.styを
-%    \cs{RequirePackageWithOptions}するようにした}
-% \changes{v1.6c}{2016/06/06}{v1.6aでの修正で\'e など全てのアクセント付き文字で
-%    周囲に\cs{xkanjiskip}が入らなくなっていたのを修正。}
-% \changes{v1.6c-u00}{2016/06/06}{p\LaTeX{}の変更に追随。}
-% \changes{v1.6d}{2016/06/19}{アクセント付き文字をさらに修正(forum:1951)}
-% \changes{v1.6d-u00}{2016/06/19}{p\LaTeX{}の変更に追随。}
-% \changes{v1.6e}{2016/06/26}{v1.6a以降の修正で全てのアクセント付き文字で
-%    トラブルが相次いだため、いったんパッチを除去。}
-% \changes{v1.6e-u00}{2016/06/29}{p\LaTeX{}の変更に追随。}
-% \changes{v1.6f}{2017/02/20}{ptrace.styのplatexrelease対応}
-% \changes{v1.6f}{2017/02/20}{\cs{ystrutbox}を追加}
-% \changes{v1.6f}{2017/02/20}{\cs{strutbox}を縦横両対応に}
-% \changes{v1.6f}{2017/02/20}{\cs{strutbox}の代わりに\cs{ystrutbox}を使用}
-% \changes{v1.6f}{2017/02/20}{\cs{ystrut}を追加}
-% \changes{v1.6f}{2017/02/20}{\cs{ystrutbox}を組み立てるように}
-% \changes{v1.6f-u00}{2017/03/05}{p\LaTeX{}の変更に追随。}
-% \changes{v1.6g}{2017/03/07}{ベースライン補正量を修正}
-% \changes{v1.6g-u00}{2017/03/08}{p\LaTeX{}の変更に追随。}
-% \changes{v1.6h}{2017/08/05}{和文書体の基準を全角空白から「漢」に変更}
-% \changes{v1.6h}{2017/08/05}{traceのコードの\texttt{\%}忘れを修正}
-% \changes{v1.6h-u00}{2017/08/05}{p\LaTeX{}の変更に追随。}
-% \changes{v1.6i}{2017/09/24}{2010年のp\TeX{}本体の修正により、v1.3iで入れた
-%    対処が不要になっていたので削除}
-% \changes{v1.6i}{2017/09/24}{\cs{<}が段落頭でも効くようにした}
-% \changes{v1.6i-u00}{2017/09/24}{p\LaTeX{}の変更に追随。}
-% \changes{v1.6j}{2017/11/06}{\cs{cy@encoding}と\cs{ct@encoding}を
-%    具体的な値ではなく「空」で初期化}
-% \changes{v1.6j}{2017/11/06}{縦横のエンコーディングのセット化を
-%    plcoreからpldefsへ移動}
-% \changes{v1.6j-u00}{2017/11/06}{p\LaTeX{}の変更に追随。}
+%    \cs{RequirePackageWithOptions}するようにした
+%     (based on plfonts.dtx 2016/04/30 v1.6b)}
+% \changes{v1.6c-u00}{2016/06/06}{p\LaTeX{}の変更に追随。
+%     (based on plfonts.dtx 2016/06/06 v1.6c)}
+% \changes{v1.6d-u00}{2016/06/19}{p\LaTeX{}の変更に追随。
+%     (based on plfonts.dtx 2016/06/19 v1.6d)}
+% \changes{v1.6e-u00}{2016/06/29}{p\LaTeX{}の変更に追随。
+%     (based on plfonts.dtx 2016/06/26 v1.6e)}
+% \changes{v1.6f-u00}{2017/03/05}{uptrace.styのplatexrelease対応
+%     (based on plfonts.dtx 2017/02/20 v1.6f)}
+% \changes{v1.6g-u00}{2017/03/08}{p\LaTeX{}の変更に追随。
+%     (based on plfonts.dtx 2017/03/07 v1.6g)}
+% \changes{v1.6h-u00}{2017/08/05}{p\LaTeX{}の変更に追随。
+%     (based on plfonts.dtx 2017/08/05 v1.6h)}
+% \changes{v1.6i-u00}{2017/09/24}{p\LaTeX{}の変更に追随。
+%     (based on plfonts.dtx 2017/09/24 v1.6i)}
+% \changes{v1.6j-u00}{2017/11/06}{p\LaTeX{}の変更に追随。
+%     (based on plfonts.dtx 2017/11/06 v1.6j)}
+% \changes{v1.6k-u00}{2017/12/05}{デフォルト設定ファイルの読み込みを
+%    \file{uplcore.ltx}から\file{uplatex.ltx}へ移動
+%     (based on plfonts.dtx 2017/12/05 v1.6k)}
+% \changes{v1.6k-u01}{2017/12/10}{uptraceパッケージは
+%    ptraceパッケージを読み込むだけとした}
+% \changes{v1.6k-u02}{2017/12/10}{p\LaTeX{}との統合のため、
+%    up\LaTeX{}用の最小限の変更だけを定義するようにした}
+% \changes{v1.6l-u02}{2018/02/04}{p\LaTeX{}の変更に追随。
+%     (based on plfonts.dtx 2018/02/04 v1.6l)}
 % \fi
 %
 % \iffalse
 %<*driver>
 \NeedsTeXFormat{pLaTeX2e}
 % \fi
-\ProvidesFile{uplfonts.dtx}[2017/11/06 v1.6j-u00 upLaTeX New Font Selection Scheme]
+\ProvidesFile{uplfonts.dtx}[2018/02/04 v1.6l-u02 upLaTeX New Font Selection Scheme]
 % \iffalse
 \documentclass{jltxdoc}
 \GetFileInfo{uplfonts.dtx}
@@ -114,6 +78,10 @@
 % また、フォント定義ファイルや初期設定ファイルなどの説明もしています。
 % 新しいフォント選択コマンドの使い方については、\file{fntguide.tex}や
 % \file{usrguide.tex}を参照してください。
+% \changes{v1.5-u00}{2011/05/07}{p\LaTeX{}用からup\LaTeX{}用に修正。
+%     (based on plfonts.dtx 2006/11/10 v1.5)}
+% \changes{v1.6k-u02}{2017/12/10}{p\LaTeX{}との統合のため、
+%    up\LaTeX{}用の最小限の変更だけを定義するようにした}
 %
 % \begin{description}
 % \item[第\ref{plfonts:intro}節] この節です。このファイルの概要と
@@ -133,7 +101,7 @@
 % \begin{center}
 % \begin{tabular}{l|p{0.7\linewidth}}
 % \emph{オプション} & \emph{意味}\\\hline
-% plcore & \file{uplfonts.ltx}を生成します。\\
+% plcore & \file{uplcore.ltx}の断片を生成するオプションでしたが、削除。\\
 % trace  & \file{uptrace.sty}を生成します。\\
 % JY2mc  & 横組用、明朝体のフォント定義ファイルを生成します。\\
 % JY2gt  & 横組用、ゴシック体のフォント定義ファイルを生成します。\\
@@ -153,1991 +121,56 @@
 %
 %
 % \section{コード}\label{plfonts:codes}
-% この節で、具体的に\NFSS2を拡張するコマンドやマクロの定義を行なっています。
-%
-% \subsection{準備}
-% \NFSS2を拡張するための準備です。
-% 和文フォントの属性を格納するオブジェクトや長さ変数、
-% 属性を切替える際の判断材料として使うリストなどを定義しています。
+% \NFSS2の拡張は、p\LaTeX{}において\file{plfonts.dtx}から生成される
+% \file{plcore.ltx}をそのまま利用するので、up\LaTeX{}では定義しません。
+% 後方互換性のため、\file{uptrace.sty}を提供しますが、
+% これも単に\file{ptrace.sty}を読み込むだけとします。
 %
-% \file{uptrace}パッケージは\LaTeX{}の\file{tracefnt}パッケージに依存します。
 % \changes{v1.6b-u00}{2016/04/30}{uptrace.styの冒頭でtracefnt.styを
 %    \cs{RequirePackageWithOptions}するようにした}
+% \changes{v1.6k-u01}{2017/12/10}{uptraceパッケージは
+%    ptraceパッケージを読み込むだけとした}
 %    \begin{macrocode}
 %<*trace>
 \NeedsTeXFormat{pLaTeX2e}
 \ProvidesPackage{uptrace}
-     [2017/08/05 v1.6h-u00 Standard upLaTeX package (font tracing)]
-\RequirePackageWithOptions{tracefnt}
+     [2017/12/10 v1.6k-u02 Standard upLaTeX package (font tracing)]
+\RequirePackageWithOptions{ptrace}
 %</trace>
 %    \end{macrocode}
 %
-% \subsubsection{和文フォント属性}
-% ここでは、和文フォントの属性を格納するためのオブジェクトについて
-% 説明をしています。
-% 
-% \begin{macro}{\k@encoding}
-% \begin{macro}{\ck@encoding}
-% \begin{macro}{\cy@encoding}
-% \begin{macro}{\ct@encoding}
-% 和文エンコードを示すオブジェクトです。
-% |\ck@encoding|は、最後に選択された和文エンコード名を示しています。
-% |\cy@encoding|と|\ct@encoding|はそれぞれ、最後に選択された、
-% 横組用と縦組用の和文エンコード名を示しています。
-%
-% ここでは単に「空」に初期化するだけにしています。
-% \iffalse
-% アスキー版はJY1やJT1という具体的な値で初期化していたが、これらの値は
-% \file{pldefs.ltx}で定義するものであるから、\file{plcore.ltx}で
-% それを使うのはおかしい。
-% \fi
-% \changes{v1.6j}{2017/11/06}{\cs{cy@encoding}と\cs{ct@encoding}を
-%    具体的な値ではなく「空」で初期化}
-%    \begin{macrocode}
-%<*plcore>
-\let\k@encoding\@empty
-\let\ck@encoding\@empty
-\let\cy@encoding\@empty
-\let\ct@encoding\@empty
-%    \end{macrocode}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-%
-% \begin{macro}{\k@family}
-% 和文書体のファミリを示すオブジェクトです。
-%    \begin{macrocode}
-\let\k@family\@empty
-%    \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\k@series}
-% 和文書体のシリーズを示すオブジェクトです。
-%    \begin{macrocode}
-\let\k@series\@empty
-%    \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\k@shape}
-% 和文書体のシェイプを示すオブジェクトです。
-%    \begin{macrocode}
-\let\k@shape\@empty
-%    \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\curr@kfontshape}
-% 現在の和文フォント名を示すオブジェクトです。
-%    \begin{macrocode}
-\def\curr@kfontshape{\k@encoding/\k@family/\k@series/\k@shape}
-%    \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\rel@fontshape}
-% 関連付けされたフォント名を示すオブジェクトです。
-%    \begin{macrocode}
-\def\rel@fontshape{\f@encoding/\f@family/\f@series/\f@shape}
-%    \end{macrocode}
-% \end{macro}
-%
-% \subsubsection{長さ変数}
-% ここでは、和文フォントの幅や高さなどを格納する変数について説明をしています。
-%
-% 頭文字が大文字の変数は、ノーマルサイズの書体の大きさで、基準値となります。
-% これらは、\file{jart10.clo}などの補助クラスファイルで設定されます。
-%
-% 小文字だけからなる変数は、
-% フォントが変更されたときに（|\selectfont|内で）更新されます。
-%
-% \begin{macro}{\Cht}
-% \begin{macro}{\cht}
-% |\Cht|は基準となる和文フォントの文字の高さを示します。
-% |\cht|は現在の和文フォントの文字の高さを示します。
-% なお、この``高さ''はベースラインより上の長さです。
-%    \begin{macrocode}
-\newdimen\Cht
-\newdimen\cht
-%    \end{macrocode}
-% \end{macro}
-% \end{macro}
-%
-% \begin{macro}{\Cdp}
-% \begin{macro}{\cdp}
-% |\Cdp|は基準となる和文フォントの文字の深さを示します。
-% |\cdp|は現在の和文フォントの文字の深さを示します。
-% なお、この``深さ''はベースラインより下の長さです。
-%    \begin{macrocode}
-\newdimen\Cdp
-\newdimen\cdp
-%    \end{macrocode}
-% \end{macro}
-% \end{macro}
-%
-% \begin{macro}{\Cwd}
-% \begin{macro}{\cwd}
-% |\Cwd|は基準となる和文フォントの文字の幅を示します。
-% |\cwd|は現在の和文フォントの文字の幅を示します。
-%    \begin{macrocode}
-\newdimen\Cwd
-\newdimen\cwd
-%    \end{macrocode}
-% \end{macro}
-% \end{macro}
-%
-% \begin{macro}{\Cvs}
-% \begin{macro}{\cvs}
-% |\Cvs|は基準となる行送りを示します。
-% ノーマルサイズの|\baselineskip|と同値です。
-% |\cvs|は現在の行送りを示します。
-%    \begin{macrocode}
-\newdimen\Cvs
-\newdimen\cvs
-%    \end{macrocode}
-% \end{macro}
-% \end{macro}
-%
-% \begin{macro}{\Chs}
-% \begin{macro}{\chs}
-% |\Chs|は基準となる字送りを示します。|\Cwd|と同値です。
-% |\chs|は現在の字送りを示します。
-%    \begin{macrocode}
-\newdimen\Chs
-\newdimen\chs
-%    \end{macrocode}
-% \end{macro}
-% \end{macro}
-%
-% \begin{macro}{\cHT}
-% |\cHT|は、現在のフォントの高さに深さを加えた長さを示します。
-% |\set@fontsize|コマンド（実際は|\size@update|）で更新されます。
-%    \begin{macrocode}
-\newdimen\cHT
-%    \end{macrocode}
-% \end{macro}
-%
-% \subsubsection{一時コマンド}
-%
-% \begin{macro}{\afont}
-% \LaTeX{}内部の|\do@subst@correction|マクロでは、
-% |\fontname\font|で返される外部フォント名を用いて、
-% \LaTeX{}フォント名を定義しています。したがって、|\font|をそのまま使うと、
-% 和文フォント名に欧文の外部フォントが登録されたり、
-% 縦組フォント名に横組用の外部フォントが割り付けられたりしますので、
-% |\jfont|か|\tfont|を用いるようにします。
-% |\afont|は、|\font|コマンドの保存用です。
-%    \begin{macrocode}
-\let\afont\font
-%    \end{macrocode}
-% \end{macro}
-%
-%
-% \subsubsection{フォントリスト}
-% ここでは、フォントのエンコードやファミリの名前を登録するリストについて
-% 説明をしています。
-%
-% p\LaTeXe{}の\NFSS2では、一つのコマンドで和文か欧文のいずれか、あるいは両方を
-% 変更するため、コマンドに指定された引数が何を示すのかを判断しなくては
-% なりません。この判断材料として、リストを用います。
-%
-% このときの具体的な判断手順については、エンコード選択コマンドや
-% ファミリ選択コマンドなどの定義を参照してください。
-% 
-% \begin{macro}{\inlist@}
-% 次のコマンドは、エンコードやファミリのリスト内に第二引数で指定された文字列
-% があるかどうかを調べるマクロです。
-%    \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|と|\fam@elt|は、登録されているエンコードに対して、
-% なんらかの処理を逐次的に行ないたいときに使用することができます。
-%    \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|には、|\DeclareFontEncoding|コマンドで宣言されたエンコード名が
-% 格納されていきます。
-%
-% |\kyenc@list|には、|\DeclareYokoKanjiEncoding|コマンドで宣言された
-% エンコード名が格納されていきます。
-% |\ktenc@list|には、|\DeclareTateKanjiEncoding|コマンドで宣言された
-% エンコード名が格納されていきます。
-%
-% \changes{v1.1b}{1995/03/28}{リストの初期値を変更}
-% \changes{v1.1b}{1995/05/10}{リスト内の空白を削除}
-%
-% ここで、これらのリストに具体的な値を入れて初期化をするのは、
-% リストにエンコードの登録をするように|\DeclareFontEncoding|を再定義
-% する前に、欧文エンコードが宣言されるため、リストに登録されないからです。
-% \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|には、|\DeclareKanjiFamily|コマンドで宣言されたファミリ名が
-% 格納されていきます。
-%
-% |\ffam@list|には、|\DeclareFontFamily|コマンドで宣言されたファミリ名が
-% 格納されていきます。
-%
-% |\notkfam@list|には、和文ファミリではないと推測されたファミリ名が
-% 格納されていきます。このリストは|\fontfamily|コマンドで作成されます。
-%
-% |\notffam@list|には欧文ファミリではないと推測されたファミリ名が
-% 格納されていきます。このリストは|\fontfamily|コマンドで作成されます。
-%
-% \changes{v1.1b}{1995/03/28}{リストの初期値を変更}
-% \changes{v1.1b}{1995/05/10}{リスト内の空白を削除}
-%
-% ここで、これらのリストに具体的な値を入れて初期化をするのは、
-% リストにファミリの登録をするように、|\DeclareFontFamily|が
-% 再定義される前に、このコマンドが使用されるため、
-% リストに登録されないからです。
-%    \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}と\cs{notffam@list}の
-%       初期値を変更}
-% つぎの二つのリストの初期値として、上記の値を用います。
-% これらのファミリ名は、和文でないこと、欧文でないことがはっきりしています。
-%    \begin{macrocode}
-\let\notkfam@list\ffam@list
-\let\notffam@list\kfam@list
-%    \end{macrocode}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-%
-%
-% \subsubsection{支柱}
-% 行間の調整などに用いる支柱です。
-% 支柱のもととなるボックスの大きさは、フォントサイズが変更されるたびに、
-% |\set@fontsize|コマンドによって変化します。
-%
-% フォントサイズが変更されたときに、|\set@fontsize|コマンドで更新されます。
-%
-% 従来、横組ボックス用の支柱は|\strutbox|で、高さと深さが7対3となっていました。
-% これはp\LaTeX{}単体では問題になりませんでしたが、海外製の\LaTeX{}パッケージを
-% 縦組で使用した場合に、意図しない幅や高さが取得されることがありました。
-% この不都合を回避するため、コミュニティ版p\LaTeX{}では次の方法をとります。
-% \begin{itemize}
-% \item |\ystrutbox|（新設）：高さと深さが7対3の横組ボックス用の支柱
-% \item |\tstrutbox|：高さと深さが5対5の縦組ボックス用の支柱
-% \item |\zstrutbox|：高さと深さが7対3の縦組ボックス用の支柱
-% \item |\strutbox|（仕様変更）：縦横のディレクションに応じて
-%                     |\tstrutbox|または|\ystrutbox|に展開されるマクロ
-% \end{itemize}
-% すなわち、従来のp\LaTeX{}における|\strutbox|と同じ挙動を示すのが、
-% 新設された|\ystrutbox|ということになります。
-%
-% \begin{macro}{\tstrutbox}
-% \begin{macro}{\zstrutbox}
-% |\tstrutbox|は高さと深さが5対5、
-% |\zstrutbox|は高さと深さが7対3の支柱ボックスとなります。
-% これらは縦組ボックスの行間の調整などに使います。
-%    \begin{macrocode}
-\newbox\tstrutbox
-\newbox\zstrutbox
-%    \end{macrocode}
-% \end{macro}
-% \end{macro}
-%
-% \begin{macro}{\ystrutbox}
-% |\ystrutbox|は高さと深さが7対3の横組ボックス用の支柱です。
-% \changes{v1.6f}{2017/02/20}{\cs{ystrutbox}を追加}
-%    \begin{macrocode}
-%</plcore>
-%<platexrelease>\plIncludeInRelease{2017/04/08}{\ystrutbox}
-%<platexrelease>                   {Add \ystrutbox}%
-%<*plcore|platexrelease>
-\newbox\ystrutbox
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\ystrutbox}
-%<platexrelease>                   {Add \ystrutbox}%
-%<platexrelease>\let\ystrutbox\@undefined
-%<platexrelease>\plEndIncludeInRelease
-%    \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\strutbox}
-% |\strutbox|は縦横両対応です。
-% \changes{v1.6f}{2017/02/20}{\cs{strutbox}を縦横両対応に}
-%    \begin{macrocode}
-%<platexrelease>\plIncludeInRelease{2017/04/08}{\strutbox}
-%<platexrelease>                   {Add \strutbox}%
-%<*plcore|platexrelease>
-\def\strutbox{\iftdir\tstrutbox\else\ystrutbox\fi}
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\strutbox}
-%<platexrelease>                   {Add \strutbox}%
-%<platexrelease>\newbox\strutbox % emulation purpose only
-%<platexrelease>\plEndIncludeInRelease
-%    \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\strut}
-% ディレクションに応じて|\ystrutbox|と|\tstrutbox|を使い分けます。
-% ^^A |\strutbox|は|\yoko|ディレクションで組まれていますので、
-% ^^A 縦組ボックス内で|\unhcopy|をするとエラーとなります。
-% 元々このマクロは\file{ltplain.dtx}で定義されています。
-%
-% \changes{v1.1c}{1995/08/24}{``\cs{centerling}~\cs{strut}''の幅がゼロに
-% なってしまうのを修正}
-% \changes{v1.3h}{1999/08/09}{縦組のとき、幅のあるボックスになってしまう
-% のを修正}
-% \changes{v1.6f}{2017/02/20}{\cs{strutbox}の代わりに\cs{ystrutbox}を使用}
-%    \begin{macrocode}
-%<platexrelease>\plIncludeInRelease{2017/04/08}{\strut}
-%<platexrelease>                   {Use \ystrutbox}%
-%<*plcore|platexrelease>
-\def\strut{\relax
-  \ifydir
-    \ifmmode\copy\ystrutbox\else\unhcopy\ystrutbox\fi
-  \else
-    \ifmmode\copy\tstrutbox\else\unhcopy\tstrutbox\fi
-  \fi}
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\strut}
-%<platexrelease>                   {Use \ystrutbox}%
-%<platexrelease>\def\strut{\relax
-%<platexrelease>  \ifydir
-%<platexrelease>    \ifmmode\copy\strutbox\else\unhcopy\strutbox\fi
-%<platexrelease>  \else
-%<platexrelease>    \ifmmode\copy\tstrutbox\else\unhcopy\tstrutbox\fi
-%<platexrelease>  \fi}
-%<platexrelease>\plEndIncludeInRelease
-%<*plcore>
-%    \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\tstrut}
-% \begin{macro}{\zstrut}
-%    \begin{macrocode}
-\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}
-%
-% \begin{macro}{\ystrut}
-% \changes{v1.6f}{2017/02/20}{\cs{ystrut}を追加}
-%    \begin{macrocode}
-%</plcore>
-%<platexrelease>\plIncludeInRelease{2017/04/08}{\ystrut}
-%<platexrelease>                   {Add \ystrut}%
-%<*plcore|platexrelease>
-\def\ystrut{\relax\hbox{\yoko
-    \ifmmode\copy\ystrutbox\else\unhcopy\ystrutbox\fi}}
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\ystrut}
-%<platexrelease>                   {Add \ystrut}%
-%<platexrelease>\let\ystrut\@undefined
-%<platexrelease>\plEndIncludeInRelease
-%<*plcore>
-%    \end{macrocode}
-% \end{macro}
-%
-%
-%
-% \subsection{コマンド}
-% 次のコマンドの定義をしています。
-%
-% \DeleteShortVerb{\|}
-% \MakeShortVerb{\+}
-% \begin{center}
-% \begin{tabular}{l|l}
-% \emph{コマンド} & \emph{意味}\\\hline
-% +\Declare{Font|YokoKanji|TateKanji}Encoding+ & エンコードの宣言\\
-% +\Declare{Yoko|Tate}KanjiEncodingDefaults+ &
-%        デフォルトの和文エンコードの宣言\\
-% +\Declare{Font|Kanji}Family+ & ファミリの宣言\\
-% +\DeclareKanjiSubstitution+ & 和文の代用フォントの宣言\\
-% +\DeclareErrorKanjiFont+ & 和文のエラーフォントの宣言 \\
-% +\DeclareFixedFont+ & フォントの名前の宣言 \\
-% +\reDeclareMathAlphabet+ & 和欧文を同時に切り替えるコマンド宣言\\
-% +\{Declare|Set}RelationFont+ & 従属書体の宣言\\
-% +\userelfont+ & 欧文書体を従属書体にする\\
-% +\selectfont+ & フォントを切り替える\\
-% +\set@fontsize+ & フォントサイズの変更\\
-% +\adjustbaseline+ & ベースラインシフト量の設定\\
-% +\{font|roman|kanji}encoding+ & エンコードの指定\\
-% +\{font|roman|kanji}family+ & ファミリの指定\\
-% +\{font|roman|kanji}series+ & シリーズの指定\\
-% +\{font|roman|kanji}shape+ & シェイプの指定\\
-% +\use{font|roman|kanji}+ & 書体の切り替え\\
-% +\normalfont+ & デフォルト値の設定に切り替える\\
-% +\mcfamily+,+\gtfamily+ & 和文書体を明朝体、ゴシック体にする\\
-% +\textunderscore+ & テキストモードでの下線マクロ\\
-% \end{tabular}
-% \end{center}
-% \DeleteShortVerb{\+}
-% \MakeShortVerb{\|}
-%
-%
-% \begin{macro}{\DeclareFontEncoding}
-% \begin{macro}{\DeclareFontEncoding@}
-% 欧文エンコードを宣言するためのコマンドです。
-% \file{ltfssbas.dtx}で定義されているものを、
-% |\fenc@list|を作るように再定義をしています。
-% \changes{v1.3p}{2006/01/04}{\break\cs{DeclareFontEncoding@}中で
-%    \cs{LastDeclaredEncodeng}の再定義が抜けていたので追加}
-%    \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@}
-% 和文エンコードの宣言をするコマンドです。
-% \changes{v1.3c}{1997/04/08}{和文エンコード宣言コマンドを縦組用と横組用で
-%     分けるようにした。}
-%    \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}
-% 和文エンコードのデフォルト値を宣言するコマンドです。
-%    \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}{\KanjiEncodingPair}
-% 和文の縦横のエンコーディングはそれぞれ対にして扱うため、セット化するための
-% コマンドを定義します。
-% \changes{v1.3n}{2004/08/10}{和文エンコーディングの切り替えを有効化}
-%    \begin{macrocode}
-\def\KanjiEncodingPair#1#2{\@namedef{t@enc@#1}{#2}\@namedef{y@enc@#2}{#1}}
-%    \end{macrocode}
-% \end{macro}
-%
-%
-% \begin{macro}{\DeclareFontFamily}
-% 欧文ファミリを宣言するためのコマンドです。
-% |\ffam@list|を作るように再定義をします。
-%    \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}
-% 和文ファミリを宣言するためのコマンドです。
-%    \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}
-% 目的の和文フォントが見つからなかったときに使うフォントの宣言をする
-% コマンドです。
-% それぞれ、|\DeclareFontSubstitution|と|\DeclareErrorFont|に対応します。
-%    \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}
-% フォント名を宣言するコマンドです。
-%
-% \changes{v1.2}{1995/11/09}{\break\cs{DeclareFixedFont}の日本語化}
-% \changes{v1.3c}{1997/04/09}{縦横エンコード・リストの分離による拡張}
-% \changes{v1.3f}{1998/08/10}{プリアンブル・コマンドにしてしまっていたのを解除}
-%    \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}を追加。
-%    ありがとう、ymtさん。}
-% \changes{v1.4}{2006/06/27}{\break\cs{reDeclareMathAlphabet}を修正。
-%    ありがとう、ymtさん。}
-% \changes{v1.5}{2006/11/10}{\break\cs{reDeclareMathAlphabet}を修正。
-%    ありがとう、ymtさん。}
-% 数式モード内で、数式文字用の和欧文フォントを同時に切り替えるコマンドです。
-%
-% p\LaTeXe{}には、本来の動作モードと2.09互換モードの二つがあり、
-% 両モードで数式文字を変更するコマンドや動作が異なります。
-% 本来の動作モードでは、|\mathrm{...}|のように|\math??|に引数を指定して
-% 使います。このときは引数にだけ影響します。2.09互換モードでは、|\rm|の
-% ような二文字コマンドを使います。このコマンドには引数を取らず、書体は
-% グルーピングの範囲で反映されます。二文字コマンドは、ネイティブモード
-% でも使えるようになっていて、動作も2.09互換モードのコマンドと同じです。
-%
-% しかし、内部的には|\math??|という一つのコマンドがすべての動作を受け持ち、
-% |\math??|コマンドや|\??|コマンドから呼び出された状態に応じて、動作を変え
-% ています。したがって、欧文フォントと和文フォントの両方を一度に変更する、
-% 数式文字変更コマンドを作るとき、それぞれの状態に合った動作で動くように
-% フォント切り替えコマンドを実行させる必要があります。
-%
-%   \textbf{使い方}
-%\begin{verbatim}
-% usage: \reDeclareMathAlphabet{\mathAA}{\mathBB}{\mathCC}
-%\end{verbatim}
-%   欧文・和文両用の数式文字変更コマンド |\mathAA| を(再)定義します。
-%   欧文用のコマンド |\mathBB| と、和文用の |\mathCC| を (p)\LaTeX{} 標準の
-%   方法で定義しておいた後、上のように記述します。なお、|{\mathBB}{\mathCC}|
-%   の部分については |{\@mathBB}{\@mathCC}| のように @ をつけた記述
-%   をしてもかまいません(互換性のため)。上のような命令を発行すると、
-%   |\mathAA| が、欧文に対しては |\mathBB|、 和文に対しては |\mathCC| の意味を
-%   持つようになります。
-%   通常は、|\reDeclareMathAlphabet{\mathrm}{\mathrm}{\mathmc}| のように
-%   |AA=BB| として用います。また、|\mathrm| は \LaTeX{} kernel において
-%   標準のコマンドとして既に定義されているので、この場合は |\mathrm| の
-%   再定義となります。native mode での |\rm| のような two letter command
-%   (old font command) に対しても同様なことが引きおこります。つまり、
-%   数式モードにおいて、新たな |\rm| は、\LaTeX{} original の |\rm| と |\mc|
-%   (正確に言えば |\mathrm| と |\mathmc| であるが)の意味を合わせ持つように
-%   なります。
-%
-%   \textbf{補足}
-% \begin{itemize}
-% \item
-%   |\mathAA| を再定義する他の命令(|\DeclareSymbolFontAlphabet| を用いる
-%     パッケージの使用等)との衝突を避けるためには、|\AtBeginDocument| を併用
-%     するなどして展開位置の制御を行ってください。
-% \item
-%   テキストモード時のエラー表示用に |\mathBB| のみを用いることを除いて、
-%     |\mathBB| と |\mathCC| の順は実際には意味を持ちません。和文、欧文の順に
-%     定義しても問題はありません。
-% \item
-%   第2,3引き数には |{\@mathBB}{\@mathCC}| のように |@| をつけた記述も
-%     行えます。ただし、形式は統一してください。判断は第2引き数で行って
-%     いるため、 |{\@mathBB}{\mathCC}| のような記述ではうまく動作しません。
-%     また、|\makeatletter| な状態で |{\@mathBB }{\@mathCC  }| のような |@| と
-%     余分なスペースをつけた場合には無限ループを引き起こすことがあります。
-%     このような記述は避けるようにして下さい。
-% \item
-%   |\reDeclareMathAlphabet| を実行する際には、|\mathBB|, |\mathCC| が定義
-%     されている必要はありません。実際に |\mathAA| を用いる際にはこれらの
-%     |\mathBB|, |\mathCC| が (p)\LaTeX{}標準の方法で定義されている必要があります。
-% \item
-%   他の部分で |\mathAA| を全く定義しない場合を除き、|\mathAA| は
-%     |\reDeclareMathAlphabet| を実行する以前で (p)\LaTeX{}標準の方法で定義され
-%     ている必要があります(|\mathrm| や |\mathbf| の標準的なコマンドは、
-%     \LaTeX{} kernel で既に定義されています)。
-%     |\DeclareMathAlphabet| の場合には、|\reDeclareMathAlphabet| よりも前で1度
-%     |\mathAA| を定義してあれば、|\reDeclareMathAlphabet| の後ろで再度
-%     |\DeclareMathAlphabet| を用いて |\mathAA| の内部の定義内容を変更すること
-%     には問題ありません。
-%     |\DeclareSymbolFontAlphabet| の場合、再定義においても |\mathAA| が直接
-%     定義されるので、|\mathAA| に対する最後の |\DeclareSymbolFontAlphabet| の
-%     さらに後で |\reDeclareMathAlphabet| を実行しなければ有効とはなりません。
-% \item
-%   |\documentstyle| の互換モードの場合、|\rm| 等の two letter command
-%     (old font command) は、|\reDeclareMathAlphabet| とは関連することのない
-%     別個のコマンドとして定義されます。従って、この場合には
-%     |\reDeclareMathAlphabet| を用いても |\rm| 等は数式モードにおいて
-%     欧文・和文両用のものとはなりません。
-% \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}
-% 和文書体に対する従属書体を宣言するコマンドです。\emph{従属書体}とは、
-% ある和文書体とペアになる欧文書体のことです。
-% 主に多書体パッケージ|skfonts|を用いるための仕組みです。
-%
-% |\DeclareRelationFont|コマンドの最初の4つの引数の組が和文書体の属性、
-% その後の4つの引数の組が従属書体の属性です。
-%\begin{verbatim}
-%    \DeclareRelationFont{JY2}{mc}{m}{n}{T1}{cmr}{m}{n}
-%    \DeclareRelationFont{JY2}{gt}{m}{n}{T1}{cmr}{bx}{n}
-%\end{verbatim}
-% 上記の例は、明朝体の従属書体としてコンピュータモダンローマン、
-% ゴシック体の従属書体としてコンピュータモダンボールドを宣言しています。
-% カレント和文書体が|\JY2/mc/m/n|となると、
-% 自動的に欧文書体が|\T1/cmr/m/n|になります。
-% また、和文書体が|\JY2/gt/m/n|になったときは、
-% 欧文書体が|\T1/cmr/bx/n|になります。
-%
-% 和文書体のシェイプ指定を省略するとエンコード／ファミリ／シリーズの組合せで
-% 従属書体が使われます。このときは、|\selectfont|が呼び出された時点での
-% シェイプ（|\f@shape|）の値が使われます。
-%
-% |\DeclareRelationFont|の設定値はグローバルに有効です。
-% |\SetRelationFont|の設定値はローカルに有効です。
-% フォント定義ファイルで宣言をする場合は、
-% |\DeclareRelationFont|を使ってください。
-%    \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|は欧文書体を従属書体にするかどうかのフラグです。
-% このフラグが真になると、欧文書体に従属書体が使われます。
-% このフラグは|\userelfont|コマンドによって、\emph{真}となります。
-% そして|\selectfont|実行後には\emph{偽}に初期化されます。
-%    \begin{macrocode}
-\newif\if@knjcmd
-\def\userelfont{\@knjcmdtrue}
-%    \end{macrocode}
-% \end{macro}
-% \end{macro}
-%
-% \begin{macro}{\selectfont}
-% |\selectfont|のオリジナルからの変更部分は、次の３点です。
-% \begin{itemize}
-% \item 和文書体を変更する部分
-% \item 従属書体に変更する部分
-% \item 和欧文のベースラインを調整する部分
-% \end{itemize}
-%
-% \changes{v1.0c}{1995/08/22}{縦横両方のフォントを切り替えるようにした}
-% \changes{v1.2}{1995/11/22}{エラーフォントに対応した}
-% \changes{v1.3n}{2004/08/10}{和文エンコーディングの切り替えを有効化}
-% |\selectfont|コマンドは、まず、和文フォントを切り替えます。
-%    \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}
-% 次に、|\if@knjcmd|が真の場合、
-% 欧文書体を現在の和文書体に関連付けされたフォントに変えます。
-% このフラグは|\userelfont|コマンドによって\emph{真}となります。
-% このフラグはここで再び、\emph{偽}に設定されます。
-%    \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}
-% そして、欧文フォントを切り替えます。
-%    \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}
-% 最後に、サイズが変更されていれば、ベースラインの調整などを行ないます。
-% 英語版の|\selectfont|では最初に行なっていますが、
-% p\LaTeXe{}ではベースラインシフトの調整をするために、
-% 書体を確定しなければならないため、一番最後に行ないます
-%
-% \changes{v1.1b}{1995/04/26}{ベースラインの調整をサイズ変更時に
-%       行なうようにした}
-%    \begin{macrocode}
-  \ifx\f@linespread\baselinestretch \else
-    \set@fontsize\baselinestretch\f@size\f@baselineskip
-  \fi
-  \size@update}
-%</plcore|trace>
-%<*plcore>
-%    \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}{\set@fontsize}
-% |\fontsize|コマンドの内部形式です。
-% ベースラインの設定と、支柱の設定を行ないます。
-%    \begin{macrocode}
-%</plcore>
-%<platexrelease|trace>\plIncludeInRelease{2017/04/08}{\set@fontsize}
-%<platexrelease|trace>                   {Construct \ystrutbox}%
-%<*plcore|platexrelease|trace>
-\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}
-% ここで、ベースラインシフトの調整と支柱を組み立てます。
-% \changes{v1.6f}{2017/02/20}{\cs{ystrutbox}を組み立てるように}
-%    \begin{macrocode}
-      \adjustbaseline
-      \setbox\ystrutbox\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}
-% フォントサイズとベースラインに関する診断情報を出力します。
-%    \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}}
-%</plcore|platexrelease|trace>
-%<platexrelease|trace>\plEndIncludeInRelease
-%<platexrelease|trace>\plIncludeInRelease{0000/00/00}{\set@fontsize}
-%<platexrelease|trace>                   {Construct \ystrutbox}%
-%<platexrelease|trace>\def\set@fontsize#1#2#3{%
-%<platexrelease|trace>    \@defaultunits\@tempdimb#2pt\relax\@nnil
-%<platexrelease|trace>    \edef\f@size{\strip@pt\@tempdimb}%
-%<platexrelease|trace>    \@defaultunits\@tempskipa#3pt\relax\@nnil
-%<platexrelease|trace>    \edef\f@baselineskip{\the\@tempskipa}%
-%<platexrelease|trace>    \edef\f@linespread{#1}%
-%<platexrelease|trace>    \let\baselinestretch\f@linespread
-%<platexrelease|trace>    \def\size@update{%
-%<platexrelease|trace>      \baselineskip\f@baselineskip\relax
-%<platexrelease|trace>      \baselineskip\f@linespread\baselineskip
-%<platexrelease|trace>      \normalbaselineskip\baselineskip
-%<platexrelease|trace>      \adjustbaseline
-%<platexrelease|trace>      \setbox\strutbox\hbox{\yoko
-%<platexrelease|trace>          \vrule\@width\z@
-%<platexrelease|trace>                \@height.7\baselineskip \@depth.3\baselineskip}%
-%<platexrelease|trace>      \setbox\tstrutbox\hbox{\tate
-%<platexrelease|trace>          \vrule\@width\z@
-%<platexrelease|trace>                \@height.5\baselineskip \@depth.5\baselineskip}%
-%<platexrelease|trace>      \setbox\zstrutbox\hbox{\tate
-%<platexrelease|trace>          \vrule\@width\z@
-%<platexrelease|trace>                \@height.7\baselineskip \@depth.3\baselineskip}%
-%<*trace>
-%<platexrelease|trace>    \ifnum \tracingfonts>\tw@
-%<platexrelease|trace>      \ifx\f@linespread\@empty
-%<platexrelease|trace>        \let\reserved@a\@empty
-%<platexrelease|trace>      \else
-%<platexrelease|trace>        \def\reserved@a{\f@linespread x}%
-%<platexrelease|trace>      \fi
-%<platexrelease|trace>      \@font@info{Changing size to\space
-%<platexrelease|trace>            \f@size/\reserved@a \f@baselineskip}%
-%<platexrelease|trace>      \aftergroup\type@restoreinfo
-%<platexrelease|trace>    \fi
-%</trace>
-%<platexrelease|trace>        \let\size@update\relax}}
-%<platexrelease|trace>\plEndIncludeInRelease
-%<*plcore>
-%    \end{macrocode}
-% \end{macro}
-%
-%
-% \begin{macro}{\adjustbaseline}
-% 現在の和文フォントの空白（EUCコード\texttt{0xA1A1}）の中央に
-% 現在の欧文フォントの``/''の中央がくるようにベースラインシフトを設定します。
-% \changes{v1.0c}{1995/08/31}{欧文書体の基準を`M'から`/'に変更}
-% \changes{v1.2}{1995/11/21}{縦組時のみ調整するようにした}
-%
-% 当初はまずベースラインシフト量をゼロにしていましたが、
-% \cs{tbaselineshift}を連続して変更した後に鈎括弧類を使うと余計なアキが
-% でる問題が起こるため、\cs{tbaselineshift}をゼロクリアする処理を削除し
-% ました。
-% \changes{v1.3j}{2000/10/24}{文頭に鈎括弧などがあるときに余計なアキがで
-%    る問題に対処}
-%
-% しかし、それではベースラインシフトを調整済みの欧文ボックスと比較して
-% しまうため、計算した値が大きくなってしまいます。そこで、このボックス
-% の中でゼロにするようにしました。また、``/''と比較していたのを``M''に 
-% しました。
-% \changes{v1.3k}{2001/05/10}{欧文書体の基準を再び`/`から`M'に変更}
-% \changes{v1.3l}{2002/04/05}{\cs{adjustbaseline}でフォントの基準値が縦書き
-%    以外では設定されないのを修正}
-%
-% 全角空白（EUCコード\texttt{0xA1A1}）はJFMで特殊なタイプに分類される可能性
-% があるため、和文書体の基準を「漢」（JISコード\texttt{0x3441}）へ変更しました。
-% \changes{v1.6h}{2017/08/05}{和文書体の基準を全角空白から「漢」に変更}
-%
-%    \begin{macrocode}
-\newbox\adjust@box
-\newdimen\adjust@dimen
-%    \end{macrocode}
-%
-%    \begin{macrocode}
-%</plcore>
-%<platexrelease|trace>\plIncludeInRelease{2017/07/29}{\adjustbaseline}
-%<platexrelease|trace>                   {Change zenkaku reference}%
-%<*plcore|platexrelease|trace>
-\def\adjustbaseline{%
-%    \end{macrocode}
-% 和文フォントの基準値を設定します。
-%    \begin{macrocode}
-    \setbox\adjust@box\hbox{\char\jis"3441}%"
-    \cht\ht\adjust@box
-    \cdp\dp\adjust@box
-    \cwd\wd\adjust@box
-    \cvs\normalbaselineskip
-    \chs\cwd
-    \cHT\cht \advance\cHT\cdp
-%    \end{macrocode}
-% 基準となる欧文フォントの文字を含んだボックスを作成し、
-% ベースラインシフト量の計算を行ないます。
-% 計算式は次のとおりです。
-%
-% \begin{eqnarray*}
-% \textmc{ベースラインシフト量} &=&
-%   \{ (\textmc{漢の深さ}) - (\textmc{Mの深さ}) \} \\
-%       &&- \frac{(\textmc{漢の高さ$+$深さ})
-%              - (\textmc{Mの高さ$+$深さ})}{2}
-% \end{eqnarray*}
-% \changes{v1.6h}{2017/08/05}{traceのコードの\texttt{\%}忘れを修正}
-%
-%    \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|platexrelease|trace>
-%<platexrelease|trace>\plEndIncludeInRelease
-%<platexrelease|trace>\plIncludeInRelease{0000/00/00}{\adjustbaseline}
-%<platexrelease|trace>                   {Change zenkaku reference}%
-%<platexrelease|trace>\def\adjustbaseline{%
-%<platexrelease|trace>    \setbox\adjust@box\hbox{\char\euc"A1A1}%"
-%<platexrelease|trace>    \cht\ht\adjust@box
-%<platexrelease|trace>    \cdp\dp\adjust@box
-%<platexrelease|trace>    \cwd\wd\adjust@box
-%<platexrelease|trace>    \cvs\normalbaselineskip
-%<platexrelease|trace>    \chs\cwd
-%<platexrelease|trace>    \cHT\cht \advance\cHT\cdp
-%<platexrelease|trace>  \iftdir
-%<platexrelease|trace>    \setbox\adjust@box\hbox{\tbaselineshift\z@ M}%
-%<platexrelease|trace>    \adjust@dimen\ht\adjust@box
-%<platexrelease|trace>    \advance\adjust@dimen\dp\adjust@box
-%<platexrelease|trace>    \advance\adjust@dimen-\cHT
-%<platexrelease|trace>    \divide\adjust@dimen\tw@
-%<platexrelease|trace>    \advance\adjust@dimen\cdp
-%<platexrelease|trace>    \advance\adjust@dimen-\dp\adjust@box
-%<platexrelease|trace>    \tbaselineshift\adjust@dimen
-%<*trace>
-%<platexrelease|trace>    \ifnum \tracingfonts>\tw@
-%<platexrelease|trace>      \typeout{baselineshift:\the\tbaselineshift}
-%<platexrelease|trace>    \fi
-%</trace>
-%<platexrelease|trace>  \fi}
-%<platexrelease|trace>\plEndIncludeInRelease
-%<*plcore>
-%    \end{macrocode}
-% \end{macro}
-%
-%
-% \begin{macro}{\romanencoding}
-% \begin{macro}{\kanjiencoding}
-% \begin{macro}{\fontencoding}
-% 書体のエンコードを指定するコマンドです。
-% |\fontencoding|コマンドは和欧文のどちらかに影響します。
-% |\DeclareKanjiEncoding|で指定されたエンコードは和文エンコードとして、
-% |\DeclareFontEncoding|で指定されたエンコードは欧文エンコードとして
-% 認識されます。
-%
-% |\kanjiencoding|と|\romanencoding|は与えられた引数が、
-% エンコードとして登録されているかどうかだけを確認し、
-% それが和文か欧文かのチェックは行なっていません。
-% そのため、高速に動作をしますが、|\kanjiencoding|に欧文エンコードを指定したり、
-% 逆に|\romanencoding|に和文エンコードを指定した場合はエラーとなります。
-%    \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|コマンドのコードからもわかるように、
-% |\ck@encoding|と|\k@encoding|が異なる場合、
-% |\kenc@update|コマンドは|\@@kenc@update|コマンドと等しくなります。
-%
-% |\@@kenc@update|コマンドは、そのエンコードでのデフォルト値を設定するための
-% コマンドです。欧文用の|\@@enc@update|コマンドでは、
-% \mlineplus{2}行目と\mlineplus{3}行目のような代入もしていますが、
-% 和文用にはコメントにしてあります。
-% これらは|\DeclareTextCommand|や|\ProvideTextCommand|などで
-% エンコードごとに設定されるコマンドを使うための仕組みです。
-% しかし、和文エンコードに依存するようなコマンドやマクロを作成することは、
-% 現時点では、ないと思います。
-%
-% \changes{v1.0c}{1995/08/22}{縦横用エンコードの保存}
-%    \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}
-% \end{macro}
-%
-% \begin{macro}{\@changed@kcmd}
-% |\@changed@cmd|の和文エンコーディングバージョン。
-% \changes{v1.3n}{2004/08/10}{和文エンコーディングの切り替えを有効化}
-%    \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|コマンド内で使用するフラグです。
-% |@notkfam|フラグは和文ファミリでなかったことを、
-% |@notffam|フラグは欧文ファミリでなかったことを示します。
-%
-% \changes{v1.2}{1995/11/21}{\cs{fontfamily}コマンド用のフラグ追加}
-%    \begin{macrocode}
-\newif\if@notkfam
-\newif\if@notffam
-%    \end{macrocode}
-% \changes{v1.3m}{2004/06/14}{\cs{fontfamily}コマンド内部フラグ変更}
-%    \begin{macrocode}
-\newif\if@tempswz
-%    \end{macrocode}
-% \end{macro}
-% \end{macro}
-%
-%
-% \begin{macro}{\romanfamily}
-% \begin{macro}{\kanjifamily}
-% \begin{macro}{\fontfamily}
-% 書体のファミリを指定するコマンドです。
-%
-% |\kanjifamily|と|\romanfamily|は与えられた引数が、
-% 和文あるいは欧文のファミリとして正しいかのチェックは行なっていません。
-% そのため、高速に動作をしますが、|\kanjifamily|に欧文ファミリを指定したり、
-% 逆に|\romanfamily|に和文ファミリを指定した場合は、エラーとなり、
-% 代用フォントかエラーフォントが使われます。
-%    \begin{macrocode}
-\DeclareRobustCommand\romanfamily[1]{\edef\f@family{#1}}
-\DeclareRobustCommand\kanjifamily[1]{\edef\k@family{#1}}
-%    \end{macrocode}
-%
-% |\fontfamily|は、指定された値によって、和文ファミリか欧文ファミリ、
-% \emph{あるいは両方}のファミリを切り替えます。
-% 和欧文ともに無効なファミリ名が指定された場合は、和欧文ともに代替書体が
-% 使用されます。
-%
-% 引数が|\rmfamily|のような名前で与えられる可能性があるため、
-% まず、これを展開したものを作ります。
-%
-% また、和文ファミリと欧文ファミリのそれぞれになかったことを示すフラグを
-% 偽にセットします。
-%
-% \changes{v1.2}{1995/11/21}{代用フォントが使われないバグを修正}
-% \changes{v1.3m}{2004/06/14}{\cs{fontfamily}コマンド内部フラグ変更}
-% \changes{v1.3o}{2005/01/04}{\cs{fontfamily}中のフラグ修正}
-%    \begin{macrocode}
-\DeclareRobustCommand\fontfamily[1]{%
-  \edef\tmp@item{{#1}}%
-  \@notkfamfalse
-  \@notffamfalse
-%    \end{macrocode}
-% 次に、この引数が|\kfam@list|に登録されているかどうかを調べます。
-% 登録されていれば、|\k@family|にその値を入れます。
-%    \begin{macrocode}
-  \expandafter\expandafter\expandafter
-  \inlist@\expandafter\tmp@item\expandafter{\kfam@list}%
-  \ifin@ \edef\k@family{#1}%
-%    \end{macrocode}
-% そうでないときは、|\notkfam@list|に登録されているかどうかを調べます。
-% 登録されていれば、この引数は和文ファミリではありませんので、
-% |\@notkfam|フラグを真にして、欧文ファミリのルーチンに移ります。
-%
-% このとき、|\efam@list|を調べるのではないことに注意をしてください。
-% |\efam@list|を調べ、これにないファミリを和文ファミリであるとすると、
-% たとえば、欧文ナールファミリが定義されているけれども、和文ナールファミリ
-% が未定義の場合、|\fontfamily{nar}|という指定は、|nar|が|\efam@list|にだけ、
-% 登録されているため、和文書体をナールにすることができません。
-%
-% 逆に、|\kfam@list|に登録されていないからといって、|\k@family|に|nar|を設定
-% すると、|cmr|のようなファミリも|\k@family|に設定される可能性があります。
-% したがって、「欧文でない」を明示的に示す|\notkfam@list|を見る必要があります。
-%    \begin{macrocode}
-  \else
-    \expandafter\expandafter\expandafter
-    \inlist@\expandafter\tmp@item\expandafter{\notkfam@list}%
-    \ifin@ \@notkfamtrue
-%    \end{macrocode}
-% |\notkfam@list|に登録されていない場合は、
-% フォント定義ファイルが存在するかどうかを調べます。
-% ファイルが存在する場合は、|\k@family|を変更します。
-% ファイルが存在しない場合は、|\notkfam@list|に登録します。
-%
-% |\kenc@list|に登録されているエンコードと、指定された和文ファミリの
-% 組合せのフォント定義ファイルが存在する場合は、|\k@family|に指定された
-% 値を入れます。
-% \changes{v1.3c}{1997/04/24}%
-%    {フォント定義ファイル名を小文字に変換してから探すようにした。}
-% \changes{v1.3e}{1997/07/10}{fdファイル名の小文字化が効いていなかったのを
-%    修正。ありがとう、大岩さん}
-%    \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}
-% つぎの部分が実行されるのは、和文ファミリとして認識できなかった場合です。
-% この場合は、|\@notkfam|フラグを真にして、|\notkfam@list|に登録します。
-% \changes{v1.1b}{1995/05/10}{\cs{notkfam@list}に、
-%   エンコードごとに登録されてしまうのを修正した。欧文についても同様。}
-%    \begin{macrocode}
-      \else
-        \@notkfamtrue
-        \xdef\notkfam@list{\notkfam@list\fam@elt<#1>}%
-      \fi
-%    \end{macrocode}
-% |\kfam@list|と|\notkfam@list|に登録されているかどうかを
-% 調べた|\ifin@|を閉じます。
-%    \begin{macrocode}
-  \fi\fi
-%    \end{macrocode}
-% 欧文ファミリの場合も、和文ファミリと同様の方法で確認をします。
-% \changes{v1.3e}{1997/07/10}{fdファイル名の小文字化が効いていなかったのを修正}
-%    \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}
-% 最後に、指定された文字列が、和文ファミリと欧文ファミリのいずれか、
-% あるいは両方として認識されたかどうかを確認します。
-%
-% どちらとも認識されていない場合は、ファミリの指定ミスですので、
-% 代用フォントを使うために、故意に指定された文字列をファミリに
-% 入れます。
-%    \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}
-% 書体のシリーズを指定するコマンドです。
-% |\fontseries|コマンドは和欧文の両方に影響します。
-%    \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}
-% 書体のシェイプを指定するコマンドです。
-% |\fontshape|コマンドは和欧文の両方に影響します。
-%    \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}
-% 書体属性を一度に指定するコマンドです。
-% 和文書体には|\usekanji|を、欧文書体には|\useroman|を指定してください。
-%
-% |\usefont|コマンドは、第一引数で指定されるエンコードによって、
-% 和文または欧文フォントを切り替えます。
-%    \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}
-% 書体をデフォルト値にするコマンドです。
-% 和文書体もデフォルト値になるように再定義しています。
-% ただし高速化のため、|\usekanji|と|\useroman|を展開し、
-% |\selectfont|を一度しか呼び出さないようにしています。
-%    \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}
-% 和文書体を明朝体にする|\mcfamily|とゴシック体にする|\gtfamily|を定義します。
-% これらは、|\rmfamily|などに対応します。
-% |\mathmc|と|\mathgt|は数式内で用いるときのコマンド名です。
-%    \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}
-% 文書の先頭で、和文デフォルトフォントの変更が反映されないのを修正します。
-% \changes{v1.3g}{1999/04/05}{plpatch.ltxの内容を反映。
-%    ありがとう、山本さん。}
-%    \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}{下線マクロを追加}
-% このコマンドはテキストモードで指定された|\_|の内部コマンドです。
-% 縦組での位置を調整するように再定義をします。
-% もとは\file{ltoutenc.dtx}で定義されています。
-%
-% なお、|\_|を数式モードで使うと|\mathunderscore|が実行されます。
-%
-% コミュニティ版では縦数式ディレクションでベースライン補正量が
-% 変だったのを直しました。あわせて横ディレクションでもベースライン
-% 補正に追随するようにしています。
-% \changes{v1.6g}{2017/03/07}{ベースライン補正量を修正}
-%    \begin{macrocode}
-%</plcore>
-%<platexrelease>\plIncludeInRelease{2017/04/08}{\textunderscore}
-%<platexrelease>                   {Baseline shift for \textunderscore}%
-%<*plcore|platexrelease>
-\DeclareTextCommandDefault{\textunderscore}{%
-  \leavevmode\kern.06em
-  \raise-\iftdir\ifmdir\ybaselineshift
-         \else\tbaselineshift\fi
-         \else\ybaselineshift\fi
-  \vbox{\hrule\@width.3em}}
-%</plcore|platexrelease>
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\textunderscore}
-%<platexrelease>                   {Baseline shift for \textunderscore}%
-%<platexrelease>\DeclareTextCommandDefault{\textunderscore}{%
-%<platexrelease>  \leavevmode\kern.06em
-%<platexrelease>  \iftdir\raise-\tbaselineshift\fi
-%<platexrelease>  \vbox{\hrule\@width.3em}}
-%<platexrelease>\plEndIncludeInRelease
-%    \end{macrocode}
-% \end{macro}
-%
-%
-% \subsection{合成文字}
-% \LaTeXe{}のカーネルのコードをそのまま使うと、p\TeX{}のベースライン
-% 補正量がゼロでないときに合成文字がおかしくなっていたため、対策します。
-%
-% \begin{macro}{\g@tlastchart@}
-% \TeX\ Live 2015で追加された\cs{lastnodechar}を利用して、
-% 「直前の文字」の符号位置を得るコードです。\cs{lastnodechar}が未定義の場合は
-% $-1$が返ります。
-% \changes{v1.6c}{2016/06/06}{マクロ追加}
-%    \begin{macrocode}
-%<platexrelease>\plIncludeInRelease{2016/06/10}{\g@tlastchart@}
-%<platexrelease>                   {Added \g@tlastchart@}%
-%<*plcore|platexrelease>
-\def\g@tlastchart@#1{#1\ifx\lastnodechar\@undefined\m@ne\else\lastnodechar\fi}
-%</plcore|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}
-% 第一引数のマクロ(|#1|)の置換テキストが、カテゴリコード11か12の文字トークン1文字であった
-% 場合に第二引数の内容に展開され、そうでない場合は第三引数の内容に展開されます。
-% \changes{v1.6c}{2016/06/06}{マクロ追加}
-% \changes{v1.6d}{2016/06/19}{アクセント付き文字をさらに修正(forum:1951)}
-%    \begin{macrocode}
-%<platexrelease>\plIncludeInRelease{2016/06/10}{\pltx@isletter}
-%<platexrelease>                   {Added \pltx@isletter}%
-%<*plcore|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}}
-%</plcore|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}
-% 合成文字の内部命令です。v1.6aで誤って\LaTeX{}の定義を上書きしてしまいました
-% が、v1.6cで外しました。
-% \changes{v1.6a}{2016/04/01}{ベースライン補正量が0でないときに
-%    \cs{AA}など一部の合成文字がおかしくなることに対応するため再定義}
-% \changes{v1.6c}{2016/06/06}{v1.6aでの誤った再定義を削除(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}
-% 合成文字の内部命令です。|\g@tlastchart@|と|\pltx@isletter|を使います。
-% \changes{v1.6a}{2016/04/01}{ベースライン補正量が0でないときに
-%    \cs{AA}など一部の合成文字がおかしくなることへの対応。}
-% \changes{v1.6c}{2016/06/06}{v1.6aでの修正で\'e など全てのアクセント付き文字で
-%    周囲に\cs{xkanjiskip}が入らなくなっていたのを修正。}
-% \changes{v1.6e}{2016/06/26}{v1.6a以降の修正で全てのアクセント付き文字で
-%    トラブルが相次いだため、いったんパッチを除去。}
-%    \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
-%    \end{macrocode}
-% \end{macro}
-%
-%
-% \subsection{イタリック補正と\cs{xkanjiskip}}
-%
-% \begin{macro}{\check@nocorr@}
-% 「\verb|あ\texttt{abc}い|」としたとき、書体の変更を指定された欧文の左側に
-% 和欧文間スペースが入らないのを修正します。
-% \changes{v1.3i}{2000/07/13}{\cs{text..}コマンドの左側に\cs{xkanjiskip}が
-%    入らないのを修正（ありがとう、乙部＠東大さん）}
-%
-% コミュニティ版の修正：p\TeX{}のバージョンp3.1.11以前は、イタリック補正
-% （以下|\/|と記す）と|\xkanjiskip|の挿入が衝突\footnote{和文のイタリック
-% 補正用kernが、通常のexplicitな（\cs{kern}による）kernと同じ扱いを受けて
-% いたため。}し
-% \begin{enumerate}
-% \item 「欧文文字 → |\/|」の場合には|\/|を無視する
-%       （つまり後に|\xkanjiskip|挿入可能）
-% \item 「和文文字 → |\/|」の場合にはこの後に|\xkanjiskip|は挿入できない
-% \end{enumerate}
-% という挙動になっていました。p3.2（2010年）の修正で
-% \begin{itemize}
-% \item |\xkanjiskip|挿入時にはいかなる場合も|\/|を無視する
-% \end{itemize}
-% という挙動に変更されました。p\LaTeX{}カーネルの|\check@nocorr@|の修正は、
-% p3.1.11以前の2.への対処でしたが、これは「|\text...{}|の左への|\/|挿入」を
-% 無効化しているので、|\textit{f\textup{a}}|で本来入るべきイタリック補正が
-% 入りませんでした。p3.2以降ではp\TeX{}の|\xkanjiskip|対策が不要になって
-% いますので、コミュニティ版では削除しました。
-% \changes{v1.6i}{2017/09/24}{2010年のp\TeX{}本体の修正により、v1.3iで入れた
-%    対処が不要になっていたので削除}
-%    \begin{macrocode}
-%<platexrelease>\plIncludeInRelease{2017/10/28}{\check@nocorr@}
-%<platexrelease>                   {Italic correction before \textt...}%
-%<platexrelease>\def \check@nocorr@ #1#2\nocorr#3\@nil {%
-%<platexrelease>  \let \check@icl \maybe@ic
-%<platexrelease>  \def \check@icr {\ifvmode \else \aftergroup \maybe@ic \fi}%
-%<platexrelease>  \def \reserved@a {\nocorr}%
-%<platexrelease>  \def \reserved@b {#1}%
-%<platexrelease>  \def \reserved@c {#3}%
-%<platexrelease>  \ifx \reserved@a \reserved@b
-%<platexrelease>    \ifx \reserved@c \@empty
-%<platexrelease>      \let \check@icl \@empty
-%<platexrelease>    \else
-%<platexrelease>      \let \check@icl \@empty
-%<platexrelease>      \let \check@icr \@empty
-%<platexrelease>    \fi
-%<platexrelease>  \else
-%<platexrelease>    \ifx \reserved@c \@empty
-%<platexrelease>    \else
-%<platexrelease>      \let \check@icr \@empty
-%<platexrelease>    \fi
-%<platexrelease>  \fi
-%<platexrelease>}
-%<platexrelease>\plEndIncludeInRelease
-%<platexrelease>\plIncludeInRelease{0000/00/00}{\check@nocorr@}
-%<platexrelease>                   {Italic correction before \textt...}%
-%<platexrelease>\def \check@nocorr@ #1#2\nocorr#3\@nil {%
-%<platexrelease>  \let \check@icl \relax % changed from \maybe@ic
-%<platexrelease>  \def \check@icr {\ifvmode \else \aftergroup \maybe@ic \fi}%
-%<platexrelease>  \def \reserved@a {\nocorr}%
-%<platexrelease>  \def \reserved@b {#1}%
-%<platexrelease>  \def \reserved@c {#3}%
-%<platexrelease>  \ifx \reserved@a \reserved@b
-%<platexrelease>    \ifx \reserved@c \@empty
-%<platexrelease>      \let \check@icl \@empty
-%<platexrelease>    \else
-%<platexrelease>      \let \check@icl \@empty
-%<platexrelease>      \let \check@icr \@empty
-%<platexrelease>    \fi
-%<platexrelease>  \else
-%<platexrelease>    \ifx \reserved@c \@empty
-%<platexrelease>    \else
-%<platexrelease>      \let \check@icr \@empty
-%<platexrelease>    \fi
-%<platexrelease>  \fi
-%<platexrelease>}
-%<platexrelease>\plEndIncludeInRelease
-%    \end{macrocode}
-% \end{macro}
-%
-%
-% \subsection{デフォルト設定ファイルの読み込み}
-% 最後に、デフォルト設定ファイルである、\file{upldefs.ltx}を読み込みます。
-% このファイルについての詳細は、第\ref{plfonts:pldefs}節を参照してください。
-% \TeX{}の入力ファイル検索パスに設定されているディレクトリに\file{upldefs.cfg}%
-% ファイルがある場合は、そのファイルを使います。
-%    \begin{macrocode}
-%<*plcore>
-\InputIfFileExists{upldefs.cfg}
-           {\typeout{*************************************^^J%
-                     * Local config file upldefs.cfg used^^J%
-                     *************************************}}%
-           {\input{upldefs.ltx}}
-%</plcore>
-%    \end{macrocode}
+% デフォルト設定ファイル\file{upldefs.ltx}は、もともと\file{uplcore.ltx}の途中で
+% 読み込んでいましたが、2018年以降の新しいコミュニティ版\upLaTeX{}では
+% \file{uplatex.ltx}から読み込むことにしました。
+% 実際の中身については、第\ref{plfonts:pldefs}節を参照してください。
+% \changes{v1.6k-u00}{2017/12/05}{デフォルト設定ファイルの読み込みを
+%    \file{uplcore.ltx}から\file{uplatex.ltx}へ移動
+%     (based on plfonts.dtx 2017/12/05 v1.6k)}
 %
 %
 %
 %
 % \section{デフォルト設定ファイル}\label{plfonts:pldefs}
 % ここでは、フォーマットファイルに読み込まれるデフォルト値を設定しています。
-% この節での内容は\file{pldefs.ltx}に出力されます。
-% このファイルの内容を\file{plcore.ltx}に含めてもよいのですが、
+% この節での内容は\file{upldefs.ltx}に出力されます。
+% このファイルの内容を\file{uplcore.ltx}に含めてもよいのですが、
 % デフォルトの設定を参照しやすいように、別ファイルにしてあります。
-% \file{pldefs.ltx}は\file{plcore.ltx}から読み込まれます。
 %
 % プリロードサイズは、\dst{}プログラムのオプションで変更することができます。
-% これ以外の設定を変更したい場合は、\file{pldefs.ltx}を
-% 直接、修正するのではなく、このファイルを\file{pldefs.cfg}という名前で
+% これ以外の設定を変更したい場合は、\file{upldefs.ltx}を
+% 直接、修正するのではなく、このファイルを\file{upldefs.cfg}という名前で
 % コピーをして、そのファイルに対して修正を加えるようにしてください。
 %    \begin{macrocode}
 %<*pldefs>
 \ProvidesFile{upldefs.ltx}
-      [2017/11/06 v1.6j-u00 upLaTeX Kernel (Default settings)]
+      [2018/02/04 v1.6l-u02 upLaTeX Kernel (Default settings)]
 %</pldefs>
 %    \end{macrocode}
 %
 % \subsection{テキストフォント}
 % テキストフォントのための属性やエラー書体などの宣言です。
-%
+% p\LaTeX{}のデフォルトの横組エンコードはJY1、縦組エンコードはJT1ですが、
+% up\LaTeX{}では横組エンコードはJY2、縦組エンコードはJT2とします。
 % \noindent
 % 縦横エンコード共通：
 %    \begin{macrocode}
@@ -2183,7 +216,7 @@
 \input{jt2mc.fd}
 \input{jt2gt.fd}
 %    \end{macrocode}
-% フォントを有効にする
+% フォントを有効にします。
 %    \begin{macrocode}
 \fontencoding{JT2}\selectfont
 \fontencoding{JY2}\selectfont
@@ -2246,7 +279,7 @@
 % \subsection{プリロードフォント}
 % あらかじめフォーマットファイルにロードされるフォントの宣言です。
 % \dst{}プログラムのオプションでロードされるフォントのサイズを
-% 変更することができます。\file{uplatex.ins}では|xpt|を指定しています。
+% 変更することができます。\file{uplfmt.ins}では|xpt|を指定しています。
 %    \begin{macrocode}
 %<*xpt>
 \DeclarePreloadSizes{JY2}{mc}{m}{n}{5,7,10,12}
@@ -2282,8 +315,8 @@
 % \subsection{組版パラメータ}
 % 禁則パラメータや文字間へ挿入するスペースの設定などです。
 % 実際の各文字への禁則パラメータおよびスペースの挿入の許可設定などは、
-% \file{kinsoku.tex}で行なっています。
-% 具体的な設定については、\file{kinsoku.dtx}を参照してください。
+% \file{ukinsoku.tex}で行なっています。
+% 具体的な設定については、\file{ukinsoku.dtx}を参照してください。
 %    \begin{macrocode}
 \InputIfFileExists{ukinsoku.tex}%
   {\message{Loading kinsoku patterns for japanese.}}
@@ -2372,7 +405,7 @@
 %<JY2gt>\ProvidesFile{jy2gt.fd}
 %<JT2mc>\ProvidesFile{jt2mc.fd}
 %<JT2gt>\ProvidesFile{jt2gt.fd}
-%<JY2mc,JY2gt,JT2mc,JT2gt>       [2011/05/07 v1.5-u00 KANJI font defines]
+%<JY2mc,JY2gt,JT2mc,JT2gt>       [2018/02/04 v1.6l-u02 KANJI font defines]
 %    \end{macrocode}
 % 横組用、縦組用ともに、
 % 明朝体のシリーズ|bx|がゴシック体となるように宣言しています。
@@ -2380,8 +413,15 @@
 % \changes{v1.3b}{1997/01/29}{フォント定義ファイルのサイズ指定の調整}
 % \changes{v1.3b}{1997/03/11}{すべてのサイズをロード可能にした}
 %
-% p\LaTeX{}では従属書体にOT1エンコーディングを用いていましたが、
+% p\LaTeX{}では従属書体にOT1エンコーディングを指定していましたが、
 % up\LaTeX{}ではT1エンコーディングを用いるように変更しました。
+% また、要求サイズ（指定されたフォントサイズ）が10ptのとき、
+% 全角幅の実寸が9.62216ptとなるようにしますので、
+% 和文スケール値（$1\,\mathrm{zw} \div \textmc{要求サイズ}$）は
+% $9.62216\,\mathrm{pt}/10\,\mathrm{pt}=0.962216$です。
+% upjis系のメトリックは全角幅が10ptでデザインされているので、
+% これを0.962216倍で読込みます。
+% \changes{v1.6l}{2018/02/04}{和文スケール値を明文化}
 %    \begin{macrocode}
 %<*JY2mc>
 \DeclareKanjiFamily{JY2}{mc}{}
diff --git a/Master/texmf-dist/source/uplatex/base/uplvers.dtx b/Master/texmf-dist/source/uplatex/base/uplvers.dtx
index 2179550202c..fb76fb53c90 100644
--- a/Master/texmf-dist/source/uplatex/base/uplvers.dtx
+++ b/Master/texmf-dist/source/uplatex/base/uplvers.dtx
@@ -7,7 +7,7 @@
 %
 %  Copyright (c) 2010 ASCII MEDIA WORKS
 %  Copyright (c) 2016 Takuji Tanaka
-%  Copyright (c) 2016-2017 Japanese TeX Development Community
+%  Copyright (c) 2016-2018 Japanese TeX Development Community
 %
 %  This file is part of the upLaTeX2e system (community edition).
 %  --------------------------------------------------------------
@@ -19,71 +19,40 @@
 % \StopEventually{}
 %
 % \iffalse
-% \changes{v1.0}{1995/05/16}{p\LaTeXe\ 用に\file{ltvers.dtx}を修正}
-% \changes{v1.0a}{1995/08/30}{\LaTeX\ \texttt{!<1995/06/01!>}版用に修正}
-% \changes{v1.0b}{1996/01/31}{\LaTeX\ \texttt{!<1995/12/01!>}版用に修正}
-% \changes{v1.0c}{1997/01/11}{\LaTeX\ \texttt{!<1996/06/01!>}版用に修正}
-% \changes{v1.0d}{1997/01/23}{\LaTeX\ \texttt{!<1996/12/01!>}版用に修正}
-% \changes{v1.0e}{1997/07/02}{\LaTeX\ \texttt{!<1997/06/01!>}版用に修正}
-% \changes{v1.0f}{1998/02/17}{\LaTeX\ \texttt{!<1997/12/01!>}版用に修正}
-% \changes{v1.0g}{1998/09/01}{\LaTeX\ \texttt{!<1998/06/01!>}版用に修正}
-% \changes{v1.0h}{1999/04/05}{\LaTeX\ \texttt{!<1998/12/01!>}版用に修正}
-% \changes{v1.0i}{1999/08/09}{\LaTeX\ \texttt{!<1999/06/01!>}版用に修正}
-% \changes{v1.0j}{2000/02/29}{\LaTeX\ \texttt{!<1999/12/01!>}版用に修正}
-% \changes{v1.0k}{2000/11/03}{\LaTeX\ \texttt{!<2000/06/01!>}版用に修正}
-% \changes{v1.0l}{2001/09/04}{\LaTeX\ \texttt{!<2001/06/01!>}版用に修正}
-% \changes{v1.0m}{2004/08/10}{\LaTeX\ \texttt{!<2003/12/01!>}版対応確認}
-% \changes{v1.0n}{2005/01/04}{plfonts.dtxバグ修正}
-% \changes{v1.0o}{2006/01/04}{plfonts.dtxバグ修正}
-% \changes{v1.0p}{2006/06/27}{plfonts.dtx \LaTeX\ \texttt{!<2005/12/01!>}対応}
-% \changes{v1.0q}{2006/11/10}{plfonts.dtxバグ修正}
-% \changes{v1.0q-u00}{2011/05/07}{p\LaTeX{}用からup\LaTeX{}用に修正。}
-% \changes{v1.0r}{2016/01/26}{plcore.dtx p\TeX\ (r28720)対応}
-% \changes{v1.0s}{2016/02/01}{\LaTeX\ \texttt{!<2015/01/01!>}のlatexreleaseに
-%    対応するためのコードを導入}
-% \changes{v1.0t}{2016/02/03}{\cs{plIncludeInRelease}と
-%    \cs{plEndIncludeInRelease}を新設。}
-% \changes{v1.0u}{2016/04/17}{\LaTeX\ \texttt{!<2016/03/31!>}版対応確認}
-% \changes{v1.0u-u00}{2016/04/17}{p\LaTeX{}の変更に追随。}
-% \changes{v1.0v}{2016/05/07}{パッチファイルをロードするのをやめた。}
-% \changes{v1.0v}{2016/05/07}{起動時の文字列を最新の\LaTeX{}に合わせた。}
-% \changes{v1.0w}{2016/05/12}{起動時の文字列に入れる\LaTeX{}のバージョンを
-%    元の\LaTeX{}のバナーから引き継ぐように改良}
+% \changes{v1.0q-u00}{2011/05/07}{p\LaTeX{}用からup\LaTeX{}用に修正。
+%     (based on plvers.dtx 2006/11/10 v1.0q)}
+% \changes{v1.0u-u00}{2016/04/17}{p\LaTeX{}の変更に追随。
+%     (based on plvers.dtx 2016/04/17 v1.0u)}
 % \changes{v1.0w-u00}{2016/05/12}{起動時の文字列に入れるBabelのバージョンを
-%    元の\LaTeX{}のバナーから取得するコードを\file{uplatex.ini}から取り入れた}
+%    元の\LaTeX{}のバナーから取得するコードを\file{uplatex.ini}から取り入れた
+%     (based on plvers.dtx 2016/05/12 v1.0w)}
 % \changes{v1.0w-u01}{2016/05/21}{サポート外の\LaTeX~2.09互換モードが
 %    使われた場合に明確なエラーを出すようにした。}
-% \changes{v1.0x}{2016/06/19}{パッチレベルを\file{plvers.dtx}で設定}
-% \changes{v1.0x-u01}{2016/06/19}{p\LaTeX{}の変更に追随。}
-% \changes{v1.0y-u01}{2016/06/29}{\file{uplatex.cfg}の読み込みを追加}
+% \changes{v1.0x-u01}{2016/06/19}{p\LaTeX{}の変更に追随。
+%     (based on plvers.dtx 2016/06/19 v1.0x)}
+% \changes{v1.0y-u01}{2016/06/29}{\file{uplatex.cfg}の読み込みを追加
+%     (based on plvers.dtx 2016/06/27 v1.0y)}
 % \changes{v1.0z-u01}{2016/08/26}{\file{uplatex.cfg}の読み込みを
-%    \file{uplcore.ltx}から\file{uplatex.ltx}へ移動}
-% \changes{v1.1}{2016/09/14}{起動時のバナーを取得するコードを改良}
-% \changes{v1.1-u01}{2016/09/14}{p\LaTeX{}の変更に追随。}
-% \changes{v1.1a}{2017/02/20}{\LaTeX\ \texttt{!<2017/01/01!>}版対応確認}
-% \changes{v1.1a-u01}{2017/03/05}{p\LaTeX{}の変更に追随。}
-% \changes{v1.1b}{2017/03/19}{\cs{l@nohyphenation}の定義を保証
-%    (sync with ltfinal 2017/03/09 v2.0t)}
-% \changes{v1.1b}{2017/03/19}{\cs{document@default@language}の定義を保証
-%    (sync with ltfinal 2017/03/09 v2.0t)}
-% \changes{v1.1b-u01}{2017/03/19}{p\LaTeX{}の変更に追随。}
-% \changes{v1.1c}{2017/04/23}{\LaTeX\ \texttt{!<2017/04/15!>}版対応確認}
-% \changes{v1.1c-u01}{2017/05/04}{p\LaTeX{}の変更に追随。}
-% \changes{v1.1d}{2017/09/24}{パッチレベルが負の数の場合をpre-release扱いへ}
-% \changes{v1.1d-u01}{2017/09/24}{p\LaTeX{}の変更に追随。}
-% \changes{v1.1e}{2017/11/09}{\file{latexrelease}と
-%    \cs{platexrelease}のエミュレート内部処理を分離}
-% \changes{v1.1f}{2017/11/11}{\LaTeX{}のバナーを保存するコードを
-%    \file{platex.ltx}から\file{plcore.ltx}へ移動}
-% \changes{v1.1g}{2017/12/04}{\pLaTeX{}のバナーの定義時に
-%    \cs{pfmtname}, \cs{pfmtversion}, \cs{ppatch@level}を展開しないように}
-% \changes{v1.1g-u01}{2017/12/04}{p\LaTeX{}の変更に追随。}
+%    \file{uplcore.ltx}から\file{uplatex.ltx}へ移動
+%     (based on plvers.dtx 2016/08/26 v1.0z)}
+% \changes{v1.1-u01}{2016/09/14}{p\LaTeX{}の変更に追随。
+%     (based on plvers.dtx 2016/09/14 v1.1)}
+% \changes{v1.1c-u01}{2017/05/04}{p\LaTeX{}の変更に追随。
+%     (based on plvers.dtx 2017/04/23 v1.1c)}
+% \changes{v1.1d-u01}{2017/09/24}{p\LaTeX{}の変更に追随。
+%     (based on plvers.dtx 2017/09/24 v1.1d)}
+% \changes{v1.1g-u01}{2017/12/04}{p\LaTeX{}の変更に追随。
+%     (based on plvers.dtx 2017/12/04 v1.1g)}
+% \changes{v1.1g-u02}{2017/12/10}{p\LaTeX{}との統合のため、
+%    up\LaTeX{}のバージョンと最小限の変更だけを定義するようにした}
+% \changes{v1.1h-u02}{2018/02/18}{p\LaTeX{}の変更に追随。
+%     (based on plvers.dtx 2018/01/10 v1.1h)}
 % \fi
 %
 % \iffalse
 %<*driver>
 % \fi
-\ProvidesFile{uplvers.dtx}[2017/12/04 v1.1g-u01 upLaTeX Kernel (Version Info)]
+\ProvidesFile{uplvers.dtx}[2018/02/18 v1.1h-u02 upLaTeX Kernel (Version Info)]
 % \iffalse
 \documentclass{jltxdoc}
 \GetFileInfo{uplvers.dtx}
@@ -100,111 +69,58 @@
 % \section{up\LaTeXe{}のバージョンの設定}
 % まず、このディストリビューションでのup\LaTeXe{}の日付とバージョン番号
 % を定義します。
+% このバージョンのup\LaTeXe{}のフォーマット作成では、
+% p\LaTeXe{}が提供する\file{plcore.ltx}の後から
+% \file{uplcore.ltx}が読まれなければなりません。
 %
-% \changes{v1.0}{1995/05/16}{p\LaTeXe\ 用に\file{ltvers.dtx}を修正}
-% \changes{v1.0a}{1995/08/30}{\LaTeX\ \texttt{!<1995/06/01!>}版用に修正}
-% \changes{v1.0b}{1996/01/31}{\LaTeX\ \texttt{!<1995/12/01!>}版用に修正}
-% \changes{v1.0c}{1997/01/11}{\LaTeX\ \texttt{!<1996/06/01!>}版用に修正}
-% \changes{v1.0d}{1997/01/23}{\LaTeX\ \texttt{!<1996/12/01!>}版用に修正}
-% \changes{v1.0e}{1997/07/02}{\LaTeX\ \texttt{!<1997/06/01!>}版用に修正}
-% \changes{v1.0f}{1998/02/17}{\LaTeX\ \texttt{!<1997/12/01!>}版用に修正}
-% \changes{v1.0g}{1998/09/01}{\LaTeX\ \texttt{!<1998/06/01!>}版用に修正}
-% \changes{v1.0h}{1999/04/05}{\LaTeX\ \texttt{!<1998/12/01!>}版用に修正}
-% \changes{v1.0i}{1999/08/09}{\LaTeX\ \texttt{!<1999/06/01!>}版用に修正}
-% \changes{v1.0j}{2000/02/29}{\LaTeX\ \texttt{!<1999/12/01!>}版用に修正}
-% \changes{v1.0k}{2000/11/03}{\LaTeX\ \texttt{!<2000/06/01!>}版用に修正}
-% \changes{v1.0l}{2001/09/04}{\LaTeX\ \texttt{!<2001/06/01!>}版用に修正}
-% \changes{v1.0m}{2004/08/10}{\LaTeX\ \texttt{!<2003/12/01!>}版対応確認}
-% \changes{v1.0s}{2016/02/01}{\LaTeX\ \texttt{!<2015/01/01!>}版用に修正}
-% \changes{v1.0u}{2016/04/17}{\LaTeX\ \texttt{!<2016/03/31!>}版対応確認}
-% \changes{v1.1a}{2017/02/20}{\LaTeX\ \texttt{!<2017/01/01!>}版対応確認}
-% \changes{v1.1c}{2017/04/23}{\LaTeX\ \texttt{!<2017/04/15!>}版対応確認}
+% \changes{v1.0q-u00}{2011/05/07}{p\LaTeX{}用からup\LaTeX{}用に修正。
+%     (based on plvers.dtx 2006/11/10 v1.0q)}
+% \changes{v1.1g-u02}{2017/12/10}{p\LaTeX{}との統合のため、
+%    up\LaTeX{}のバージョンと最小限の変更だけを定義するようにした}
 %
-% このバージョンのup\LaTeXe{}は、次のバージョンの\LaTeX{}\footnote{%
-% \LaTeX\ authors: Johannes Braams, David Carlisle, Alan Jeffrey,
-%   Leslie Lamport, Frank Mittelbach, Chris Rowley, Rainer Sch\"opf}を
-% もとにしています。
+% まず、次のバージョンのp\LaTeX{}が利用可能なことを確認します。
 %    \begin{macrocode}
-%<*2ekernel>
-%\def\fmtname{LaTeX2e}
-%\edef\fmtversion
-%</2ekernel>
-%<latexrelease>\edef\latexreleaseversion
-%<platexrelease>\edef\p@known@latexreleaseversion
-%<*2ekernel|latexrelease|platexrelease>
-   {2017/04/15}
-%</2ekernel|latexrelease|platexrelease>
+%<*plcore>
+\ifx\pfmtversion\@undefined
+    \errhelp{Please update your TeX installation; if not available,
+             obtain it^^Jmanually from CTAN
+             (https://www.ctan.org/pkg/uplatex) or from^^JGitHub
+             (https://github.com/texjporg/uplatex).}%
+    \errmessage{This should not happen!^^JThere should be some
+                inconsistency in your installation;^^Jtry
+                removing old `uplatex.ltx' and install the
+                latest one}\@@end
+\else
+  \ifnum\expandafter\@parse@version\pfmtversion\@nil<20180309
+    \errhelp{Please update your TeX installation; if not available,
+             obtain it^^Jmanually from CTAN
+             (https://www.ctan.org/pkg/platex) or from^^JGitHub
+             (https://github.com/texjporg/platex).}%
+    \errmessage{This version of upLaTeX2e requires pLaTeX2e 2018/03/09
+                or newer!^^JObtain a newer version of `platex',
+                otherwise upLaTeX2e setup will^^Jnever succeed}\@@end
+  \fi
+\fi
+%</plcore>
 %    \end{macrocode}
 %
 % \begin{macro}{\pfmtname}
 % \begin{macro}{\pfmtversion}
 % \begin{macro}{\ppatch@level}
 % up\LaTeXe{}のフォーマットファイル名とバージョンです。
-% \changes{v1.0x}{2016/06/19}{パッチレベルを\file{plvers.dtx}で設定}
+% フォーマット名はp\LaTeXe{}のもの (\pfmtname) をそのまま引き継ぎ、
+% バージョンはp\LaTeXe{}のものの末尾に``u02''のようにサフィックスを付けます。
 %    \begin{macrocode}
 %<*plcore>
-\def\pfmtname{pLaTeX2e}
-\def\pfmtversion
-%</plcore>
-%<platexrelease>\edef\platexreleaseversion
-%<*plcore|platexrelease>
-   {2017/10/28u01}
-%</plcore|platexrelease>
-%<*plcore>
-\def\ppatch@level{4}
+%\def\pfmtname{pLaTeX2e}
+\def\uppatch@level{u02}
+\edef\pfmtversion{\pfmtversion\uppatch@level}
 %</plcore>
 %    \end{macrocode}
 % \end{macro}
 % \end{macro}
 % \end{macro}
 %
-% \subsection{\LaTeXe{}のバージョンの取得}
-% このファイルの直前で\LaTeXe{}の\file{latex.ltx}が読み込まれているはず
-% なので、その起動時のバナーを保存します。
-%
-% 2016/05/07の実装では、\file{platex.ltx}のなかで
-%\begin{verbatim}
-% \edef\platexBANNER{\the\everyjob}
-%\end{verbatim}
-% としてバナーを保存し、この内容が
-%\begin{verbatim}
-%   \typeout{LaTeX2e version}\typeout{Babel version}
-%\end{verbatim}
-% という4つのトークンから成ると仮定して、\file{plcore.ltx}のなかで
-%\begin{verbatim}
-%   \def\parse@@BANNER#1#2#3#4{#2}
-%\end{verbatim}
-% のようにパースしていました。ところが、この「4つのトークンから成る」と
-% いう仮定はBabel由来の\file{hyphen.cfg}を使用した場合のみ成り立ち、
-% それ以外の特別な\file{hyphen.cfg}や\file{hyphen.ltx}を使用した場合に
-% エラーになってしまいます。
-% そこで、新たに2016/09/14の実装では、\file{platex.ltx}のなかで
-%\begin{verbatim}
-% \edef\platexBANNER{\the\everyjob\noexpand\typeout{}\relax}
-%\end{verbatim}
-% としてダミーを追加します（|\relax|はただの区切りトークンの役割）。
-% こうすると、|\platexBANNER|の内容は、Babelの\file{hyphen.cfg}のとき
-%\begin{verbatim}
-%   \typeout{LaTeX2e version}\typeout{Babel version}\typeout{}\relax
-%\end{verbatim}
-% となり、それ以外のとき
-%\begin{verbatim}
-%   \typeout{LaTeX2e version}\typeout{}\relax
-%\end{verbatim}
-% となるはずです。このように、少なくとも|\typeout|が2回含まれています
-% ので、\file{plcore.ltx}のなかで
-%\begin{verbatim}
-%   \def\parse@@BANNER\typeout#1\typeout#2#3\relax{#1}
-%\end{verbatim}
-% とパースすることができるようになります。
-% \changes{v1.1f}{2017/11/11}{\LaTeX{}のバナーを保存するコードを
-%    \file{platex.ltx}から\file{plcore.ltx}へ移動}
-%    \begin{macrocode}
-%<*plcore>
-\edef\platexBANNER{\the\everyjob\noexpand\typeout{}\relax}% save LaTeX banner
-%</plcore>
-%    \end{macrocode}
-%
 % \subsection{\LaTeX~2.09互換モードの抑制}
 %
 % \begin{macro}{\documentstyle}
@@ -230,210 +146,34 @@
 %    \end{macrocode}
 % \end{macro}
 %
-% \subsection{パッチファイルのロード}
-%
-% 次の部分は、up\LaTeXe{}のパッチファイルをロードするためのコードです。
-% バグを修正するためのパッチを配布するかもしれません。
-%
-% パッチファイルをロードするコードはコメントアウトしました。
-% \changes{v1.0v}{2016/05/07}{パッチファイルをロードするのをやめた。}
-%    \begin{macrocode}
-%<*plfinal>
-%\IfFileExists{uplpatch.ltx}
-%  {\typeout{************************************^^J%
-%            * Appliying patch file uplpatch.ltx *^^J%
-%            ************************************}
-%  \def\pfmtversion@topatch{unknown}
-%  \input{uplpatch.ltx}
-%  \ifx\pfmtversion\pfmtversion@topatch
-%    \ifx\ppatch@level\@undefined
-%      \typeout{^^J^^J^^J%
-%   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!^^J%
-%   !! Patch file `uplpatch.ltx' (for version <\pfmtversion@topatch>)^^J%
-%   !! is not suitable for version <\pfmtversion> of upLaTeX.^^J^^J%
-%   !! Please check if iniptex found an old patch file:^^J%
-%   !! --- if so, rename it or delete it, and redo the^^J%
-%   !!     iniptex run.^^J%
-%   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!^^J}%
-%      \batchmode \@@end
-%    \fi
-%  \else
-%      \typeout{^^J^^J^^J%
-%   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!^^J%
-%   !! Patch file `uplpatch.ltx' (for version <\pfmtversion@topatch>)^^J%
-%   !! is not suitable for version <\pfmtversion> of upLaTeX.^^J%
-%   !!^^J%
-%   !! Please check if iniptex found an old patch file:^^J%
-%   !! --- if so, rename it or delete it, and redo the^^J%
-%   !!     iniptex run.^^J%
-%   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!^^J}%
-%      \batchmode \@@end
-%  \fi
-%  \let\pfmtversion@topatch\relax
-%  }{}
-%    \end{macrocode}
-%
 % \subsection{起動時に表示するバナー}
 %
 % \begin{macro}{\everyjob}
-% up\LaTeXe{}が起動されたときに表示される文字列です。
-% \LaTeXe{}のバージョンも併せて表示します。
-%
-% \changes{v1.0v}{2016/05/07}{起動時の文字列を最新の\LaTeX{}に合わせた。}
-% \changes{v1.0w}{2016/05/12}{起動時の文字列に入れる\LaTeX{}のバージョンを
-%    元の\LaTeX{}のバナーから引き継ぐように改良}
-% \changes{v1.1}{2016/09/14}{起動時のバナーを取得するコードを改良}
-% \changes{v1.1d}{2017/09/24}{パッチレベルが負の数の場合をpre-release扱いへ}
-% \changes{v1.1g}{2017/12/04}{\pLaTeX{}のバナーの定義時に
-%    \cs{pfmtname}, \cs{pfmtversion}, \cs{ppatch@level}を展開しないように}
-%    \begin{macrocode}
-\ifx\patch@level\@undefined % fallback if undefined in LaTeX
-  \def\patch@level{0}\fi
-\ifx\ppatch@level\@undefined % fallback if undefined in upLaTeX
-  \def\ppatch@level{0}\fi
-\begingroup
-  \def\parse@@BANNER\typeout#1\typeout#2#3\relax{#1}
-  \toks0=\expandafter\expandafter\expandafter{%
-           \expandafter\parse@@BANNER\platexBANNER}
-  \ifnum\ppatch@level=0
-    \toks2={\pfmtname\space<\pfmtversion>\space}%
-  \else\ifnum\ppatch@level>0
-    \toks2={\pfmtname\space<\pfmtversion>+\ppatch@level\space}%
-  \else
-    \toks2={\pfmtname\space<\pfmtversion>-pre\ppatch@level\space}%
-  \fi\fi
-  \edef\platexBANNER{\the\toks2 (based on \the\toks0)}
-  \global\everyjob\expandafter{%
-    \expandafter\typeout\expandafter{\platexBANNER}}%
-\endgroup
-%    \end{macrocode}
-%
-% p\LaTeX{}やup\LaTeX{}は、独自のハイフネーション・パターンを定義していません。
+% up\LaTeXe{}が起動されたときに表示される文字列は、
+% p\LaTeXe{}の中ですでに設定されています。
+% またup\LaTeX{}も独自のハイフネーション・パターンを定義していないので、
 % \TeX\ Liveの標準的インストールでは、代わりに\LaTeX{}が読み込んでいる
-% Babelパッケージのものが適用されるはずですから、起動時の文字列にも
-% \file{hyphen.cfg}のバージョンを反映します（Babelパッケージの
-% \file{hyphen.cfg}でない場合は、何も表示されず空行になるはずです）。
+% Babelパッケージのものが適用されるはずです。
 %
 % \changes{v1.0w-u00}{2016/05/12}{起動時の文字列に入れるBabelのバージョンを
-%    元の\LaTeX{}のバナーから取得するコードを\file{uplatex.ini}から取り入れた}
-%    \begin{macrocode}
-\begingroup
-  \def\parse@@BANNER\typeout#1\typeout#2#3\relax{#2}
-  \toks0=\expandafter\expandafter\expandafter{%
-           \expandafter\parse@@BANNER\platexBANNER}
-  \edef\platexBANNER{\the\everyjob \noexpand\typeout{\the\toks0}}
-  \global\everyjob\expandafter{\platexBANNER}%
-\endgroup
-\let\platexBANNER=\@undefined
-%</plfinal>
-%    \end{macrocode}
-% \end{macro}
+%    元の\LaTeX{}のバナーから取得するコードを\file{uplatex.ini}から取り入れた
+%     (based on plvers.dtx 2016/05/12 v1.0w)}
+% \changes{v1.1-u01}{2016/09/14}{p\LaTeX{}の変更に追随。
+%     (based on plvers.dtx 2016/09/14 v1.1)}
+% \changes{v1.1d-u01}{2017/09/24}{p\LaTeX{}の変更に追随。
+%     (based on plvers.dtx 2017/09/24 v1.1d)}
+% \changes{v1.1g-u01}{2017/12/04}{p\LaTeX{}の変更に追随。
+%     (based on plvers.dtx 2017/12/04 v1.1g)}
 %
 % ^^A 起動時に\file{uplatex.cfg}がある場合、それを読み込むようにする
 % ^^A コードは、\file{uplcore.ltx}から\file{uplatex.ltx}へ移動しました。
-% \changes{v1.0y-u01}{2016/06/29}{\file{uplatex.cfg}の読み込みを追加}
+% \changes{v1.0y-u01}{2016/06/29}{\file{uplatex.cfg}の読み込みを追加
+%     (based on plvers.dtx 2016/06/27 v1.0y)}
 % \changes{v1.0z-u01}{2016/08/26}{\file{uplatex.cfg}の読み込みを
-%    \file{uplcore.ltx}から\file{uplatex.ltx}へ移動}
-%
-% \subsection{ハイフネーション関連}
-%
-% \begin{macro}{\l@nohyphenation}
-% \LaTeXe\ 2017-04-15で、|\verb|の途中でハイフネーションが起きないように
-% する修正が入りました。この修正には|\l@nohyphenation|が定義済みでなければ
-% なりませんが、通常はBabelの定義ファイルによって提供されています。
-% \LaTeXe{}は特殊な状況も想定してltfinalで対策しているようですので、
-% p\LaTeXe{}も念のためplfinalで対策します（参考：latex2e svn r1405）。
-% \changes{v1.1b}{2017/03/19}{\cs{l@nohyphenation}の定義を保証
-%    (sync with ltfinal 2017/03/09 v2.0t)}
-%    \begin{macrocode}
-%<*plfinal>
-\ifx\l@nohyphenation \@undefined
-  \newlanguage\l@nohyphenation
-\fi
-%    \end{macrocode}
+%    \file{uplcore.ltx}から\file{uplatex.ltx}へ移動
+%     (based on plvers.dtx 2016/08/26 v1.0z)}
 % \end{macro}
 %
-% \begin{macro}{\document@default@language}
-% \LaTeXe\ 2017-04-15で導入されたパラメータです。更新タイミングのずれの
-% 可能性を考慮し、p\LaTeXe{}でも準備しておきます。verbatim環境の途中で
-% 改ページが起きた場合にヘッダでハイフネーションが抑制されないように、
-% |\@outputpage|で|\language|をリセットするときに使われます
-% （参考：latex2e svn r1407）。
-% \changes{v1.1b}{2017/03/19}{\cs{document@default@language}の定義を保証
-%    (sync with ltfinal 2017/03/09 v2.0t)}
-%    \begin{macrocode}
-\ifx\document@default@language \@undefined
-  \let\document@default@language\m@ne
-\fi
-%</plfinal>
-%    \end{macrocode}
-% \end{macro}
-%
-% \subsection{latexreleaseパッケージへの対応}
-%
-% 最後に、latexreleaseパッケージへの対応です。
-% \begin{macro}{\plIncludeInRelease}
-% \changes{v1.0t}{2016/02/03}{\cs{plIncludeInRelease}と
-%    \cs{plEndIncludeInRelease}を新設。}
-% \changes{v1.1e}{2017/11/09}{\file{latexrelease}と
-%    \cs{platexrelease}のエミュレート内部処理を分離}
-%    \begin{macrocode}
-%<*plcore|platexrelease>
-\def\plIncludeInRelease#1{\kernel@ifnextchar[%
-  {\@plIncludeInRelease{#1}}
-  {\@plIncludeInRelease{#1}[#1]}}
-%    \end{macrocode}
-%
-%    \begin{macrocode}
-\def\@plIncludeInRelease#1[#2]{\@plIncludeInRele@se{#2}}
-%    \end{macrocode}
-%
-%    \begin{macrocode}
-\def\@plIncludeInRele@se#1#2#3{%
-  \toks@{[#1] #3}%
-  \expandafter\ifx\csname\string#2+\@currname+plIIR\endcsname\relax
-    \ifnum\expandafter\@parse@version#1//00\@nil
-          >\expandafter\@parse@version\pfmtversion//00\@nil
-      \GenericInfo{}{Skipping: \the\toks@}%
-     \expandafter\expandafter\expandafter\@gobble@plIncludeInRelease
-    \else
-      \GenericInfo{}{Applying: \the\toks@}%
-      \expandafter\let\csname\string#2+\@currname+plIIR\endcsname\@empty
-    \fi
-  \else
-    \GenericInfo{}{Already applied: \the\toks@}%
-    \expandafter\@gobble@plIncludeInRelease
-  \fi
-}
-%    \end{macrocode}
-%
-%    \begin{macrocode}
-\long\def\@gobble@plIncludeInRelease#1\plEndIncludeInRelease{}
-\let\plEndIncludeInRelease\relax
-%</plcore|platexrelease>
-%    \end{macrocode}
-% \end{macro}
-%
-% \LaTeXe{}が提供するlatexreleaseパッケージが読み込まれていて、
-% かつp\LaTeXe{}が提供するplatexreleaseパッケージが読み込まれていない
-% 場合は、警告を出します。
-% \changes{v1.0s}{2016/02/01}{latexrelease利用時に警告を出すようにした}
-%    \begin{macrocode}
-%<*plfinal>
-\AtBeginDocument{%
-  \@ifpackageloaded{latexrelease}{%
-    \@ifpackageloaded{platexrelease}{}{%
-      \@latex@warning@no@line{%
-        Package latexrelease is loaded.\MessageBreak
-        Some patches in pLaTeX2e core may be overwritten.\MessageBreak
-        Consider using platexrelease.\MessageBreak
-        See platex.pdf for detail}%
-    }%
-  }{}%
-}
-%</plfinal>
-%    \end{macrocode}
-%
 % \Finale
 %
 \endinput
diff --git a/Master/texmf-dist/tex/uplatex/base/jt2gt.fd b/Master/texmf-dist/tex/uplatex/base/jt2gt.fd
index 725ce092b40..16e1dd05ef1 100644
--- a/Master/texmf-dist/tex/uplatex/base/jt2gt.fd
+++ b/Master/texmf-dist/tex/uplatex/base/jt2gt.fd
@@ -8,14 +8,14 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
 %% 
 %% File: uplfonts.dtx
 \ProvidesFile{jt2gt.fd}
-       [2011/05/07 v1.5-u00 KANJI font defines]
+       [2018/02/04 v1.6l-u02 KANJI font defines]
 \DeclareKanjiFamily{JT2}{gt}{}
 \DeclareRelationFont{JT2}{gt}{m}{}{T1}{cmr}{bx}{}
 \DeclareFontShape{JT2}{gt}{m}{n}{<->s*[0.962216]upjisg-v}{}
diff --git a/Master/texmf-dist/tex/uplatex/base/jt2mc.fd b/Master/texmf-dist/tex/uplatex/base/jt2mc.fd
index 32f8ec100bf..602faed3cb6 100644
--- a/Master/texmf-dist/tex/uplatex/base/jt2mc.fd
+++ b/Master/texmf-dist/tex/uplatex/base/jt2mc.fd
@@ -8,14 +8,14 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
 %% 
 %% File: uplfonts.dtx
 \ProvidesFile{jt2mc.fd}
-       [2011/05/07 v1.5-u00 KANJI font defines]
+       [2018/02/04 v1.6l-u02 KANJI font defines]
 \DeclareKanjiFamily{JT2}{mc}{}
 \DeclareRelationFont{JT2}{mc}{m}{}{T1}{cmr}{m}{}
 \DeclareRelationFont{JT2}{mc}{bx}{}{T1}{cmr}{bx}{}
diff --git a/Master/texmf-dist/tex/uplatex/base/jy2gt.fd b/Master/texmf-dist/tex/uplatex/base/jy2gt.fd
index 6209741146a..ecfd110a28c 100644
--- a/Master/texmf-dist/tex/uplatex/base/jy2gt.fd
+++ b/Master/texmf-dist/tex/uplatex/base/jy2gt.fd
@@ -8,14 +8,14 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
 %% 
 %% File: uplfonts.dtx
 \ProvidesFile{jy2gt.fd}
-       [2011/05/07 v1.5-u00 KANJI font defines]
+       [2018/02/04 v1.6l-u02 KANJI font defines]
 \DeclareKanjiFamily{JY2}{gt}{}
 \DeclareRelationFont{JY2}{gt}{m}{}{T1}{cmr}{bx}{}
 \DeclareFontShape{JY2}{gt}{m}{n}{<->s*[0.962216]upjisg-h}{}
diff --git a/Master/texmf-dist/tex/uplatex/base/jy2mc.fd b/Master/texmf-dist/tex/uplatex/base/jy2mc.fd
index 0ce4dd00ec3..87f03197508 100644
--- a/Master/texmf-dist/tex/uplatex/base/jy2mc.fd
+++ b/Master/texmf-dist/tex/uplatex/base/jy2mc.fd
@@ -8,14 +8,14 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
 %% 
 %% File: uplfonts.dtx
 \ProvidesFile{jy2mc.fd}
-       [2011/05/07 v1.5-u00 KANJI font defines]
+       [2018/02/04 v1.6l-u02 KANJI font defines]
 \DeclareKanjiFamily{JY2}{mc}{}
 \DeclareRelationFont{JY2}{mc}{m}{}{T1}{cmr}{m}{}
 \DeclareRelationFont{JY2}{mc}{bx}{}{T1}{cmr}{bx}{}
diff --git a/Master/texmf-dist/tex/uplatex/base/ujarticle.cls b/Master/texmf-dist/tex/uplatex/base/ujarticle.cls
index dc09cb2e3e3..2f55a0d05d8 100644
--- a/Master/texmf-dist/tex/uplatex/base/ujarticle.cls
+++ b/Master/texmf-dist/tex/uplatex/base/ujarticle.cls
@@ -8,7 +8,7 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
@@ -16,7 +16,7 @@
 %% File: ujclasses.dtx
 \NeedsTeXFormat{pLaTeX2e}
 \ProvidesClass{ujarticle}
-  [2017/09/19 v1.7g-u00
+  [2018/02/04 v1.7h-u00
  Standard upLaTeX class]
 \newcounter{@paper}
 \newif\if@landscape \@landscapefalse
@@ -124,6 +124,7 @@
 \ExecuteOptions{a4paper,10pt,oneside,onecolumn,final}
 \ProcessOptions\relax
 \input{ujsize1\@ptsize.clo}
+\def\Cjascale{0.962216}
 \if@stysize
   \setlength\columnsep{2\Cwd}
 \else
diff --git a/Master/texmf-dist/tex/uplatex/base/ujbk10.clo b/Master/texmf-dist/tex/uplatex/base/ujbk10.clo
index 3331e8a0861..23b5e232ef2 100644
--- a/Master/texmf-dist/tex/uplatex/base/ujbk10.clo
+++ b/Master/texmf-dist/tex/uplatex/base/ujbk10.clo
@@ -8,7 +8,7 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
@@ -16,7 +16,7 @@
 %% File: ujclasses.dtx
 \NeedsTeXFormat{pLaTeX2e}
 \ProvidesFile{ujbk10.clo}
-  [2017/09/19 v1.7g-u00
+  [2018/02/04 v1.7h-u00
   Standard upLaTeX file (size option)]
 \renewcommand{\normalsize}{%
     \@setfontsize\normalsize\@xpt{15}%
diff --git a/Master/texmf-dist/tex/uplatex/base/ujbk11.clo b/Master/texmf-dist/tex/uplatex/base/ujbk11.clo
index b9566396536..1afe911e565 100644
--- a/Master/texmf-dist/tex/uplatex/base/ujbk11.clo
+++ b/Master/texmf-dist/tex/uplatex/base/ujbk11.clo
@@ -8,7 +8,7 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
@@ -16,7 +16,7 @@
 %% File: ujclasses.dtx
 \NeedsTeXFormat{pLaTeX2e}
 \ProvidesFile{ujbk11.clo}
-  [2017/09/19 v1.7g-u00
+  [2018/02/04 v1.7h-u00
   Standard upLaTeX file (size option)]
 \renewcommand{\normalsize}{%
     \@setfontsize\normalsize\@xipt{15.5}%
diff --git a/Master/texmf-dist/tex/uplatex/base/ujbk12.clo b/Master/texmf-dist/tex/uplatex/base/ujbk12.clo
index c36e7f18259..a2947ab4c71 100644
--- a/Master/texmf-dist/tex/uplatex/base/ujbk12.clo
+++ b/Master/texmf-dist/tex/uplatex/base/ujbk12.clo
@@ -8,7 +8,7 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
@@ -16,7 +16,7 @@
 %% File: ujclasses.dtx
 \NeedsTeXFormat{pLaTeX2e}
 \ProvidesFile{ujbk12.clo}
-  [2017/09/19 v1.7g-u00
+  [2018/02/04 v1.7h-u00
   Standard upLaTeX file (size option)]
 \renewcommand{\normalsize}{%
     \@setfontsize\normalsize\@xiipt{16.5}%
diff --git a/Master/texmf-dist/tex/uplatex/base/ujbook.cls b/Master/texmf-dist/tex/uplatex/base/ujbook.cls
index d7ba8f385d9..5cec7b80d92 100644
--- a/Master/texmf-dist/tex/uplatex/base/ujbook.cls
+++ b/Master/texmf-dist/tex/uplatex/base/ujbook.cls
@@ -8,7 +8,7 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
@@ -16,7 +16,7 @@
 %% File: ujclasses.dtx
 \NeedsTeXFormat{pLaTeX2e}
 \ProvidesClass{ujbook}
-  [2017/09/19 v1.7g-u00
+  [2018/02/04 v1.7h-u00
  Standard upLaTeX class]
 \newcounter{@paper}
 \newif\if@landscape \@landscapefalse
@@ -134,6 +134,7 @@
 \ExecuteOptions{a4paper,10pt,twoside,onecolumn,final,openright}
 \ProcessOptions\relax
 \input{ujbk1\@ptsize.clo}
+\def\Cjascale{0.962216}
 \if@stysize
   \setlength\columnsep{2\Cwd}
 \else
diff --git a/Master/texmf-dist/tex/uplatex/base/ujreport.cls b/Master/texmf-dist/tex/uplatex/base/ujreport.cls
index f7762375ee4..bb453e1bd5d 100644
--- a/Master/texmf-dist/tex/uplatex/base/ujreport.cls
+++ b/Master/texmf-dist/tex/uplatex/base/ujreport.cls
@@ -8,7 +8,7 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
@@ -16,7 +16,7 @@
 %% File: ujclasses.dtx
 \NeedsTeXFormat{pLaTeX2e}
 \ProvidesClass{ujreport}
-  [2017/09/19 v1.7g-u00
+  [2018/02/04 v1.7h-u00
  Standard upLaTeX class]
 \newcounter{@paper}
 \newif\if@landscape \@landscapefalse
@@ -132,6 +132,7 @@
 \ExecuteOptions{a4paper,10pt,oneside,onecolumn,final,openany}
 \ProcessOptions\relax
 \input{ujsize1\@ptsize.clo}
+\def\Cjascale{0.962216}
 \if@stysize
   \setlength\columnsep{2\Cwd}
 \else
diff --git a/Master/texmf-dist/tex/uplatex/base/ujsize10.clo b/Master/texmf-dist/tex/uplatex/base/ujsize10.clo
index a351a3c5f70..e71e180baad 100644
--- a/Master/texmf-dist/tex/uplatex/base/ujsize10.clo
+++ b/Master/texmf-dist/tex/uplatex/base/ujsize10.clo
@@ -8,7 +8,7 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
@@ -16,7 +16,7 @@
 %% File: ujclasses.dtx
 \NeedsTeXFormat{pLaTeX2e}
 \ProvidesFile{ujsize10.clo}
-  [2017/09/19 v1.7g-u00
+  [2018/02/04 v1.7h-u00
   Standard upLaTeX file (size option)]
 \renewcommand{\normalsize}{%
     \@setfontsize\normalsize\@xpt{15}%
diff --git a/Master/texmf-dist/tex/uplatex/base/ujsize11.clo b/Master/texmf-dist/tex/uplatex/base/ujsize11.clo
index f7650825aa0..a10d1dbd626 100644
--- a/Master/texmf-dist/tex/uplatex/base/ujsize11.clo
+++ b/Master/texmf-dist/tex/uplatex/base/ujsize11.clo
@@ -8,7 +8,7 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
@@ -16,7 +16,7 @@
 %% File: ujclasses.dtx
 \NeedsTeXFormat{pLaTeX2e}
 \ProvidesFile{ujsize11.clo}
-  [2017/09/19 v1.7g-u00
+  [2018/02/04 v1.7h-u00
   Standard upLaTeX file (size option)]
 \renewcommand{\normalsize}{%
     \@setfontsize\normalsize\@xipt{15.5}%
diff --git a/Master/texmf-dist/tex/uplatex/base/ujsize12.clo b/Master/texmf-dist/tex/uplatex/base/ujsize12.clo
index 132269d43c0..49e5f6688f6 100644
--- a/Master/texmf-dist/tex/uplatex/base/ujsize12.clo
+++ b/Master/texmf-dist/tex/uplatex/base/ujsize12.clo
@@ -8,7 +8,7 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
@@ -16,7 +16,7 @@
 %% File: ujclasses.dtx
 \NeedsTeXFormat{pLaTeX2e}
 \ProvidesFile{ujsize12.clo}
-  [2017/09/19 v1.7g-u00
+  [2018/02/04 v1.7h-u00
   Standard upLaTeX file (size option)]
 \renewcommand{\normalsize}{%
     \@setfontsize\normalsize\@xiipt{16.5}%
diff --git a/Master/texmf-dist/tex/uplatex/base/ukinsoku.tex b/Master/texmf-dist/tex/uplatex/base/ukinsoku.tex
index 0accc803751..f763959b86b 100644
--- a/Master/texmf-dist/tex/uplatex/base/ukinsoku.tex
+++ b/Master/texmf-dist/tex/uplatex/base/ukinsoku.tex
@@ -8,7 +8,7 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
@@ -397,8 +397,8 @@
 %%
 %%\inhibitxspcode`¡=2
 %%\inhibitxspcode`¿=2
-%%\inhibitxspcode`º=1
-%%\inhibitxspcode`ª=1
+%%\inhibitxspcode"BA=1% º
+%%\inhibitxspcode"AA=1% ª
 \inhibitxspcode`™=1
 %%
 %% inhibitxspcode  半角片仮名
diff --git a/Master/texmf-dist/tex/uplatex/base/uplatex.ltx b/Master/texmf-dist/tex/uplatex/base/uplatex.ltx
index 78d74e9ff89..1754980afc5 100644
--- a/Master/texmf-dist/tex/uplatex/base/uplatex.ltx
+++ b/Master/texmf-dist/tex/uplatex/base/uplatex.ltx
@@ -8,7 +8,7 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
@@ -23,7 +23,13 @@
          *^^J%
          **************************}
 \makeatletter
+\input plcore.ltx
 \input uplcore.ltx
+\InputIfFileExists{upldefs.cfg}
+           {\typeout{*************************************^^J%
+                     * Local config file upldefs.cfg used^^J%
+                     *************************************}}%
+           {\input{upldefs.ltx}}
 \the\everyjob
 \everyjob\expandafter{%
   \the\everyjob
diff --git a/Master/texmf-dist/tex/uplatex/base/uplcore.ltx b/Master/texmf-dist/tex/uplatex/base/uplcore.ltx
index 31214f925d6..bb02f4fa091 100644
--- a/Master/texmf-dist/tex/uplatex/base/uplcore.ltx
+++ b/Master/texmf-dist/tex/uplatex/base/uplcore.ltx
@@ -5,1100 +5,38 @@
 %% The original source files were:
 %%
 %% uplvers.dtx  (with options: `plcore')
-%% uplfonts.dtx  (with options: `plcore')
-%% plcore.dtx  (with options: `plcore')
 %% uplvers.dtx  (with options: `plfinal')
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
 %% 
 %% File: uplvers.dtx
-\def\pfmtname{pLaTeX2e}
-\def\pfmtversion
-   {2017/10/28u01}
-\def\ppatch@level{4}
-\edef\platexBANNER{\the\everyjob\noexpand\typeout{}\relax}% save LaTeX banner
-\def\plIncludeInRelease#1{\kernel@ifnextchar[%
-  {\@plIncludeInRelease{#1}}
-  {\@plIncludeInRelease{#1}[#1]}}
-\def\@plIncludeInRelease#1[#2]{\@plIncludeInRele@se{#2}}
-\def\@plIncludeInRele@se#1#2#3{%
-  \toks@{[#1] #3}%
-  \expandafter\ifx\csname\string#2+\@currname+plIIR\endcsname\relax
-    \ifnum\expandafter\@parse@version#1//00\@nil
-          >\expandafter\@parse@version\pfmtversion//00\@nil
-      \GenericInfo{}{Skipping: \the\toks@}%
-     \expandafter\expandafter\expandafter\@gobble@plIncludeInRelease
-    \else
-      \GenericInfo{}{Applying: \the\toks@}%
-      \expandafter\let\csname\string#2+\@currname+plIIR\endcsname\@empty
-    \fi
-  \else
-    \GenericInfo{}{Already applied: \the\toks@}%
-    \expandafter\@gobble@plIncludeInRelease
-  \fi
-}
-\long\def\@gobble@plIncludeInRelease#1\plEndIncludeInRelease{}
-\let\plEndIncludeInRelease\relax
-%% File: uplfonts.dtx
-\let\k@encoding\@empty
-\let\ck@encoding\@empty
-\let\cy@encoding\@empty
-\let\ct@encoding\@empty
-\let\k@family\@empty
-\let\k@series\@empty
-\let\k@shape\@empty
-\def\curr@kfontshape{\k@encoding/\k@family/\k@series/\k@shape}
-\def\rel@fontshape{\f@encoding/\f@family/\f@series/\f@shape}
-\newdimen\Cht
-\newdimen\cht
-\newdimen\Cdp
-\newdimen\cdp
-\newdimen\Cwd
-\newdimen\cwd
-\newdimen\Cvs
-\newdimen\cvs
-\newdimen\Chs
-\newdimen\chs
-\newdimen\cHT
-\let\afont\font
-\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@@}
-\def\fam@elt{\noexpand\fam@elt}
-\def\enc@elt{\noexpand\enc@elt}
-\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
-\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>}
-\let\notkfam@list\ffam@list
-\let\notffam@list\kfam@list
-\newbox\tstrutbox
-\newbox\zstrutbox
-\newbox\ystrutbox
-\def\strutbox{\iftdir\tstrutbox\else\ystrutbox\fi}
-\def\strut{\relax
-  \ifydir
-    \ifmmode\copy\ystrutbox\else\unhcopy\ystrutbox\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}}
-\def\ystrut{\relax\hbox{\yoko
-    \ifmmode\copy\ystrutbox\else\unhcopy\ystrutbox\fi}}
-\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}%
-  }
-\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@
-\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
-\def\KanjiEncodingPair#1#2{\@namedef{t@enc@#1}{#2}\@namedef{y@enc@#2}{#1}}
-\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
-    }%
-}
-\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
-     }%
-}
-\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
-\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
-  }
-\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}
-\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
-}
-\newif\if@knjcmd
-\def\userelfont{\@knjcmdtrue}
-\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
-  \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
-  \let\font\afont
-  \xdef\font@name{\csname\curr@fontshape/\f@size\endcsname}%
-  \pickup@font
-  \font@name
-  \enc@update
-  \ifx\f@linespread\baselinestretch \else
-    \set@fontsize\baselinestretch\f@size\f@baselineskip
-  \fi
-  \size@update}
-\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
-      \adjustbaseline
-      \setbox\ystrutbox\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}%
-        \let\size@update\relax}}
-\newbox\adjust@box
-\newdimen\adjust@dimen
-\def\adjustbaseline{%
-    \setbox\adjust@box\hbox{\char\jis"3441}%"
-    \cht\ht\adjust@box
-    \cdp\dp\adjust@box
-    \cwd\wd\adjust@box
-    \cvs\normalbaselineskip
-    \chs\cwd
-    \cHT\cht \advance\cHT\cdp
-  \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
-  \fi}
-\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}
-\def\@@kenc@update{%
-  \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
-\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}
-\newif\if@notkfam
-\newif\if@notffam
-\newif\if@tempswz
-\DeclareRobustCommand\romanfamily[1]{\edef\f@family{#1}}
-\DeclareRobustCommand\kanjifamily[1]{\edef\k@family{#1}}
-\DeclareRobustCommand\fontfamily[1]{%
-  \edef\tmp@item{{#1}}%
-  \@notkfamfalse
-  \@notffamfalse
-  \expandafter\expandafter\expandafter
-  \inlist@\expandafter\tmp@item\expandafter{\kfam@list}%
-  \ifin@ \edef\k@family{#1}%
-  \else
-    \expandafter\expandafter\expandafter
-    \inlist@\expandafter\tmp@item\expandafter{\notkfam@list}%
-    \ifin@ \@notkfamtrue
-    \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}%
-      \else
-        \@notkfamtrue
-        \xdef\notkfam@list{\notkfam@list\fam@elt<#1>}%
-      \fi
-  \fi\fi
-  \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
-  \if@notkfam\if@notffam
-      \edef\k@family{#1}\edef\f@family{#1}%
-  \fi\fi}
-\DeclareRobustCommand\romanseries[1]{\edef\f@series{#1}}
-\DeclareRobustCommand\kanjiseries[1]{\edef\k@series{#1}}
-\DeclareRobustCommand\fontseries[1]{\kanjiseries{#1}\romanseries{#1}}
-\DeclareRobustCommand\romanshape[1]{\edef\f@shape{#1}}
-\DeclareRobustCommand\kanjishape[1]{\edef\k@shape{#1}}
-\DeclareRobustCommand\fontshape[1]{\kanjishape{#1}\romanshape{#1}}
-\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}
-\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
-\DeclareRobustCommand\mcfamily
-        {\not@math@alphabet\mcfamily\mathmc
-         \kanjifamily\mcdefault\selectfont}
-\DeclareRobustCommand\gtfamily
-        {\not@math@alphabet\gtfamily\mathgt
-         \kanjifamily\gtdefault\selectfont}
-\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
-\DeclareTextCommandDefault{\textunderscore}{%
-  \leavevmode\kern.06em
-  \raise-\iftdir\ifmdir\ybaselineshift
-         \else\tbaselineshift\fi
-         \else\ybaselineshift\fi
-  \vbox{\hrule\@width.3em}}
-\def\g@tlastchart@#1{#1\ifx\lastnodechar\@undefined\m@ne\else\lastnodechar\fi}
-\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}}
-\InputIfFileExists{upldefs.cfg}
-           {\typeout{*************************************^^J%
-                     * Local config file upldefs.cfg used^^J%
-                     *************************************}}%
-           {\input{upldefs.ltx}}
-%% File: plcore.dtx
-\def\NeedsTeXFormat#1{%
-   \def\reserved@a{#1}%
-   \ifx\reserved@a\pfmtname
-     \expandafter\@needsPformat
-   \else
-     \ifx\reserved@a\fmtname
-       \expandafter\expandafter\expandafter\@needsformat
-     \else
-       \@latex@error{This file needs format `\reserved@a'%
-          \MessageBreak but this is `\pfmtname'}{%
-          The current input file will not be processed
-          further,\MessageBreak
-          because it was written for some other flavor of
-          TeX.\MessageBreak\@ehd}%
-       \endinput
-     \fi
-   \fi}
-\def\@needsPformat{\@ifnextchar[\@needsPf@rmat{}}
-\def\@needsPf@rmat[#1]{%
-    \@ifl@t@r\pfmtversion{#1}{}%
-    {\@latex@warning@no@line
-        {You have requested release `#1' of pLaTeX,\MessageBreak
-         but only release `\pfmtversion' is available}}}
-\@onlypreamble\@needsPformat
-\@onlypreamble\@needsPf@rmat
-\def\documentstyle{%
-  \makeatletter\input{pl209.def}\makeatother
-  \documentclass}
-\def\cleardoublepage{\clearpage\if@twoside
-  \ifodd\c@page
-    \iftdir
-      \hbox{}\thispagestyle{empty}\newpage
-      \if@twocolumn\hbox{}\newpage\fi
-    \fi
-  \else
-    \ifydir
-      \hbox{}\thispagestyle{empty}\newpage
-      \if@twocolumn\hbox{}\newpage\fi
-    \fi
-  \fi\fi}
-\def\@gnewline #1{%
-  \ifvmode
-    \@nolnerr
-  \else
-    \unskip \reserved@e {\reserved@f#1}\nobreak \hfil \break \null
-    \ignorespaces
-  \fi}
-\gdef\@makecol{%
-   \setbox\@outputbox\box\@cclv%
-   \let\@elt\relax % added on LaTeX (ltoutput.dtx 2003/12/16 v1.2k)
-   \xdef\@freelist{\@freelist\@midlist}%
-   \global \let \@midlist \@empty
-   \@combinefloats
-   \let\pltx@textbottom\@textbottom % save (pLaTeX 2017/02/25)
-   \ifvoid\footins\else % changed (pLaTeX 2017/02/25)
-     \setbox\@outputbox \vbox {%
-       \boxmaxdepth \@maxdepth
-       \unvbox \@outputbox
-       \@textbottom % inserted here (pLaTeX 2017/02/25)
-       \vskip \skip\footins
-       \color@begingroup
-         \normalcolor
-         \footnoterule
-         \unvbox \footins
-       \color@endgroup
-       }%
-       \let\@textbottom\relax % disable temporarily (pLaTeX 2017/02/25)
-   \fi
-   \ifvbox\@kludgeins
-     \@makespecialcolbox
-   \else
-     \setbox\@outputbox \vbox to\@colht {%
-       \@texttop
-       \dimen@ \dp\@outputbox
-       \unvbox \@outputbox
-       \iftdir\vbox{\hskip\z@}\fi
-       \vskip -\dimen@
-       \@textbottom
-       }%
-   \fi
-   \let\@textbottom\pltx@textbottom % restore (pLaTeX 2017/02/25)
-   \global \maxdepth \@maxdepth
-}
-\gdef\@makespecialcolbox{%
-   \setbox\@outputbox \vbox {%
-     \@texttop
-     \dimen@ \dp\@outputbox
-     \unvbox\@outputbox
-     \vskip-\dimen@
-     }%
-   \@tempdima \@colht
-   \ifdim \wd\@kludgeins>\z@
-     \advance \@tempdima -\ht\@outputbox
-     \advance \@tempdima \pageshrink
-     \setbox\@outputbox \vbox to \@colht {%
-       \unvbox\@outputbox
-       \vskip \@tempdima
-       \@textbottom
-       \ifvoid\footins\else % for pLaTeX
-         \vskip\skip\footins
-         \color@begingroup
-            \normalcolor
-            \footnoterule
-            \unvbox \footins
-         \color@endgroup
-       \fi
-     }%
-   \else
-     \advance \@tempdima -\ht\@kludgeins
-     \setbox \@outputbox \vbox to \@colht {%
-       \vbox to \@tempdima {%
-         \unvbox\@outputbox
-         \@textbottom
-         \ifvoid\footins\else % for pLaTeX
-           \vskip\skip\footins
-           \color@begingroup
-              \normalcolor
-              \footnoterule
-              \unvbox \footins
-           \color@endgroup
-         \fi
-       }\vss}%
-   \fi
-   {\setbox \@tempboxa \box \@kludgeins}%
-}
-\def\@reinserts{%
-  \ifvoid\footins\else\insert\footins{%
-    \iftbox\footins\tate\else\yoko\fi
-    \unvbox\footins}\fi
-  \ifvbox\@kludgeins\insert\@kludgeins{\unvbox\@kludgeins}\fi
-}
-\newif\iftombow \tombowfalse
-\newif\iftombowdate \tombowdatetrue
-\newdimen\@tombowwidth
-\setlength{\@tombowwidth}{.1\p@}
-\newbox\@TL\newbox\@Tl
-\newbox\@TC
-\newbox\@TR\newbox\@Tr
-\newbox\@BL\newbox\@Bl
-\newbox\@BC
-\newbox\@BR\newbox\@Br
-\newbox\@CL
-\newbox\@CR
-\font\@bannerfont=cmtt9
-\newtoks\@bannertoken
-\@bannertoken{}
-\def\maketombowbox{%
-  \setbox\@TL\hbox to\z@{\yoko\hss
-      \vrule width13mm height\@tombowwidth depth\z@
-      \vrule height10mm width\@tombowwidth depth\z@
-      \iftombowdate
-        \raise4pt\hbox to\z@{\hskip5mm\@bannerfont\the\@bannertoken\hss}%
-      \fi}%
-  \setbox\@Tl\hbox to\z@{\yoko\hss
-      \vrule width10mm height\@tombowwidth depth\z@
-      \vrule height13mm width\@tombowwidth depth\z@}%
-  \setbox\@TC\hbox{\yoko
-      \vrule width10mm height\@tombowwidth depth\z@
-      \vrule height10mm width\@tombowwidth depth\z@
-      \vrule width10mm height\@tombowwidth depth\z@}%
-  \setbox\@TR\hbox to\z@{\yoko
-      \vrule height10mm width\@tombowwidth depth\z@
-      \vrule width13mm height\@tombowwidth depth\z@\hss}%
-  \setbox\@Tr\hbox to\z@{\yoko
-      \vrule height13mm width\@tombowwidth depth\z@
-      \vrule width10mm height\@tombowwidth depth\z@\hss}%
-  \setbox\@BL\hbox to\z@{\yoko\hss
-      \vrule width13mm depth\@tombowwidth height\z@
-      \vrule depth10mm width\@tombowwidth height\z@}%
-  \setbox\@Bl\hbox to\z@{\yoko\hss
-      \vrule width10mm depth\@tombowwidth height\z@
-      \vrule depth13mm width\@tombowwidth height\z@}%
-  \setbox\@BC\hbox{\yoko
-      \vrule width10mm depth\@tombowwidth height\z@
-      \vrule depth10mm width\@tombowwidth height\z@
-      \vrule width10mm depth\@tombowwidth height\z@}%
-  \setbox\@BR\hbox to\z@{\yoko
-      \vrule depth10mm width\@tombowwidth height\z@
-      \vrule width13mm depth\@tombowwidth height\z@\hss}%
-  \setbox\@Br\hbox to\z@{\yoko
-      \vrule depth13mm width\@tombowwidth height\z@
-      \vrule width10mm depth\@tombowwidth height\z@\hss}%
-  \setbox\@CL\hbox to\z@{\yoko\hss
-      \vrule width10mm height.5\@tombowwidth depth.5\@tombowwidth
-      \vrule height10mm depth10mm width\@tombowwidth}%
-  \setbox\@CR\hbox to\z@{\yoko
-      \vrule height10mm depth10mm width\@tombowwidth
-      \vrule height.5\@tombowwidth depth.5\@tombowwidth width10mm\hss}%
-}
-\def\@outputtombow{%
-  \iftombow
-  \vbox to\z@{\kern-13mm\relax
-    \boxmaxdepth\maxdimen%% Added (Apr 1, 2016)
-    \moveleft3mm\vbox to\@@paperheight{%
-      \hbox to\@@paperwidth{\hskip3mm\relax
-         \copy\@TL\hfill\copy\@TC\hfill\copy\@TR\hskip3mm}%
-      \kern-10mm
-      \hbox to\@@paperwidth{\copy\@Tl\hfill\copy\@Tr}%
-      \vfill
-      \hbox to\@@paperwidth{\copy\@CL\hfill\copy\@CR}%
-      \vfill
-      \hbox to\@@paperwidth{\copy\@Bl\hfill\copy\@Br}%
-      \kern-10mm
-      \hbox to\@@paperwidth{\hskip3mm\relax
-         \copy\@BL\hfill\copy\@BC\hfill\copy\@BR\hskip3mm}%
-    }\vss
-  }%
-  \fi
-}
-\newdimen\@@paperheight
-\newdimen\@@paperwidth
-\newdimen\@@topmargin
-\def\@outputpage{%
-\begingroup % the \endgroup is put in by \aftergroup
-  \iftdir
-    \dimen\z@\textwidth \textwidth\textheight \textheight\dimen\z@
-  \fi
-  \let \protect \noexpand
-  \language\document@default@language
-  \@resetactivechars
-  \global\let\@@if@newlist\if@newlist
-  \global\@newlistfalse
-  \@parboxrestore
-  \shipout\vbox{\yoko
-    \set@typeset@protect
-    \aftergroup\endgroup
-    \aftergroup\set@typeset@protect
-     \if@specialpage
-       \global\@specialpagefalse\@nameuse{ps@\@specialstyle}%
-     \fi
-     \if@twoside
-       \ifodd\count\z@ \let\@thehead\@oddhead \let\@thefoot\@oddfoot
-          \iftdir\let\@themargin\evensidemargin
-          \else\let\@themargin\oddsidemargin\fi
-       \else \let\@thehead\@evenhead
-          \let\@thefoot\@evenfoot
-           \iftdir\let\@themargin\oddsidemargin
-           \else\let\@themargin\evensidemargin\fi
-     \fi\fi
-     \@@topmargin\topmargin
-     \iftombow
-       \@@paperwidth\paperwidth \advance\@@paperwidth 6mm\relax
-       \@@paperheight\paperheight \advance\@@paperheight 16mm\relax
-       \advance\@@topmargin 1in\relax \advance\@themargin 1in\relax
-     \fi
-     \reset@font
-     \normalsize
-     \normalsfcodes
-     \let\label\@gobble
-     \let\index\@gobble
-     \let\glossary\@gobble
-     \baselineskip\z@skip \lineskip\z@skip \lineskiplimit\z@
-    \@begindvi
-    \@outputtombow
-    \vskip \@@topmargin
-    \moveright\@themargin\vbox{%
-      \setbox\@tempboxa \vbox to\headheight{%
-        \vfil
-        \color@hbox
-          \normalcolor
-          \hb@xt@\textwidth{\@thehead}%
-        \color@endbox
-      }%                        %% 22 Feb 87
-      \dp\@tempboxa \z@
-      \box\@tempboxa
-      \vskip \headsep
-      \box\@outputbox
-      \baselineskip \footskip
-      \color@hbox
-        \normalcolor
-        \hb@xt@\textwidth{\@thefoot}%
-      \color@endbox
-    }%
-  }%
-  \global\let\if@newlist\@@if@newlist
-  \global \@colht \textheight
-  \stepcounter{page}%
-  \let\firstmark\botmark
-}
-\def \AtBeginDvi #1{%
-  \global \setbox \@begindvibox
-    \vbox{\yoko \unvbox \@begindvibox #1}%
-}
-\renewcommand\@makefnmark{%
-  \ifydir \hbox{}\hbox{\@textsuperscript{\normalfont\@thefnmark}}\hbox{}%
-  \else\hbox{\yoko\@textsuperscript{\normalfont\@thefnmark}}\fi}
-\ifx\@undefined\pltx@foot@penalty \newcount\pltx@foot@penalty \fi
-\pltx@foot@penalty\z@
-\def\footnote{\inhibitglue
-     \@ifnextchar[\@xfootnote{\stepcounter\@mpfn
-     \protected@xdef\@thefnmark{\thempfn}%
-     \@footnotemark\@footnotetext}}
-\def\footnotemark{\inhibitglue
-   \@ifnextchar[\@xfootnotemark
-     {\stepcounter{footnote}%
-      \protected@xdef\@thefnmark{\thefootnote}%
-      \@footnotemark}}
-\def\footnotetext{%
-  \ifhmode\pltx@foot@penalty\lastpenalty\unpenalty\fi%
-  \@ifnextchar [\@xfootnotenext
-    {\protected@xdef\@thefnmark{\thempfn}%
-     \@footnotetext}}
-\long\def\@footnotetext#1{%
-  \ifydir\def\@tempa{\yoko}\else\def\@tempa{\tate}\fi
-  \insert\footins{\@tempa%
-    \reset@font\footnotesize
-    \interlinepenalty\interfootnotelinepenalty
-    \splittopskip\footnotesep
-    \splitmaxdepth \dp\strutbox \floatingpenalty \@MM
-    \hsize\columnwidth \@parboxrestore
-    \protected@edef\@currentlabel{%
-       \csname p@footnote\endcsname\@thefnmark
-    }%
-    \color@begingroup
-      \@makefntext{%
-        \rule\z@\footnotesep\ignorespaces#1\@finalstrut\strutbox}%
-    \color@endgroup}\ifhmode\null\fi
-    \ifnum\pltx@foot@penalty=\z@\else
-      \penalty\pltx@foot@penalty
-      \pltx@foot@penalty\z@
-    \fi}
-\def\@footnotemark{\leavevmode
-  \ifhmode\edef\@x@sf{\the\spacefactor}\nobreak\fi
-  \ifydir\@makefnmark
-  \else\hbox to\z@{\hskip-.25zw\raise.9zh\@makefnmark\hss}\fi
-  \ifhmode\spacefactor\@x@sf\fi\relax}
-\def\@setref#1#2#3{%
-  \ifx#1\relax
-    \protect\G@refundefinedtrue
-    \nfss@text{\reset@font\bfseries ??}%
-    \@latex@warning{Reference `#3' on page \thepage \space
-              undefined}%
-  \else
-    \expandafter#2#1\protect\@setref@{}% change \null to \protect\@setref@{}
-  \fi}
-\def\@setref@{\ifhmode\spacefactor\@m\fi}
-\if@compatibility\else
-\def\verb{\relax\ifmmode\hbox\else\leavevmode\vadjust{}\fi
-  \bgroup
-    \verb@eol@error \let\do\@makeother \dospecials
-    \verbatim@font\@noligs
-    \language\l@nohyphenation
-    \@ifstar\@sverb\@verb}
-\fi
-\gdef\@startline{%
-     \ifnum \@nxttabmar >\@hightab
-       \@badtab
-       \global\@nxttabmar \@hightab
-     \fi
-     \global\@curtabmar \@nxttabmar
-     \global\@curtab \@curtabmar
-     \global\setbox\@curline \hbox {}%
-     \@startfield
-     \strut\inhibitglue}
-\gdef\@stopfield{\null\color@endgroup\egroup}
-\newcommand\printglossary{\@input@{\jobname.gls}}
-\newcount\hour
-\newcount\minute
-\def\@tabclassz{%
-  \ifcase\@lastchclass
-    \@acolampacol
-  \or
-    \@ampacol
-  \or
-  \or
-  \or
-    \@addamp
-  \or
-    \@acolampacol
-  \or
-    \@firstampfalse\@acol
-  \fi
-  \edef\@preamble{%
-    \@preamble{%
-      \ifcase\@chnum
-        \hfil\mbox{\inhibitglue\ignorespaces\@sharp\unskip}\hfil % c
-      \or
-        \hskip1sp\mbox{\inhibitglue\ignorespaces\@sharp\unskip}\hfil % l
-      \or
-        \hfil\hskip1sp\mbox{\inhibitglue\ignorespaces\@sharp\unskip}% % r
-      \fi}}}
-\def\@classv{\@addtopreamble{\@startpbox{\@nextchar}\mbox{}\inhibitglue\ignorespaces
-\@sharp\unskip\@endpbox}}
-\def\@tabular{\leavevmode \null\hbox \bgroup $\let\@acol\@tabacol
-   \let\@classz\@tabclassz
-   \let\@classiv\@tabclassiv \let\\\@tabularcr\@tabarray}
-\def\endtabular{\crcr\egroup\egroup $\egroup\null}
-\expandafter \let \csname endtabular*\endcsname = \endtabular
-\let\@parboxto\@empty
-\long\def\@iiiparbox#1#2[#3]#4#5{%
-  \leavevmode
-  \@pboxswfalse
-  \setlength\@tempdima{#4}%
-  \@begin@tempboxa\vbox{\hsize\@tempdima\@parboxrestore#5\@@par}%
-    \ifx\relax#2\else
-      \setlength\@tempdimb{#2}%
-      \edef\@parboxto{to\the\@tempdimb}%
-    \fi
-    \if#1b\vbox
-    \else\if #1t\vtop
-    \else\ifmmode\vcenter
-    \else\@pboxswtrue\null$\vcenter% !!!
-    \fi\fi\fi
-    \@parboxto{\let\hss\vss\let\unhbox\unvbox
-       \csname bm@#3\endcsname}%
-    \if@pboxsw \m@th$\null\fi% !!!
-  \@end@tempboxa}
-\def\underline#1{%
-  \relax
-  \ifmmode\@@underline{#1}%
-  \else \leavevmode\null$\@@underline{\hbox{#1}}\m@th$\null\relax\fi}
-\ifx\omathchar\@undefined
-  \ifx\widowpenalties\@undefined
-    \mathchardef\e@alloc@top=255
-    \let\e@alloc@chardef\chardef
-  \else
-    \mathchardef\e@alloc@top=32767
-    \let\e@alloc@chardef\mathchardef
-  \fi
+\ifx\pfmtversion\@undefined
+    \errhelp{Please update your TeX installation; if not available,
+             obtain it^^Jmanually from CTAN
+             (https://www.ctan.org/pkg/uplatex) or from^^JGitHub
+             (https://github.com/texjporg/uplatex).}%
+    \errmessage{This should not happen!^^JThere should be some
+                inconsistency in your installation;^^Jtry
+                removing old `uplatex.ltx' and install the
+                latest one}\@@end
 \else
-  \ifx\enablecjktoken\@undefined % pTeX
-    \omathchardef\e@alloc@top=65535
-    \let\e@alloc@chardef\omathchardef
-  \else                          % upTeX
-    \chardef\e@alloc@top=65535
-    \let\e@alloc@chardef\chardef
+  \ifnum\expandafter\@parse@version\pfmtversion\@nil<20180309
+    \errhelp{Please update your TeX installation; if not available,
+             obtain it^^Jmanually from CTAN
+             (https://www.ctan.org/pkg/platex) or from^^JGitHub
+             (https://github.com/texjporg/platex).}%
+    \errmessage{This version of upLaTeX2e requires pLaTeX2e 2018/03/09
+                or newer!^^JObtain a newer version of `platex',
+                otherwise upLaTeX2e setup will^^Jnever succeed}\@@end
   \fi
 \fi
-\ifx\omathchar\@undefined
-  \chardef\e@mathgroup@top=16 % LaTeX2e kernel standard
-\else
-  \mathchardef\e@mathgroup@top=256 % for e-pTeX FAM256 patched
-\fi
+\def\uppatch@level{u02}
+\edef\pfmtversion{\pfmtversion\uppatch@level}
 %% File: uplvers.dtx
 \def\documentstyle{%
   \@latex@error{upLaTeX does NOT support LaTeX 2.09 compatibility
@@ -1110,50 +48,6 @@
     New documents should use Standard LaTeX conventions, and
     start\MessageBreak with the \noexpand\documentclass command.}%
   \documentclass}
-\ifx\patch@level\@undefined % fallback if undefined in LaTeX
-  \def\patch@level{0}\fi
-\ifx\ppatch@level\@undefined % fallback if undefined in upLaTeX
-  \def\ppatch@level{0}\fi
-\begingroup
-  \def\parse@@BANNER\typeout#1\typeout#2#3\relax{#1}
-  \toks0=\expandafter\expandafter\expandafter{%
-           \expandafter\parse@@BANNER\platexBANNER}
-  \ifnum\ppatch@level=0
-    \toks2={\pfmtname\space<\pfmtversion>\space}%
-  \else\ifnum\ppatch@level>0
-    \toks2={\pfmtname\space<\pfmtversion>+\ppatch@level\space}%
-  \else
-    \toks2={\pfmtname\space<\pfmtversion>-pre\ppatch@level\space}%
-  \fi\fi
-  \edef\platexBANNER{\the\toks2 (based on \the\toks0)}
-  \global\everyjob\expandafter{%
-    \expandafter\typeout\expandafter{\platexBANNER}}%
-\endgroup
-\begingroup
-  \def\parse@@BANNER\typeout#1\typeout#2#3\relax{#2}
-  \toks0=\expandafter\expandafter\expandafter{%
-           \expandafter\parse@@BANNER\platexBANNER}
-  \edef\platexBANNER{\the\everyjob \noexpand\typeout{\the\toks0}}
-  \global\everyjob\expandafter{\platexBANNER}%
-\endgroup
-\let\platexBANNER=\@undefined
-\ifx\l@nohyphenation \@undefined
-  \newlanguage\l@nohyphenation
-\fi
-\ifx\document@default@language \@undefined
-  \let\document@default@language\m@ne
-\fi
-\AtBeginDocument{%
-  \@ifpackageloaded{latexrelease}{%
-    \@ifpackageloaded{platexrelease}{}{%
-      \@latex@warning@no@line{%
-        Package latexrelease is loaded.\MessageBreak
-        Some patches in pLaTeX2e core may be overwritten.\MessageBreak
-        Consider using platexrelease.\MessageBreak
-        See platex.pdf for detail}%
-    }%
-  }{}%
-}
 \endinput
 %%
 %% End of file `uplcore.ltx'.
diff --git a/Master/texmf-dist/tex/uplatex/base/upldefs.ltx b/Master/texmf-dist/tex/uplatex/base/upldefs.ltx
index 5db531fe170..48f137dbf41 100644
--- a/Master/texmf-dist/tex/uplatex/base/upldefs.ltx
+++ b/Master/texmf-dist/tex/uplatex/base/upldefs.ltx
@@ -8,14 +8,14 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
 %% 
 %% File: uplfonts.dtx
 \ProvidesFile{upldefs.ltx}
-      [2017/11/06 v1.6j-u00 upLaTeX Kernel (Default settings)]
+      [2018/02/04 v1.6l-u02 upLaTeX Kernel (Default settings)]
 \DeclareKanjiEncodingDefaults{}{}
 \DeclareErrorKanjiFont{JY2}{mc}{m}{n}{10}
 \DeclareYokoKanjiEncoding{JY2}{}{}
diff --git a/Master/texmf-dist/tex/uplatex/base/uptrace.sty b/Master/texmf-dist/tex/uplatex/base/uptrace.sty
index cba13346d34..e1a938ba6c7 100644
--- a/Master/texmf-dist/tex/uplatex/base/uptrace.sty
+++ b/Master/texmf-dist/tex/uplatex/base/uptrace.sty
@@ -8,7 +8,7 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
@@ -16,181 +16,8 @@
 %% File: uplfonts.dtx
 \NeedsTeXFormat{pLaTeX2e}
 \ProvidesPackage{uptrace}
-     [2017/08/05 v1.6h-u00 Standard upLaTeX package (font tracing)]
-\RequirePackageWithOptions{tracefnt}
-\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
-  \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
-  \let\font\afont
-  \xdef\font@name{\csname\curr@fontshape/\f@size\endcsname}%
-  \pickup@font
-  \font@name
-  \ifnum \tracingfonts>\tw@
-    \@font@info{Roman:Switching to \font@name}\fi
-  \enc@update
-  \ifx\f@linespread\baselinestretch \else
-    \set@fontsize\baselinestretch\f@size\f@baselineskip
-  \fi
-  \size@update}
-\plIncludeInRelease{2017/04/08}{\set@fontsize}
-                   {Construct \ystrutbox}%
-\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
-      \adjustbaseline
-      \setbox\ystrutbox\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}%
-    \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
-        \let\size@update\relax}}
-\plEndIncludeInRelease
-\plIncludeInRelease{0000/00/00}{\set@fontsize}
-                   {Construct \ystrutbox}%
-\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
-      \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}%
-    \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
-        \let\size@update\relax}}
-\plEndIncludeInRelease
-\plIncludeInRelease{2017/07/29}{\adjustbaseline}
-                   {Change zenkaku reference}%
-\def\adjustbaseline{%
-    \setbox\adjust@box\hbox{\char\jis"3441}%"
-    \cht\ht\adjust@box
-    \cdp\dp\adjust@box
-    \cwd\wd\adjust@box
-    \cvs\normalbaselineskip
-    \chs\cwd
-    \cHT\cht \advance\cHT\cdp
-  \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
-    \ifnum \tracingfonts>\tw@
-      \typeout{baselineshift:\the\tbaselineshift}%
-    \fi
-  \fi}
-\plEndIncludeInRelease
-\plIncludeInRelease{0000/00/00}{\adjustbaseline}
-                   {Change zenkaku reference}%
-\def\adjustbaseline{%
-    \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
-  \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
-    \ifnum \tracingfonts>\tw@
-      \typeout{baselineshift:\the\tbaselineshift}
-    \fi
-  \fi}
-\plEndIncludeInRelease
+     [2017/12/10 v1.6k-u02 Standard upLaTeX package (font tracing)]
+\RequirePackageWithOptions{ptrace}
 \endinput
 %%
 %% End of file `uptrace.sty'.
diff --git a/Master/texmf-dist/tex/uplatex/base/utarticle.cls b/Master/texmf-dist/tex/uplatex/base/utarticle.cls
index ccec7de858b..f9e3db25353 100644
--- a/Master/texmf-dist/tex/uplatex/base/utarticle.cls
+++ b/Master/texmf-dist/tex/uplatex/base/utarticle.cls
@@ -8,7 +8,7 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
@@ -16,7 +16,7 @@
 %% File: ujclasses.dtx
 \NeedsTeXFormat{pLaTeX2e}
 \ProvidesClass{utarticle}
-  [2017/09/19 v1.7g-u00
+  [2018/02/04 v1.7h-u00
  Standard upLaTeX class]
 \newcounter{@paper}
 \newif\if@landscape \@landscapefalse
@@ -125,6 +125,7 @@
 \ProcessOptions\relax
 \input{utsize1\@ptsize.clo}
 \RequirePackage{plext}
+\def\Cjascale{0.962216}
 \if@stysize
   \setlength\columnsep{3\Cwd}
 \else
diff --git a/Master/texmf-dist/tex/uplatex/base/utbk10.clo b/Master/texmf-dist/tex/uplatex/base/utbk10.clo
index d77bfb6dccd..18b43cb7d02 100644
--- a/Master/texmf-dist/tex/uplatex/base/utbk10.clo
+++ b/Master/texmf-dist/tex/uplatex/base/utbk10.clo
@@ -8,7 +8,7 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
@@ -16,7 +16,7 @@
 %% File: ujclasses.dtx
 \NeedsTeXFormat{pLaTeX2e}
 \ProvidesFile{utbk10.clo}
-  [2017/09/19 v1.7g-u00
+  [2018/02/04 v1.7h-u00
   Standard upLaTeX file (size option)]
 \renewcommand{\normalsize}{%
     \@setfontsize\normalsize\@xpt{17}%
diff --git a/Master/texmf-dist/tex/uplatex/base/utbk11.clo b/Master/texmf-dist/tex/uplatex/base/utbk11.clo
index ba0922fdc93..609421d8edc 100644
--- a/Master/texmf-dist/tex/uplatex/base/utbk11.clo
+++ b/Master/texmf-dist/tex/uplatex/base/utbk11.clo
@@ -8,7 +8,7 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
@@ -16,7 +16,7 @@
 %% File: ujclasses.dtx
 \NeedsTeXFormat{pLaTeX2e}
 \ProvidesFile{utbk11.clo}
-  [2017/09/19 v1.7g-u00
+  [2018/02/04 v1.7h-u00
   Standard upLaTeX file (size option)]
 \renewcommand{\normalsize}{%
     \@setfontsize\normalsize\@xipt{17}%
diff --git a/Master/texmf-dist/tex/uplatex/base/utbk12.clo b/Master/texmf-dist/tex/uplatex/base/utbk12.clo
index 959cbb7800b..cb827edc756 100644
--- a/Master/texmf-dist/tex/uplatex/base/utbk12.clo
+++ b/Master/texmf-dist/tex/uplatex/base/utbk12.clo
@@ -8,7 +8,7 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
@@ -16,7 +16,7 @@
 %% File: ujclasses.dtx
 \NeedsTeXFormat{pLaTeX2e}
 \ProvidesFile{utbk12.clo}
-  [2017/09/19 v1.7g-u00
+  [2018/02/04 v1.7h-u00
   Standard upLaTeX file (size option)]
 \renewcommand{\normalsize}{%
     \@setfontsize\normalsize\@xiipt{18}%
diff --git a/Master/texmf-dist/tex/uplatex/base/utbook.cls b/Master/texmf-dist/tex/uplatex/base/utbook.cls
index f6a2d4ea664..521cd3714c0 100644
--- a/Master/texmf-dist/tex/uplatex/base/utbook.cls
+++ b/Master/texmf-dist/tex/uplatex/base/utbook.cls
@@ -8,7 +8,7 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
@@ -16,7 +16,7 @@
 %% File: ujclasses.dtx
 \NeedsTeXFormat{pLaTeX2e}
 \ProvidesClass{utbook}
-  [2017/09/19 v1.7g-u00
+  [2018/02/04 v1.7h-u00
  Standard upLaTeX class]
 \newcounter{@paper}
 \newif\if@landscape \@landscapefalse
@@ -135,6 +135,7 @@
 \ProcessOptions\relax
 \input{utbk1\@ptsize.clo}
 \RequirePackage{plext}
+\def\Cjascale{0.962216}
 \if@stysize
   \setlength\columnsep{3\Cwd}
 \else
diff --git a/Master/texmf-dist/tex/uplatex/base/utreport.cls b/Master/texmf-dist/tex/uplatex/base/utreport.cls
index ca6a9ea8a27..99d4a4c76ce 100644
--- a/Master/texmf-dist/tex/uplatex/base/utreport.cls
+++ b/Master/texmf-dist/tex/uplatex/base/utreport.cls
@@ -8,7 +8,7 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
@@ -16,7 +16,7 @@
 %% File: ujclasses.dtx
 \NeedsTeXFormat{pLaTeX2e}
 \ProvidesClass{utreport}
-  [2017/09/19 v1.7g-u00
+  [2018/02/04 v1.7h-u00
  Standard upLaTeX class]
 \newcounter{@paper}
 \newif\if@landscape \@landscapefalse
@@ -133,6 +133,7 @@
 \ProcessOptions\relax
 \input{utsize1\@ptsize.clo}
 \RequirePackage{plext}
+\def\Cjascale{0.962216}
 \if@stysize
   \setlength\columnsep{3\Cwd}
 \else
diff --git a/Master/texmf-dist/tex/uplatex/base/utsize10.clo b/Master/texmf-dist/tex/uplatex/base/utsize10.clo
index 19b283fcd0a..5ff06bb89c2 100644
--- a/Master/texmf-dist/tex/uplatex/base/utsize10.clo
+++ b/Master/texmf-dist/tex/uplatex/base/utsize10.clo
@@ -8,7 +8,7 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
@@ -16,7 +16,7 @@
 %% File: ujclasses.dtx
 \NeedsTeXFormat{pLaTeX2e}
 \ProvidesFile{utsize10.clo}
-  [2017/09/19 v1.7g-u00
+  [2018/02/04 v1.7h-u00
   Standard upLaTeX file (size option)]
 \renewcommand{\normalsize}{%
     \@setfontsize\normalsize\@xpt{17}%
diff --git a/Master/texmf-dist/tex/uplatex/base/utsize11.clo b/Master/texmf-dist/tex/uplatex/base/utsize11.clo
index 37fad7c8de6..ebfb005c448 100644
--- a/Master/texmf-dist/tex/uplatex/base/utsize11.clo
+++ b/Master/texmf-dist/tex/uplatex/base/utsize11.clo
@@ -8,7 +8,7 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
@@ -16,7 +16,7 @@
 %% File: ujclasses.dtx
 \NeedsTeXFormat{pLaTeX2e}
 \ProvidesFile{utsize11.clo}
-  [2017/09/19 v1.7g-u00
+  [2018/02/04 v1.7h-u00
   Standard upLaTeX file (size option)]
 \renewcommand{\normalsize}{%
     \@setfontsize\normalsize\@xipt{17}%
diff --git a/Master/texmf-dist/tex/uplatex/base/utsize12.clo b/Master/texmf-dist/tex/uplatex/base/utsize12.clo
index fbe83bbe6c9..aa739cb842e 100644
--- a/Master/texmf-dist/tex/uplatex/base/utsize12.clo
+++ b/Master/texmf-dist/tex/uplatex/base/utsize12.clo
@@ -8,7 +8,7 @@
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
 %% Copyright (c) 2016 Takuji Tanaka
-%% Copyright (c) 2016 Japanese TeX Development Community
+%% Copyright (c) 2016-2018 Japanese TeX Development Community
 %% 
 %% This file is part of the upLaTeX2e system (community edition).
 %% --------------------------------------------------------------
@@ -16,7 +16,7 @@
 %% File: ujclasses.dtx
 \NeedsTeXFormat{pLaTeX2e}
 \ProvidesFile{utsize12.clo}
-  [2017/09/19 v1.7g-u00
+  [2018/02/04 v1.7h-u00
   Standard upLaTeX file (size option)]
 \renewcommand{\normalsize}{%
     \@setfontsize\normalsize\@xiipt{18}%