uplatex (27aug17)

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

4 files changed, 182 insertions, 72 deletions

diff --git a/Master/texmf-dist/source/uplatex/base/plcore.dtx b/Master/texmf-dist/source/uplatex/base/plcore.dtx
index 5cdc2337634..bac04240e68 100644
--- a/Master/texmf-dist/source/uplatex/base/plcore.dtx
+++ b/Master/texmf-dist/source/uplatex/base/plcore.dtx
@@ -68,13 +68,15 @@
 % \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}
 % \fi
 %
 % \iffalse
 %<*driver>
 \NeedsTeXFormat{pLaTeX2e}
 % \fi
-\ProvidesFile{plcore.dtx}[2017/07/21 v1.2p pLaTeX core file]
+\ProvidesFile{plcore.dtx}[2017/08/25 v1.2q pLaTeX core file]
 % \iffalse
 \documentclass{jltxdoc}
 \GetFileInfo{plcore.dtx}
@@ -269,8 +271,15 @@
 % $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}
 %    \begin{macrocode}
-%<platexrelease>\plIncludeInRelease{2017/05/05}{\@no@lnbk}
+%<platexrelease>\plIncludeInRelease{2017/07/29}{\@no@lnbk}
 %<platexrelease>                   {Break before prebreakpenalty}%
 %<*plcore|platexrelease>
 \def\@no@lnbk #1[#2]{%
@@ -280,7 +289,7 @@
     \@tempskipa\lastskip
     \unskip
     \penalty #1\@getpen{#2}%
-    \hskip\z@\relax %% added (2017/05/03)
+    \penalty\z@\relax %% added (2017/08/25)
     \ifdim\@tempskipa>\z@
       \hskip\@tempskipa
       \ignorespaces
@@ -288,6 +297,22 @@
   \fi}
 %</plcore|platexrelease>
 %<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]{%
diff --git a/Master/texmf-dist/source/uplatex/base/ukinsoku.dtx b/Master/texmf-dist/source/uplatex/base/ukinsoku.dtx
index 046b122b6f2..12f031facb8 100644
--- a/Master/texmf-dist/source/uplatex/base/ukinsoku.dtx
+++ b/Master/texmf-dist/source/uplatex/base/ukinsoku.dtx
@@ -7,7 +7,7 @@
 %
 %  Copyright (c) 2010 ASCII MEDIA WORKS
 %  Copyright (c) 2016 Takuji Tanaka
-%  Copyright (c) 2016 Japanese TeX Development Community
+%  Copyright (c) 2016-2017 Japanese TeX Development Community
 %
 %  This file is part of the upLaTeX2e system (community edition).
 %  --------------------------------------------------------------
@@ -19,10 +19,19 @@
 % \StopEventually{}
 %
 % \iffalse
+% \changes{v1.0-u00}{2011/05/07}{p\LaTeX{}用からup\LaTeX{}用に修正。}
+% \changes{v1.0-u01}{2017/08/02}{U+00B7 (MIDDLE DOT; JIS X 0213)の
+%    前禁則ペナルティをU+30FBと同じ値に設定、注意点を明文化}
+% \changes{v1.0b}{2017/08/05}{％、＆、\%、\&の禁則ペナルティが
+%      誤っていたのを修正（post $\rightarrow$ pre）}
+% \changes{v1.0b-u01}{2017/08/05}{p\LaTeX{}の変更に追随}
+% \fi
+%
+% \iffalse
 %<*driver>
 \NeedsTeXFormat{pLaTeX2e}
 % \fi
-\ProvidesFile{ukinsoku.dtx}[2011/05/07 v1.0-u00 upLaTeX Kernel]
+\ProvidesFile{ukinsoku.dtx}[2017/08/05 v1.0b-u01 upLaTeX Kernel]
 % \iffalse
 \documentclass{jltxdoc}
 \GetFileInfo{ukinsoku.dtx}
@@ -41,7 +50,9 @@
 % 参照してください。
 %
 % なお、このファイルのコード部分は、
-% 以前のバージョンで配布された\file{ukinsoku.tex}と同一です。
+% p\TeX{}やp\LaTeX{}で配布されている\file{kinsoku.tex}に、
+% JIS X 0213の定義文字などの設定を追加したものです。
+% \changes{v1.0-u00}{2011/05/07}{p\LaTeX{}用からup\LaTeX{}用に修正。}
 %
 %    \begin{macrocode}
 %<*plcore>
@@ -55,6 +66,8 @@
 %
 % \subsection{半角文字に対する禁則}
 % ここでは、半角文字に対する禁則の設定を行なっています。
+% \changes{v1.0b}{2017/08/05}{％、＆、\%、\&の禁則ペナルティが
+%      誤っていたのを修正（post $\rightarrow$ pre）}
 %
 %    \begin{macrocode}
 %%
@@ -65,8 +78,8 @@
 \prebreakpenalty`"=10000
 \postbreakpenalty`\#=500
 \postbreakpenalty`\$=500
-\postbreakpenalty`\%=500
-\postbreakpenalty`\&=500
+\prebreakpenalty`\%=500
+\prebreakpenalty`\&=500
 \postbreakpenalty`\`=10000
 \prebreakpenalty`'=10000
 \prebreakpenalty`)=10000
@@ -87,6 +100,29 @@
 % \subsection{全角文字に対する禁則}
 % ここでは、全角文字に対する禁則の設定を行なっています。
 %
+% up\TeX{}/up\LaTeX{}の場合、JIS X 0213（日本）・KS C 5601（韓国）・
+% GB2312（中国）・Big5（台湾）などの文字集合に含まれる、
+% いわゆる全角文字の一部が、8-bit Latinと同じコードポイントを
+% 共有します。すなわち、同じコードポイントが、CJKトークンとしても
+% non-CJKトークンとしても有効に扱われることがあります。
+% 以下に例を示します\footnote{ここで表示しているnon-CJKトークンと
+% して扱われた結果は、up\LaTeX{}のデフォルト従属欧文エンコーディング
+% であるT1の場合のものです。}。
+% {\font\lmr=rm-lmr10\lmr
+% \begin{itemize}
+% \item \texttt{0xA1}: \kchar"A1 (CJK) vs. \char"A1\ (non-CJK)
+% \item \texttt{0xAB}: \kchar"AB (CJK) vs. \char"AB\ (non-CJK)
+% \item \texttt{0xB7}: \kchar"B7 (CJK) vs. \char"B7\ (non-CJK)
+% \item \texttt{0xB9}: \kchar"B9 (CJK) vs. \char"B9\ (non-CJK)
+% \item …
+% \end{itemize}}
+% \file{ukinsoku.tex}ではCJKトークンを優先した禁則設定を行っています。
+% この設定により、同じコードポイントをnon-CJKトークンとして扱う場合に
+% 予期せずLatin-1の文字が禁則対象になってしまいます。
+% 問題が起きた場合は禁則の設定を調整してください。
+% \changes{v1.0-u01}{2017/08/02}{U+00B7 (MIDDLE DOT; JIS X 0213)の
+%    前禁則ペナルティをU+30FBと同じ値に設定、注意点を明文化}
+%
 %    \begin{macrocode}
 %%全角文字
 \prebreakpenalty`、=10000
@@ -136,8 +172,8 @@
 \prebreakpenalty`＝=200
 \postbreakpenalty`＃=200
 \postbreakpenalty`＄=200
-\postbreakpenalty`％=200
-\postbreakpenalty`＆=200
+\prebreakpenalty`％=200
+\prebreakpenalty`＆=200
 \prebreakpenalty`ぁ=150
 \prebreakpenalty`ぃ=150
 \prebreakpenalty`ぅ=150
@@ -191,6 +227,7 @@
 \postbreakpenalty`¡=10000
 \postbreakpenalty`¿=10000
 \prebreakpenalty`ː=10000
+\prebreakpenalty`·=10000
 \prebreakpenalty`ª=10000
 \prebreakpenalty`º=10000
 \prebreakpenalty`¹=10000
@@ -485,8 +522,8 @@
 %%
 %% inhibitxspcode  JIS X 0212
 %%
-%%\inhibitxspcode`¡=1
-%%\inhibitxspcode`¿=1
+%%\inhibitxspcode`¡=2
+%%\inhibitxspcode`¿=2
 %%\inhibitxspcode`º=1
 %%\inhibitxspcode`ª=1
 \inhibitxspcode`™=1
diff --git a/Master/texmf-dist/source/uplatex/base/uplfonts.dtx b/Master/texmf-dist/source/uplatex/base/uplfonts.dtx
index eeff52edb43..5f21c1e7c14 100644
--- a/Master/texmf-dist/source/uplatex/base/uplfonts.dtx
+++ b/Master/texmf-dist/source/uplatex/base/uplfonts.dtx
@@ -38,7 +38,7 @@
 %    入らないのを修正}
 % \changes{v1.3j}{2000/10/24}{\cs{adjustbaseline}で余分なアキが入らない
 %    ようにした}
-% \changes{v1.3k}{2001/05/10}{\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}コマンド内部フラグ変更}
@@ -75,13 +75,16 @@
 % \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{}の変更に追随。}
 % \fi
 %
 % \iffalse
 %<*driver>
 \NeedsTeXFormat{pLaTeX2e}
 % \fi
-\ProvidesFile{uplfonts.dtx}[2017/03/08 v1.6g-u00 upLaTeX New Font Selection Scheme]
+\ProvidesFile{uplfonts.dtx}[2017/08/05 v1.6h-u00 upLaTeX New Font Selection Scheme]
 % \iffalse
 \documentclass{jltxdoc}
 \GetFileInfo{uplfonts.dtx}
@@ -155,7 +158,7 @@
 %<*trace>
 \NeedsTeXFormat{pLaTeX2e}
 \ProvidesPackage{uptrace}
-     [2017/03/05 v1.6f-u00 Standard upLaTeX package (font tracing)]
+     [2017/08/05 v1.6h-u00 Standard upLaTeX package (font tracing)]
 \RequirePackageWithOptions{tracefnt}
 %</trace>
 %    \end{macrocode}
@@ -1156,6 +1159,8 @@
     \set@fontsize\baselinestretch\f@size\f@baselineskip
   \fi
   \size@update}
+%</plcore|trace>
+%<*plcore>
 %    \end{macrocode}
 % \end{macro}
 %
@@ -1174,7 +1179,7 @@
 % |\fontsize|コマンドの内部形式です。
 % ベースラインの設定と、支柱の設定を行ないます。
 %    \begin{macrocode}
-%</plcore|trace>
+%</plcore>
 %<platexrelease|trace>\plIncludeInRelease{2017/04/08}{\set@fontsize}
 %<platexrelease|trace>                   {Construct \ystrutbox}%
 %<*plcore|platexrelease|trace>
@@ -1258,7 +1263,7 @@
 %</trace>
 %<platexrelease|trace>        \let\size@update\relax}}
 %<platexrelease|trace>\plEndIncludeInRelease
-%<*plcore|trace>
+%<*plcore>
 %    \end{macrocode}
 % \end{macro}
 %
@@ -1268,30 +1273,41 @@
 % 現在の欧文フォントの``/''の中央がくるようにベースラインシフトを設定します。
 % \changes{v1.0c}{1995/08/31}{欧文書体の基準を`M'から`/'に変更}
 % \changes{v1.2}{1995/11/21}{縦組時のみ調整するようにした}
-% \changes{v1.3j}{2000/10/24}{文頭に鈎括弧などがあるときに余計なアキがで
-%    る問題に対処}
-% \changes{v1.3l}{2002/04/05}{\cs{adjustbaseline}でフォントの基準値が縦書き
-%    以外では設定されないのを修正}
 %
 % 当初はまずベースラインシフト量をゼロにしていましたが、
 % \cs{tbaselineshift}を連続して変更した後に鈎括弧類を使うと余計なアキが
 % でる問題が起こるため、\cs{tbaselineshift}をゼロクリアする処理を削除し
 % ました。
+% \changes{v1.3j}{2000/10/24}{文頭に鈎括弧などがあるときに余計なアキがで
+%    る問題に対処}
 %
 % しかし、それではベースラインシフトを調整済みの欧文ボックスと比較して
 % しまうため、計算した値が大きくなってしまいます。そこで、このボックス
 % の中でゼロにするようにしました。また、``/''と比較していたのを``M''に 
 % しました。
-% \changes{v1.3k}{2001/05/10}{\cs{adjustbaseline}の調整量
-%    （再び`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\euc"A1A1}%"
+    \setbox\adjust@box\hbox{\char\jis"3441}%"
     \cht\ht\adjust@box
     \cdp\dp\adjust@box
     \cwd\wd\adjust@box
@@ -1305,10 +1321,11 @@
 %
 % \begin{eqnarray*}
 % \textmc{ベースラインシフト量} &=&
-%   \{ (\textmc{全角空白の深さ}) - (\textmc{Mの深さ}) \} \\
-%       &&- \frac{(\textmc{全角空白の高さ$+$深さ})
+%   \{ (\textmc{漢の深さ}) - (\textmc{Mの深さ}) \} \\
+%       &&- \frac{(\textmc{漢の高さ$+$深さ})
 %              - (\textmc{Mの高さ$+$深さ})}{2}
 % \end{eqnarray*}
+% \changes{v1.6h}{2017/08/05}{traceのコードの\texttt{\%}忘れを修正}
 %
 %    \begin{macrocode}
   \iftdir
@@ -1320,11 +1337,38 @@
     \advance\adjust@dimen\cdp
     \advance\adjust@dimen-\dp\adjust@box
     \tbaselineshift\adjust@dimen
-%<trace>  \ifnum \tracingfonts>\tw@
-%<trace>    \typeout{baselineshift:\the\tbaselineshift}
-%<trace>  \fi
+%<trace>    \ifnum \tracingfonts>\tw@
+%<trace>      \typeout{baselineshift:\the\tbaselineshift}%
+%<trace>    \fi
   \fi}
-%</plcore|trace>
+%</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}
@@ -1418,7 +1462,9 @@
 }
 \let\kenc@update\relax
 %    \end{macrocode}
+% \end{macro}
 %
+% \begin{macro}{\@changed@kcmd}
 % |\@changed@cmd|の和文エンコーディングバージョン。
 % \changes{v1.3n}{2004/08/10}{和文エンコーディングの切り替えを有効化}
 %    \begin{macrocode}
@@ -1765,42 +1811,6 @@
 % \end{macro}
 %
 %
-%
-% \subsection{デフォルト設定ファイルの読み込み}
-% 最後に、デフォルト設定ファイルである、\file{upldefs.ltx}を読み込みます。
-% このファイルについての詳細は、第\ref{plfonts:pldefs}節を参照してください。
-% \TeX{}の入力ファイル検索パスに設定されているディレクトリに\file{upldefs.cfg}%
-% ファイルがある場合は、そのファイルを使います。
-%    \begin{macrocode}
-\InputIfFileExists{upldefs.cfg}
-           {\typeout{*************************************^^J%
-                     * Local config file upldefs.cfg used^^J%
-                     *************************************}}%
-           {\input{upldefs.ltx}}
-%</plcore>
-%    \end{macrocode}
-%
-%
-%
-%
-% \section{デフォルト設定ファイル}\label{plfonts:pldefs}
-% ここでは、フォーマットファイルに読み込まれるデフォルト値を設定しています。
-% この節での内容は\file{pldefs.ltx}に出力されます。
-% このファイルの内容を\file{plcore.ltx}に含めてもよいのですが、
-% デフォルトの設定を参照しやすいように、別ファイルにしてあります。
-% \file{pldefs.ltx}は\file{plcore.ltx}から読み込まれます。
-%
-% プリロードサイズは、\dst{}プログラムのオプションで変更することができます。
-% これ以外の設定を変更したい場合は、\file{pldefs.ltx}を
-% 直接、修正するのではなく、このファイルを\file{pldefs.cfg}という名前で
-% コピーをして、そのファイルに対して修正を加えるようにしてください。
-%    \begin{macrocode}
-%<*pldefs>
-\ProvidesFile{upldefs.ltx}
-      [2016/06/29 v1.6e-u00 upLaTeX Kernel (Default settings)] 
-%</pldefs>
-%    \end{macrocode}
-%
 % \subsection{合成文字}
 % \LaTeXe{}のカーネルのコードをそのまま使うと、p\TeX{}のベースライン
 % 補正量がゼロでないときに合成文字がおかしくなっていたため、対策します。
@@ -1811,11 +1821,12 @@
 % $-1$が返ります。
 % \changes{v1.6c}{2016/06/06}{マクロ追加}
 %    \begin{macrocode}
+%</plcore>
 %<platexrelease>\plIncludeInRelease{2016/06/10}{\g@tlastchart@}
 %<platexrelease>                   {Added \g@tlastchart@}%
-%<*pldefs|platexrelease>
+%<*plcore|platexrelease>
 \def\g@tlastchart@#1{#1\ifx\lastnodechar\@undefined\m@ne\else\lastnodechar\fi}
-%</pldefs|platexrelease>
+%</plcore|platexrelease>
 %<platexrelease>\plEndIncludeInRelease
 %<platexrelease>\plIncludeInRelease{0000/00/00}{\g@tlastchart@}
 %<platexrelease>                   {Added \g@tlastchart@}%
@@ -1832,7 +1843,7 @@
 %    \begin{macrocode}
 %<platexrelease>\plIncludeInRelease{2016/06/10}{\pltx@isletter}
 %<platexrelease>                   {Added \pltx@isletter}%
-%<*pldefs|platexrelease>
+%<*plcore|platexrelease>
 \def\pltx@mark{\pltx@mark@}
 \let\pltx@scanstop\relax
 \long\def\pltx@cond#1\fi{%
@@ -1851,7 +1862,7 @@
     \pltx@cond{\ifnum0\ifcat A\noexpand#21\fi\ifcat=\noexpand#21\fi>\z@}\fi
       {\@firstoftwo}{\@secondoftwo}%
   }{\@secondoftwo}}
-%</pldefs|platexrelease>
+%</plcore|platexrelease>
 %<platexrelease>\plEndIncludeInRelease
 %<platexrelease>\plIncludeInRelease{0000/00/00}{\pltx@isletter}
 %<platexrelease>                   {Added \pltx@isletter}%
@@ -1990,10 +2001,46 @@
 %<platexrelease>   \fi
 %<platexrelease>   #1}
 %<platexrelease>\plEndIncludeInRelease
-%<*pldefs>
+%<*plcore>
 %    \end{macrocode}
 % \end{macro}
 %
+%
+% \subsection{デフォルト設定ファイルの読み込み}
+% 最後に、デフォルト設定ファイルである、\file{upldefs.ltx}を読み込みます。
+% このファイルについての詳細は、第\ref{plfonts:pldefs}節を参照してください。
+% \TeX{}の入力ファイル検索パスに設定されているディレクトリに\file{upldefs.cfg}%
+% ファイルがある場合は、そのファイルを使います。
+%    \begin{macrocode}
+\InputIfFileExists{upldefs.cfg}
+           {\typeout{*************************************^^J%
+                     * Local config file upldefs.cfg used^^J%
+                     *************************************}}%
+           {\input{upldefs.ltx}}
+%</plcore>
+%    \end{macrocode}
+%
+%
+%
+%
+% \section{デフォルト設定ファイル}\label{plfonts:pldefs}
+% ここでは、フォーマットファイルに読み込まれるデフォルト値を設定しています。
+% この節での内容は\file{pldefs.ltx}に出力されます。
+% このファイルの内容を\file{plcore.ltx}に含めてもよいのですが、
+% デフォルトの設定を参照しやすいように、別ファイルにしてあります。
+% \file{pldefs.ltx}は\file{plcore.ltx}から読み込まれます。
+%
+% プリロードサイズは、\dst{}プログラムのオプションで変更することができます。
+% これ以外の設定を変更したい場合は、\file{pldefs.ltx}を
+% 直接、修正するのではなく、このファイルを\file{pldefs.cfg}という名前で
+% コピーをして、そのファイルに対して修正を加えるようにしてください。
+%    \begin{macrocode}
+%<*pldefs>
+\ProvidesFile{upldefs.ltx}
+      [2017/08/05 v1.6h-u00 upLaTeX Kernel (Default settings)]
+%</pldefs>
+%    \end{macrocode}
+%
 % \subsection{イタリック補正}
 % \changes{v1.3i}{2000/07/13}{\cs{text..}コマンドの左側に\cs{xkanjiskip}が
 %    入らないのを修正（ありがとう、乙部＠東大さん）}
@@ -2001,6 +2048,7 @@
 % 「\verb|あ\texttt{abc}い|」としたとき、書体の変更を指定された欧文の左側に
 % 和欧文間スペースが入らないのを修正します。
 %    \begin{macrocode}
+%<*pldefs>
 \def \check@nocorr@ #1#2\nocorr#3\@nil {%
   \let \check@icl \relax% \maybe@ic から変更
   \def \check@icr {\ifvmode \else \aftergroup \maybe@ic \fi}%
diff --git a/Master/texmf-dist/source/uplatex/base/uplvers.dtx b/Master/texmf-dist/source/uplatex/base/uplvers.dtx
index c22ee6aa824..5d82221377b 100644
--- a/Master/texmf-dist/source/uplatex/base/uplvers.dtx
+++ b/Master/texmf-dist/source/uplatex/base/uplvers.dtx
@@ -142,7 +142,7 @@
    {2017/07/29u01}
 %</plcore|platexrelease>
 %<*plcore>
-\def\ppatch@level{0}
+\def\ppatch@level{1}
 %</plcore>
 %    \end{macrocode}
 % \end{macro}