2 %% luatexja-latex-fonts.sty: derived from plfonts.dtx in pLaTeX.
6 \let\ck@encoding\@empty
7 % LuaTeX-ja uses JY3 and JT3 encodings.
8 \def\cy@encoding{JY3}\def\ct@encoding{JT3}
14 \def\curr@kfontshape{\k@encoding/\k@family/\k@series/\k@shape}
15 \def\rel@fontshape{\f@encoding/\f@family/\f@series/\f@shape}
29 \def\in@@##1<#1>##2##3\in@@{%
30 \ifx\in@##2\in@false\else\in@true\fi}%
32 \def\fam@elt{\noexpand\fam@elt}
33 \def\enc@elt{\noexpand\enc@elt}
34 \def\fenc@list{\enc@elt<OML>\enc@elt<T1>\enc@elt<OT1>\enc@elt<OMS>%
35 \enc@elt<OMX>\enc@elt<TS1>\enc@elt<U>}
37 \let\kyenc@list\@empty
38 \let\ktenc@list\@empty
39 \def\kfam@list{\fam@elt<mc>\fam@elt<gt>}
40 \def\ffam@list{\fam@elt<cmr>\fam@elt<cmss>\fam@elt<cmtt>%
41 \fam@elt<cmm>\fam@elt<cmsy>\fam@elt<cmex>}
42 \let\notkfam@list\ffam@list
43 \let\notffam@list\kfam@list
48 \ifmmode\copy\strutbox\else\unhcopy\strutbox\fi
50 \ifmmode\copy\tstrutbox\else\unhcopy\tstrutbox\fi
52 \def\tstrut{\relax\hbox{\tate
53 \ifmmode\copy\tstrutbox\else\unhcopy\tstrutbox\fi}}
54 \def\zstrut{\relax\hbox{\tate
55 \ifmmode\copy\zstrutbox\else\unhcopy\zstrutbox\fi}}
56 \def\DeclareFontEncoding{%
60 \DeclareFontEncoding@}
61 \def\DeclareFontEncoding@#1#2#3{%
63 \ifx\csname T@#1\endcsname\relax
64 \def\cdp@elt{\noexpand\cdp@elt}%
65 \xdef\cdp@list{\cdp@list\cdp@elt{#1}%
66 {\default@family}{\default@series}%
68 \expandafter\let\csname#1-cmd\endcsname\@changed@cmd
69 \def\enc@elt{\noexpand\enc@elt}%
70 \xdef\fenc@list{\fenc@list\enc@elt<#1>}%
72 \@font@info{Redeclaring font encoding #1}%
74 \global\@namedef{T@#1}{#2}%
75 \global\@namedef{M@#1}{\default@M#3}%
76 \xdef\LastDeclaredEncoding{#1}%
78 \def\DeclareKanjiEncoding#1{%
80 The \string\DeclareKanjiEncoding\space is obsoleted command. Please use
82 the \string\DeclareTateKanjiEncoding\space for `Tate-kumi' encoding, and
84 the \string\DeclareYokoKanjiEncoding\space for `Yoko-kumi' encoding.
86 I treat the `#1' encoding as `Yoko-kumi'.}
87 \DeclareYokoKanjiEncoding{#1}%
89 \def\DeclareYokoKanjiEncoding{%
93 \DeclareYokoKanjiEncoding@}
94 \def\DeclareYokoKanjiEncoding@#1#2#3{%
96 \ifx\csname T@#1\endcsname\relax
97 \def\cdp@elt{\noexpand\cdp@elt}%
98 \xdef\cdp@list{\cdp@list\cdp@elt{#1}%
99 {\default@k@family}{\default@k@series}%
101 \expandafter\let\csname#1-cmd\endcsname\@changed@kcmd
102 \def\enc@elt{\noexpand\enc@elt}%
103 \xdef\kyenc@list{\kyenc@list\enc@elt<#1>}%
104 \xdef\kenc@list{\kenc@list\enc@elt<#1>}%
106 \@font@info{Redeclaring KANJI (yoko) font encoding #1}%
108 \global\@namedef{T@#1}{#2}%
109 \global\@namedef{M@#1}{\default@KM#3}%
111 \def\DeclareTateKanjiEncoding{%
114 \expandafter\endgroup
115 \DeclareTateKanjiEncoding@}
116 \def\DeclareTateKanjiEncoding@#1#2#3{%
118 \ifx\csname T@#1\endcsname\relax
119 \def\cdp@elt{\noexpand\cdp@elt}%
120 \xdef\cdp@list{\cdp@list\cdp@elt{#1}%
121 {\default@k@family}{\default@k@series}%
123 \expandafter\let\csname#1-cmd\endcsname\@changed@kcmd
124 \def\enc@elt{\noexpand\enc@elt}%
125 \xdef\ktenc@list{\ktenc@list\enc@elt<#1>}%
126 \xdef\kenc@list{\kenc@list\enc@elt<#1>}%
128 \@font@info{Redeclaring KANJI (tate) font encoding #1}%
130 \global\@namedef{T@#1}{#2}%
131 \global\@namedef{M@#1}{\default@KM#3}%
133 \@onlypreamble\DeclareKanjiEncoding
134 \@onlypreamble\DeclareYokoKanjiEncoding
135 \@onlypreamble\DeclareYokoKanjiEncoding@
136 \@onlypreamble\DeclareTateKanjiEncoding
137 \@onlypreamble\DeclareTateKanjiEncoding@
138 \def\DeclareKanjiEncodingDefaults#1#2{%
140 \ifx\default@KT\@empty\else
141 \@font@info{Overwriting KANJI encoding scheme text defaults}%
143 \gdef\default@KT{#1}%
146 \ifx\default@KM\@empty\else
147 \@font@info{Overwriting KANJI encoding scheme math defaults}%
149 \gdef\default@KM{#2}%
151 \let\default@KT\@empty
152 \let\default@KM\@empty
153 \@onlypreamble\DeclareKanjiEncodingDefaults
154 \def\DeclareFontFamily#1#2#3{%
156 {\@latex@error{Encoding scheme `#1' unknown}\@eha}%
157 {\edef\tmp@item{{#2}}%
158 \expandafter\expandafter\expandafter
159 \inlist@\expandafter\tmp@item\expandafter{\ffam@list}%
161 \def\fam@elt{\noexpand\fam@elt}%
162 \xdef\ffam@list{\ffam@list\fam@elt<#2>}%
166 \expandafter\let\csname #1+#2\expandafter\endcsname
167 \ifx \reserved@a\@empty
173 \def\DeclareKanjiFamily#1#2#3{%
175 {\@latex@error{KANJI Encoding scheme `#1' unknown}\@eha}%
176 {\edef\tmp@item{{#2}}%
177 \expandafter\expandafter\expandafter
178 \inlist@\expandafter\tmp@item\expandafter{\kfam@list}%
180 \def\fam@elt{\noexpand\fam@elt}%
181 \xdef\kfam@list{\kfam@list\fam@elt<#2>}%
185 \expandafter\let\csname #1+#2\expandafter\endcsname
186 \ifx \reserved@a\@empty
192 \def\DeclareKanjiSubstitution#1#2#3#4{%
193 \expandafter\ifx\csname T@#1\endcsname\relax
194 \@latex@error{KANJI Encoding scheme `#1' unknown}\@eha
199 \def\cdp@elt##1##2##3##4{%
200 \def\reserved@b{##1}%
201 \ifx\reserved@a\reserved@b
202 \addto@hook\toks@{\cdp@elt{#1}{#2}{#3}{#4}}%
204 \addto@hook\toks@{\cdp@elt{##1}{##2}{##3}{##4}}%
207 \xdef\cdp@list{\the\toks@}%
209 \global\@namedef{D@#1}{\def\default@family{#2}%
210 \def\default@series{#3}%
211 \def\default@shape{#4}}%
213 \def\DeclareErrorKanjiFont#1#2#3#4#5{%
214 \xdef\error@kfontshape{%
215 \noexpand\expandafter\noexpand\split@name\noexpand\string
216 \expandafter\noexpand\csname#1/#2/#3/#4/#5\endcsname
218 \gdef\default@k@family{#2}%
219 \gdef\default@k@series{#3}%
220 \gdef\default@k@shape{#4}%
221 \global\let\k@family\default@k@family
222 \global\let\k@series\default@k@series
223 \global\let\k@shape\default@k@shape
225 \gdef\f@baselineskip{#5pt}}
226 \@onlypreamble\DeclareKanjiSubstitution
227 \@onlypreamble\DeclareErrorKanjiFont
228 \def\DeclareFixedFont#1#2#3#4#5#6{%
233 \edef\tmp@item{{#2}}%
234 \expandafter\expandafter\expandafter
235 \inlist@\expandafter\tmp@item\expandafter{\kyenc@list}%
237 \usekanji{#2}{#3}{#4}{#5}%
238 \global\let#1\getjfont
240 %\expandafter\expandafter\expandafter
241 %\inlist@\expandafter\tmp@item\expandafter{\ktenc@list}%
243 % \usekanji{#2}{#3}{#4}{#5}%
246 \useroman{#2}{#3}{#4}{#5}%
247 \global\expandafter\let\expandafter#1\the\font
252 \def\reDeclareMathAlphabet#1#2#3{%
253 \edef#1{\noexpand\protect\expandafter\noexpand\csname%
254 \expandafter\@gobble\string#1\space\space\endcsname}%
255 \edef\@tempa{\expandafter\@gobble\string#2}%
256 \edef\@tempb{\expandafter\@gobble\string#3}%
257 \edef\@tempc{\string @\expandafter\@gobbletwo\string#2}%
259 \edef\@tempa{\expandafter\@gobbletwo\string#2}%
260 \edef\@tempb{\expandafter\@gobbletwo\string#3}%
262 \expandafter\edef\csname\expandafter\@gobble\string#1\space\space\endcsname%
263 {\noexpand\DualLang@mathalph@bet%
264 {\expandafter\noexpand\csname\@tempa\space\endcsname}%
265 {\expandafter\noexpand\csname\@tempb\space\endcsname}%
268 \@onlypreamble\reDeclareMathAlphabet
269 \def\DualLang@mathalph@bet#1#2{%
271 \ifx\math@bgroup\bgroup% 2e normal style (\mathrm{...})
272 \bgroup\let\DualLang@Mfontsw\DLMfontsw@standard
274 \ifx\math@bgroup\relax% 2e two letter style (\rm->\mathrm)
275 \let\DualLang@Mfontsw\DLMfontsw@oldstyle
277 \bgroup\let\DualLang@Mfontsw\DLMfontsw@standard
281 \let\DualLang@Mfontsw\@firstoftwo
283 \DualLang@Mfontsw{#1}{#2}%
285 \def\DLMfontsw@standard#1#2#3{#1{#2{#3}}\egroup}
286 \def\DLMfontsw@oldstyle#1#2{#1\relax\@fontswitch\relax{#2}}
287 \def\DLMfontsw@oldlfont#1#2{#1\relax#2\relax}
289 \def\DeclareRelationFont#1#2#3#4#5#6#7#8{%
291 \ifx\rel@shape\@empty
293 \expandafter\def\csname rel@#1/#2/#3/all\endcsname{%
294 \romanencoding{#5}\romanfamily{#6}%
298 \expandafter\def\csname rel@#1/#2/#3/#4\endcsname{%
299 \romanencoding{#5}\romanfamily{#6}%
300 \romanseries{#7}\romanshape{#8}}%
303 \def\SetRelationFont#1#2#3#4#5#6#7#8{%
305 \ifx\rel@shape\@empty
306 \expandafter\def\csname rel@#1/#2/#3/all\endcsname{%
307 \romanencoding{#5}\romanfamily{#6}%
310 \expandafter\def\csname rel@#1/#2/#3/#4\endcsname{%
311 \romanencoding{#5}\romanfamily{#6}%
312 \romanseries{#7}\romanshape{#8}}%
316 \def\userelfont{\@knjcmdtrue}
317 \DeclareRobustCommand\selectfont{%
318 \let\tmp@error@fontshape\error@fontshape
319 \let\error@fontshape\error@kfontshape
320 \edef\tmp@item{{\k@encoding}}%
321 \expandafter\expandafter\expandafter
322 \inlist@\expandafter\tmp@item\expandafter{\kyenc@list}%
324 \let\cy@encoding\k@encoding
325 \edef\ct@encoding{\csname t@enc@\k@encoding\endcsname}%
327 \expandafter\expandafter\expandafter
328 \inlist@\expandafter\tmp@item\expandafter{\ktenc@list}%
330 \let\ct@encoding\k@encoding
331 \edef\cy@encoding{\csname y@enc@\k@encoding\endcsname}%
333 \@latex@error{KANJI Encoding scheme `\k@encoding' unknown}\@eha
337 %\let\k@encoding\ct@encoding
338 %\xdef\font@name{\csname\curr@kfontshape/\f@size\endcsname}%
341 \let\k@encoding\cy@encoding
342 \xdef\font@name{\csname\curr@kfontshape/\f@size\endcsname}%
345 \expandafter\def\expandafter\k@encoding\tmp@item
347 \let\error@fontshape\tmp@error@fontshape
348 \if@knjcmd \@knjcmdfalse
350 \csname rel@\k@encoding/\k@family/\k@series/\k@shape\endcsname\relax
352 \csname rel@\k@encoding/\k@family/\k@series/all\endcsname\relax
354 \csname rel@\k@encoding/\k@family/\k@series/all\endcsname
357 \csname rel@\k@encoding/\k@family/\k@series/\k@shape\endcsname
361 \xdef\font@name{\csname\curr@fontshape/\f@size\endcsname}%
365 \ifx\f@linespread\baselinestretch \else
366 \set@fontsize\baselinestretch\f@size\f@baselineskip
369 \def\KanjiEncodingPair#1#2{\@namedef{t@enc@#1}{#2}\@namedef{y@enc@#2}{#1}}
370 \KanjiEncodingPair{JY3}{JT3}
371 \def\set@fontsize#1#2#3{%
372 \@defaultunits\@tempdimb#2pt\relax\@nnil
373 \edef\f@size{\strip@pt\@tempdimb}%
374 \@defaultunits\@tempskipa#3pt\relax\@nnil
375 \edef\f@baselineskip{\the\@tempskipa}%
376 \edef\f@linespread{#1}%
377 \let\baselinestretch\f@linespread
379 \baselineskip\f@baselineskip\relax
380 \baselineskip\f@linespread\baselineskip
381 \normalbaselineskip\baselineskip
383 \setbox\strutbox\hbox{%\yoko
385 \@height.7\baselineskip \@depth.3\baselineskip}%
386 \setbox\tstrutbox\hbox{%\tate
388 \@height.5\baselineskip \@depth.5\baselineskip}%
389 \setbox\zstrutbox\hbox{%\tate
391 \@height.7\baselineskip \@depth.3\baselineskip}%
392 \let\size@update\relax}}
394 \newdimen\adjust@dimen
395 \def\adjustbaseline{%
396 \setbox\adjust@box\hbox{\ltjsetparameter{yjabaselineshift=\z@}あ}%
400 \cvs\normalbaselineskip
402 \cHT\cht \advance\cHT\cdp
404 % \setbox\adjust@box\hbox{\tbaselineshift\z@ M}%
405 % \adjust@dimen\ht\adjust@box
406 % \advance\adjust@dimen\dp\adjust@box
407 % \advance\adjust@dimen-\cHT
408 % \divide\adjust@dimen\tw@
409 % \advance\adjust@dimen\cdp
410 % \advance\adjust@dimen-\dp\adjust@box
411 % \tbaselineshift\adjust@dimen
414 \DeclareRobustCommand\romanencoding[1]{%
415 \expandafter\ifx\csname T@#1\endcsname\relax
416 \@latex@error{Encoding scheme `#1' unknown}\@eha
418 \edef\f@encoding{#1}%
419 \ifx\cf@encoding\f@encoding
420 \let\enc@update\relax
422 \let\enc@update\@@enc@update
426 \DeclareRobustCommand\kanjiencoding[1]{%
427 \expandafter\ifx\csname T@#1\endcsname\relax
428 \@latex@error{KANJI Encoding scheme `#1' unknown}\@eha
430 \edef\k@encoding{#1}%
431 \ifx\ck@encoding\k@encoding
432 \let\kenc@update\relax
434 \let\kenc@update\@@kenc@update
438 \DeclareRobustCommand\fontencoding[1]{%
439 \edef\tmp@item{{#1}}%
440 \expandafter\expandafter\expandafter
441 \inlist@\expandafter\tmp@item\expandafter{\kenc@list}%
442 \ifin@ \kanjiencoding{#1}\else\romanencoding{#1}\fi}
445 \csname T@\k@encoding\endcsname
446 \csname D@\k@encoding\endcsname
447 \let\kenc@update\relax
448 \let\ck@encoding\k@encoding
449 \edef\tmp@item{{\k@encoding}}%
450 \expandafter\expandafter\expandafter
451 \inlist@\expandafter\tmp@item\expandafter{\kyenc@list}%
452 \ifin@ \let\cy@encoding\k@encoding
454 \expandafter\expandafter\expandafter
455 \inlist@\expandafter\tmp@item\expandafter{\ktenc@list}%
456 \ifin@ \let\ct@encoding\k@encoding
458 \@latex@error{KANJI Encoding scheme `\k@encoding' unknown}\@eha
462 \let\kenc@update\relax
463 \def\@changed@kcmd#1#2{%
464 \ifx\protect\@typeset@protect
466 \expandafter\ifx\csname\ck@encoding\string#1\endcsname\relax
467 \expandafter\ifx\csname ?\string#1\endcsname\relax
468 \expandafter\def\csname ?\string#1\endcsname{%
469 \TextSymbolUnavailable#1%
472 \global\expandafter\let
473 \csname\cf@encoding \string#1\expandafter\endcsname
474 \csname ?\string#1\endcsname
476 \csname\ck@encoding\string#1%
477 \expandafter\endcsname
484 \DeclareRobustCommand\romanfamily[1]{\edef\f@family{#1}}
485 \DeclareRobustCommand\kanjifamily[1]{\edef\k@family{#1}}
486 \DeclareRobustCommand\fontfamily[1]{%
487 \edef\tmp@item{{#1}}%
490 \expandafter\expandafter\expandafter
491 \inlist@\expandafter\tmp@item\expandafter{\kfam@list}%
492 \ifin@ \edef\k@family{#1}%
494 \expandafter\expandafter\expandafter
495 \inlist@\expandafter\tmp@item\expandafter{\notkfam@list}%
499 \def\fam@elt{\noexpand\fam@elt}%
500 \message{(I search kanjifont definition file:}%
501 \def\enc@elt<##1>{\message{.}%
502 \edef\reserved@a{\lowercase{\noexpand\IfFileExists{##1#1.fd}}}%
503 \reserved@a{\@tempswztrue}{}\relax}%
510 \xdef\notkfam@list{\notkfam@list\fam@elt<#1>}%
513 \expandafter\expandafter\expandafter
514 \inlist@\expandafter\tmp@item\expandafter{\ffam@list}%
515 \ifin@ \edef\f@family{#1}\else
516 \expandafter\expandafter\expandafter
517 \inlist@\expandafter\tmp@item\expandafter{\notffam@list}%
518 \ifin@ \@notffamtrue \else
520 \def\fam@elt{\noexpand\fam@elt}%
521 \message{(I search font definition file:}%
522 \def\enc@elt<##1>{\message{.}%
523 \edef\reserved@a{\lowercase{\noexpand\IfFileExists{##1#1.fd}}}%
524 \reserved@a{\@tempswztrue}{}\relax}%
531 \xdef\notffam@list{\notffam@list\fam@elt<#1>}%
534 \if@notkfam\if@notffam
535 \edef\k@family{#1}\edef\f@family{#1}%
537 \DeclareRobustCommand\romanseries[1]{\edef\f@series{#1}}
538 \DeclareRobustCommand\kanjiseries[1]{\edef\k@series{#1}}
539 \DeclareRobustCommand\fontseries[1]{\kanjiseries{#1}\romanseries{#1}}
540 \DeclareRobustCommand\romanshape[1]{\edef\f@shape{#1}}
541 \DeclareRobustCommand\kanjishape[1]{\edef\k@shape{#1}}
542 \DeclareRobustCommand\fontshape[1]{\kanjishape{#1}\romanshape{#1}}
543 \def\usekanji#1#2#3#4{%
544 \kanjiencoding{#1}\kanjifamily{#2}\kanjiseries{#3}\kanjishape{#4}%
545 \selectfont\ignorespaces}
546 \def\useroman#1#2#3#4{%
547 \romanencoding{#1}\romanfamily{#2}\romanseries{#3}\romanshape{#4}%
548 \selectfont\ignorespaces}
549 \def\usefont#1#2#3#4{%
550 \edef\tmp@item{{#1}}%
551 \expandafter\expandafter\expandafter
552 \inlist@\expandafter\tmp@item\expandafter{\kenc@list}%
553 \ifin@ \usekanji{#1}{#2}{#3}{#4}%
554 \else\useroman{#1}{#2}{#3}{#4}%
556 \DeclareRobustCommand\normalfont{%
557 \kanjiencoding{\kanjiencodingdefault}%
558 \kanjifamily{\kanjifamilydefault}%
559 \kanjiseries{\kanjiseriesdefault}%
560 \kanjishape{\kanjishapedefault}%
561 \romanencoding{\encodingdefault}%
562 \romanfamily{\familydefault}%
563 \romanseries{\seriesdefault}%
564 \romanshape{\shapedefault}%
565 \selectfont\ignorespaces}
567 \let\reset@font\normalfont
568 \DeclareRobustCommand\mcfamily
569 {\not@math@alphabet\mcfamily\mathmc
570 \kanjifamily\mcdefault\selectfont}
571 \DeclareRobustCommand\gtfamily
572 {\not@math@alphabet\gtfamily\mathgt
573 \kanjifamily\gtdefault\selectfont}
574 \let\romanprocess@table\process@table
575 \def\kanjiprocess@table{%
576 \kanjiencoding{\kanjiencodingdefault}%
577 \kanjifamily{\kanjifamilydefault}%
578 \kanjiseries{\kanjiseriesdefault}%
579 \kanjishape{\kanjishapedefault}%
585 \@onlypreamble\romanprocess@table
586 \@onlypreamble\kanjiprocess@table
587 \DeclareTextCommandDefault{\textunderscore}{%
588 \leavevmode\kern.06em
589 %\iftdir\raise-\tbaselineshift\fi
590 \vbox{\hrule\@width.3em}}
592 %%%%%% LuaTeX-ja specific
594 % #1 の展開結果から encoding 部分をとりだし,それが和文用かどうかの結果を \ifin@ に代入
595 \def\ltj@@IsFontJapanese#1{%
596 \expandafter\ltj@@IsFontJapaneseX#1//:%
597 \expandafter\expandafter\expandafter
598 \inlist@\expandafter\tmp@item\expandafter{\kenc@list}}
599 \def\ltj@@IsFontJapaneseX#1/#2/:{\edef\tmp@item{{\directlua{tex.print('#1')}}}}
602 \let\extract@afont\extract@font
604 \expandafter \ifx \font@name \relax
605 \let\extract@font\extract@jfont
607 \let\extract@font\extract@afont
609 \let\getjfont\font@name}
613 \expandafter\globaljfont\font@name\external@font\relax
614 \font@name\global\zw=\zw\global\zh=\zh
615 \csname \f@encoding+\f@family\endcsname
616 \csname\curr@fontshape\endcsname}
618 \let\ltj@@al@do@subst@correction=\do@subst@correction
619 \def\ltj@@ja@do@subst@correction{%
620 \xdef\subst@correction{%
622 \global\expandafter\let\csname \curr@fontshape/\f@size\endcsname\font@name%
624 \aftergroup\subst@correction
626 \def\do@subst@correction{%
627 \ltj@@IsFontJapanese{\curr@fontshape}\ifin@
628 \ltj@@ja@do@subst@correction
630 \ltj@@al@do@subst@correction
635 %%%%%% Japanese font for math mode
637 % \M@<enc> から その <enc> が和文用か調べる
639 \gdef\ltj@@mathJapaneseFonts#1M#2#3\relax{\ltj@@IsFontJapanese{#3}}}
641 \let\ltj@@al@getanddefine@fonts=\getanddefine@fonts
642 \def\ltj@@ja@getanddefine@fonts#1#2{%
643 \xdef\font@name{\csname \string#2/\tf@size\endcsname}%
644 \pickup@jfont \let\textfont@name\font@name
645 \xdef\font@name{\csname \string#2/\sf@size\endcsname}%
646 \pickup@jfont \let\scriptfont@name\font@name
647 \xdef\font@name{\csname \string#2/\ssf@size\endcsname}%
649 \edef\math@fonts{\math@fonts\ltjsetparameter{%
650 jatextfont={#1,\textfont@name},%
651 jascriptfont={#1,\scriptfont@name},%
652 jascriptscriptfont={#1,\font@name}}}
655 \def\getanddefine@fonts#1#2{%
656 \ltj@tempcnta=#1 \ltj@@IsFontJapanese{\string#2}%
657 \ifin@\ltj@@ja@getanddefine@fonts{#1}{#2}%
658 \else \ltj@@al@getanddefine@fonts{#1}{#2}%
661 \def\use@mathgroup#1#2{\relax\ifmmode
663 \expandafter\ifx\csname M@\f@encoding\endcsname#1\else
664 #1\fi \ltj@tempcnta=#2 \expandafter\ltj@@mathJapaneseFonts\string#1\relax%
665 \ifin@\jfam#2\relax\else\mathgroup#2\relax\fi
666 \expandafter\math@egroup\fi}%