%%
-%% luatexja-latex-fonts.sty: derived from plfonts.dtx in pLaTeX.
+%% lltjfont.sty: derived from plfonts.dtx in pLaTeX.
%%
\makeatletter
\let\k@encoding\@empty
% LuaTeX-ja uses JY3 and JT3 encodings.
\def\cy@encoding{JY3}\def\ct@encoding{JT3}
-
\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
+\ifdefined\Cht\else\newdimen\Cht\fi
+\ifdefined\cht\else\newdimen\cht\fi
+\ifdefined\Cdp\else\newdimen\Cdp\fi
+\ifdefined\cdp\else\newdimen\cdp\fi
+\ifdefined\Cwd\else\newdimen\Cwd\fi
+\ifdefined\cwd\else\newdimen\cwd\fi
+\ifdefined\Cvs\else\newdimen\Cvs\fi
+\ifdefined\cvs\else\newdimen\cvs\fi
+\ifdefined\Chs\else\newdimen\Chs\fi
+\ifdefined\chs\else\newdimen\chs\fi
+\ifdefined\cHT\else\newdimen\cHT\fi
%\let\afont\font
\def\inlist@#1#2{%
\def\in@@##1<#1>##2##3\in@@{%
\newbox\tstrutbox
\newbox\zstrutbox
\def\strut{\relax
-% \ifydir
+ \ifydir
\ifmmode\copy\strutbox\else\unhcopy\strutbox\fi
-% \else
-% \ifmmode\copy\tstrutbox\else\unhcopy\tstrutbox\fi
-% \fi}
+ \else
+ \ifmmode\copy\tstrutbox\else\unhcopy\tstrutbox\fi
+ \fi
}
\def\tstrut{\relax\hbox{\tate
\ifmmode\copy\tstrutbox\else\unhcopy\tstrutbox\fi}}
\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
+ %% \@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\fi
\expandafter\expandafter\expandafter
\inlist@\expandafter\tmp@item\expandafter{\ffam@list}%
\ltj@@al@do@subst@correction
\fi
}
-
+\let\@@italiccorr=\/
%%%%%% Japanese font for math mode
}
\def\getanddefine@fonts#1#2{%
- \ltj@tempcnta=#1 \ltj@@IsFontJapanese{\string#2}%
+ \ltj@tempcnta=#1\ltj@@IsFontJapanese{\string#2}%
\ifin@\ltj@@ja@getanddefine@fonts{#1}{#2}%
\else \ltj@@al@getanddefine@fonts{#1}{#2}\fi
}