\def\extract@jfont{%
\get@external@font
\ltj@@does@alt@set{\f@encoding/\f@family/\f@series/\f@shape}{%
- \edef\external@font{\expandafter\ltj@@patch@external@font\romannumeral-`0\external@font}%
+ \edef\external@font{\expandafter\ltj@@patch@external@font\external@font}%
}%
\expandafter\globaljfont\font@name\external@font\relax\font@name% ここで時間がかかる
\csname \f@encoding+\f@family\endcsname
\let\ltj@@al@getanddefine@fonts=\getanddefine@fonts
\def\ltj@@ja@getanddefine@fonts#1#2{%
- \let\if@ltj@tempif\ifltjselectfont@force@define
+ \csletcs{if@ltj@tempif}{ifltjselectfont@force@define}%
\ltjselectfont@force@definetrue
\xdef\font@name{\csname \string#2/\tf@size\endcsname}%
\pickup@jfont\let\textfont@name\font@name
\pickup@jfont\let\scriptfont@name\font@name
\xdef\font@name{\csname \string#2/\ssf@size\endcsname}%
\pickup@jfont
- \let\ifltjselectfont@force@define\if@ltj@tempif
+ \csletcs{ifltjselectfont@force@define}{if@ltj@tempif}%
\edef\math@fonts{\math@fonts\ltj@setpar@global%
\ltj@@set@stackfont#1,\textfont@name:{MJT}%
\ltj@@set@stackfont#1,\scriptfont@name:{MJS}%