src/patches/lltjfont.sty

   1 %
   2 % lltjfont.sty: derived from plfonts.dtx in pLaTeX.
   3 %
   4
   5 \NeedsTeXFormat{LaTeX2e}
   6 \ProvidesPackage{lltjfont}[2021-05-26 Patch to NFSS2 for LuaTeX-ja]
   7
   8 %%%%%%%% LaTeX2e version detection
   9 \newcount\ltj@@latex@plv \ltj@@latex@plv=-1
  10 \ifltj@ltfilehook@avail
  11 \ExplSyntaxOn
  12   \cs_if_exist:NTF \__shipout_execute_main_cont:Nnnn
  13     {\ltj@@latex@plv=1500}% 2021-06-01
  14     {\ifnum\patch@level>2\relax \ltj@@latex@plv=1300\else \ltj@@latex@plv=1000\fi}% 2020-10-01
  15 \ExplSyntaxOff
  16 \else\ifdefined\@rmfamilyhook % 2020-02-02
  17   \ifx\@forced@seriestrue\@undefined % 2020-02-02 pl0--2
  18     \@latex@error
  19      {Please update LaTeX2e!^^J\space\space
  20        At least LaTeX2e 2020-02-02 patch level 3 is required}%
  21      {LaTeX2e 2020-02-02 patch level 2 (and 4) has a bug.}
  22   \else
  23     \ltj@@latex@plv=300
  24     \unless\ifx\series@maybe@drop@one@m@x\@undefined % pl5 + develop
  25       \ltj@@latex@plv=501
  26     \else\unless\ifx\series@maybe@drop@one@m\@undefined % patch level 5
  27       \ltj@@latex@plv=500
  28     \fi\fi
  29   \fi
  30 \fi\fi
  31
  32 %% patching \DeclareTextComposite
  33 \def\ltj@chardef@text@cmd#1{%
  34   \let\@ifdefinable\@@ifdefinable%
  35   \edef\ltj@chardef@text@cmd@name{\expandafter\@gobble\string#1}%
  36   \afterassignment\ltj@chardef@text@cmd@\ltj@tempcnta
  37 }
  38 \def\ltj@chardef@text@cmd@{%
  39   \ifnum\ltj@tempcnta>"7F
  40     \expandafter\edef\csname \ltj@chardef@text@cmd@name\endcsname{%
  41       \noexpand\ltjalchar\the\ltj@tempcnta\space
  42     }%
  43   \else
  44     \expandafter\chardef\csname \ltj@chardef@text@cmd@name\endcsname\ltj@tempcnta
  45   \fi
  46 }
  47 \def\DeclareTextSymbol#1#2#3{%
  48   \@dec@text@cmd\ltj@chardef@text@cmd#1{#2}#3\relax
  49 }
  50
  51 \let\ltj@temp@DeclareTextComposite=\DeclareTextComposite
  52 \def\DeclareTextComposite#1#2#3#4{}%
  53 \input{tuenc.def}
  54 \let\DeclareTextComposite=\ltj@temp@DeclareTextComposite
  55 \expandafter\patchcmd\csname TU\string\textasteriskcentered\endcsname{\char}{\ltjalchar}{}{}
  56
  57
  58 \let\k@encoding\@empty
  59 \let\ck@encoding\@empty
  60 % LuaTeX-ja uses JY3 and JT3 encodings.
  61 \def\cy@encoding{JY3}\def\ct@encoding{JT3}
  62
  63 \let\k@family\@empty
  64 \let\k@series\@empty
  65 \let\k@shape\@empty
  66 \def\curr@kfontshape{\k@encoding/\k@family/\k@series/\k@shape}
  67 \def\rel@fontshape{\f@encoding/\f@family/\f@series/\f@shape}
  68 \ifdefined\Cht\else\newdimen\Cht\fi
  69 \ifdefined\cht\else\newdimen\cht\fi
  70 \ifdefined\Cdp\else\newdimen\Cdp\fi
  71 \ifdefined\cdp\else\newdimen\cdp\fi
  72 \ifdefined\Cwd\else\newdimen\Cwd\fi
  73 \ifdefined\cwd\else\newdimen\cwd\fi
  74 \ifdefined\Cvs\else\newdimen\Cvs\fi
  75 \ifdefined\cvs\else\newdimen\cvs\fi
  76 \ifdefined\Chs\else\newdimen\Chs\fi
  77 \ifdefined\chs\else\newdimen\chs\fi
  78 \ifdefined\cHT\else\newdimen\cHT\fi
  79 %\let\afont\font
  80
  81 \let\ystrutbox\strutbox
  82 \newbox\dstrutbox
  83 \newbox\tstrutbox
  84 \newbox\zstrutbox
  85 \def\strutbox{%
  86   \ifnum\ltjgetparameter{direction}=1 \dstrutbox       % dtou
  87   \else\ifnum\ltjgetparameter{direction}=4 \ystrutbox  % yoko
  88   \else\tstrutbox  % tate and utod
  89   \fi\fi
  90 }
  91 \DeclareRobustCommand\strut{\relax
  92   \ifnum\ltjgetparameter{direction}=1 % dtou
  93     \ifmmode\copy\dstrutbox\else\unhcopy\dstrutbox\fi
  94   \else\ifnum\ltjgetparameter{direction}=4 % yoko
  95     \ifmmode\copy\ystrutbox\else\unhcopy\ystrutbox\fi
  96   \else % tate and utod
  97     \ifmmode\copy\tstrutbox\else\unhcopy\tstrutbox\fi
  98   \fi\fi
  99 }
 100
 101 \DeclareRobustCommand\ystrut{\relax\hbox{\ltj@@orig@yoko
 102    \ifmmode\copy\ystrutbox\else\unhcopy\ystrutbox\fi}}
 103 \DeclareRobustCommand\tstrut{\relax\hbox{\ltj@@orig@tate
 104    \ifmmode\copy\tstrutbox\else\unhcopy\tstrutbox\fi}}
 105 \DeclareRobustCommand\dstrut{\relax\hbox{\ltj@@orig@dtou
 106    \ifmmode\copy\dstrutbox\else\unhcopy\dstrutbox\fi}}
 107 \DeclareRobustCommand\zstrut{\relax\hbox{\ltj@@orig@utod
 108    \ifmmode\copy\zstrutbox\else\unhcopy\zstrutbox\fi}}
 109
 110
 111
 112 \newluafunction\ltj@@add@fenc@@inner
 113 \newluafunction\ltj@@add@kyenc@@inner
 114 \newluafunction\ltj@@add@ktenc@@inner
 115 \newluafunction\ltj@@is@kyenc@@inner
 116 \newluafunction\ltj@@is@ktenc@@inner
 117 \newluafunction\ltj@@is@kenc@@inner
 118 \newluafunction\ltj@@is@ffam@@inner
 119 \newluafunction\ltj@@add@ffam@@inner
 120 \newluafunction\ltj@@add@kfam@@inner
 121 \directlua{%
 122   local lf = lua.get_functions_table()
 123   lf[\the\ltj@@add@fenc@@inner]  = luatexja.jfont.add_fenc_list
 124   lf[\the\ltj@@add@kyenc@@inner] = luatexja.jfont.add_kyenc_list
 125   lf[\the\ltj@@add@ktenc@@inner] = luatexja.jfont.add_ktenc_list
 126   lf[\the\ltj@@is@kyenc@@inner]  = luatexja.jfont.is_kyenc
 127   lf[\the\ltj@@is@ktenc@@inner]  = luatexja.jfont.is_ktenc
 128   lf[\the\ltj@@is@kenc@@inner]   = luatexja.jfont.is_kenc
 129   lf[\the\ltj@@is@ffam@@inner]   = luatexja.jfont.is_ffam
 130   lf[\the\ltj@@add@ffam@@inner]  = luatexja.jfont.add_ffam
 131   lf[\the\ltj@@add@kfam@@inner]  = luatexja.jfont.add_kfam
 132 }
 133 \luadef\ltj@@add@fenc \ltj@@add@fenc@@inner
 134 \luadef\ltj@@add@kyenc\ltj@@add@kyenc@@inner
 135 \luadef\ltj@@add@ktenc\ltj@@add@ktenc@@inner
 136 \luadef\ltj@@is@kyenc \ltj@@is@kyenc@@inner
 137 \luadef\ltj@@is@ktenc \ltj@@is@ktenc@@inner
 138 \luadef\ltj@@is@kenc  \ltj@@is@kenc@@inner
 139 \luadef\ltj@@is@ffam  \ltj@@is@ffam@@inner
 140 \luadef\ltj@@add@ffam \ltj@@add@ffam@@inner
 141 \luadef\ltj@@add@kfam \ltj@@add@kfam@@inner
 142
 143 {\def\cdp@elt#1#2#3#4{\ltj@@add@fenc{#1}}\cdp@list}
 144
 145 \def\DeclareFontEncoding{%
 146   \begingroup
 147   \nfss@catcodes
 148   \expandafter\endgroup
 149   \DeclareFontEncoding@}
 150 \def\DeclareFontEncoding@#1#2#3{%
 151   \expandafter
 152   \ifx\csname T@#1\endcsname\relax
 153      \def\cdp@elt{\noexpand\cdp@elt}%
 154      \xdef\cdp@list{\cdp@list\cdp@elt{#1}%
 155                     {\default@family}{\default@series}%
 156                     {\default@shape}}%
 157      \expandafter\let\csname#1-cmd\endcsname\@changed@cmd
 158      \ltj@@add@fenc{#1}%
 159   \else
 160      \@font@info{Redeclaring font encoding #1}%
 161   \fi
 162   \global\@namedef{T@#1}{#2}%
 163   \global\@namedef{M@#1}{\default@M#3}%
 164   \xdef\LastDeclaredEncoding{#1}%
 165   }
 166 \def\DeclareKanjiEncoding#1{%
 167   \@latex@warning{%
 168      The \string\DeclareKanjiEncoding\space is obsoleted command.  Please use
 169      \MessageBreak
 170      the \string\DeclareTateKanjiEncoding\space for `Tate-kumi' encoding, and
 171      \MessageBreak
 172      the \string\DeclareYokoKanjiEncoding\space for `Yoko-kumi' encoding.
 173      \MessageBreak
 174      I treat the `#1' encoding as `Yoko-kumi'.}
 175   \DeclareYokoKanjiEncoding{#1}%
 176 }
 177 \def\DeclareYokoKanjiEncoding{%
 178   \begingroup
 179   \nfss@catcodes
 180   \expandafter\endgroup
 181   \DeclareYokoKanjiEncoding@}
 182 \def\DeclareYokoKanjiEncoding@#1#2#3{%
 183   \expandafter\ifx\csname T@#1\endcsname\relax
 184     \def\cdp@elt{\noexpand\cdp@elt}%
 185     \xdef\cdp@list{\cdp@list\cdp@elt{#1}%
 186                     {\default@k@family}{\default@k@series}%
 187                     {\default@k@shape}}%
 188     \expandafter\let\csname#1-cmd\endcsname\@changed@kcmd
 189     \ltj@@add@kyenc{#1}%
 190   \else
 191     \@font@info{Redeclaring KANJI (yoko) font encoding #1}%
 192   \fi
 193   \global\@namedef{T@#1}{#2}%
 194   \global\@namedef{M@#1}{\default@KM#3}%
 195   }
 196 \def\DeclareTateKanjiEncoding{%
 197   \begingroup
 198   \nfss@catcodes
 199   \expandafter\endgroup
 200   \DeclareTateKanjiEncoding@}
 201 \def\DeclareTateKanjiEncoding@#1#2#3{%
 202   \expandafter\ifx\csname T@#1\endcsname\relax
 203     \def\cdp@elt{\noexpand\cdp@elt}%
 204     \xdef\cdp@list{\cdp@list\cdp@elt{#1}%
 205                     {\default@k@family}{\default@k@series}%
 206                     {\default@k@shape}}%
 207     \expandafter\let\csname#1-cmd\endcsname\@changed@kcmd
 208     \ltj@@add@ktenc{#1}%
 209   \else
 210     \@font@info{Redeclaring KANJI (tate) font encoding #1}%
 211   \fi
 212   \global\@namedef{T@#1}{#2}%
 213   \global\@namedef{M@#1}{\default@KM#3}%
 214   }
 215 \@onlypreamble\DeclareKanjiEncoding
 216 \@onlypreamble\DeclareYokoKanjiEncoding
 217 \@onlypreamble\DeclareYokoKanjiEncoding@
 218 \@onlypreamble\DeclareTateKanjiEncoding
 219 \@onlypreamble\DeclareTateKanjiEncoding@
 220 \def\DeclareKanjiEncodingDefaults#1#2{%
 221   \ifx\relax#1\else
 222     \ifx\default@KT\@empty\else
 223       \@font@info{Overwriting KANJI encoding scheme text defaults}%
 224     \fi
 225     \gdef\default@KT{#1}%
 226   \fi
 227   \ifx\relax#2\else
 228     \ifx\default@KM\@empty\else
 229       \@font@info{Overwriting KANJI encoding scheme math defaults}%
 230     \fi
 231     \gdef\default@KM{#2}%
 232   \fi}
 233 \let\default@KT\@empty
 234 \let\default@KM\@empty
 235 \@onlypreamble\DeclareKanjiEncodingDefaults
 236 \def\DeclareFontFamily#1#2#3{%
 237  \@ifundefined{T@#1}%
 238     {\@latex@error{Encoding scheme `#1' unknown}\@eha}%
 239     {\def\reserved@a{#3}%
 240      \global
 241      \expandafter\let\csname #1+#2\expandafter\endcsname
 242             \ifx \reserved@a\@empty
 243               \@empty
 244             \else \reserved@a
 245             \fi
 246      \ltj@@add@ffam{#2}%
 247     }%
 248 }
 249 \def\DeclareKanjiFamily#1#2#3{%
 250  \@ifundefined{T@#1}%
 251     {\@latex@error{KANJI Encoding scheme `#1' unknown}\@eha}%
 252     {\def\reserved@a{#3}%
 253      \global
 254      \expandafter\let\csname #1+#2\expandafter\endcsname
 255             \ifx \reserved@a\@empty
 256               \@empty
 257             \else \reserved@a
 258             \fi
 259      \ltj@@add@kfam{#2}%
 260      }%
 261 }
 262 \def\DeclareKanjiSubstitution#1#2#3#4{%
 263   \expandafter\ifx\csname T@#1\endcsname\relax
 264     \@latex@error{KANJI Encoding scheme `#1' unknown}\@eha
 265   \else
 266     \begingroup
 267        \def\reserved@a{#1}%
 268        \toks@{}%
 269        \def\cdp@elt##1##2##3##4{%
 270          \def\reserved@b{##1}%
 271          \ifx\reserved@a\reserved@b
 272            \addto@hook\toks@{\cdp@elt{#1}{#2}{#3}{#4}}%
 273          \else
 274            \addto@hook\toks@{\cdp@elt{##1}{##2}{##3}{##4}}%
 275          \fi}%
 276        \cdp@list
 277        \xdef\cdp@list{\the\toks@}%
 278     \endgroup
 279     \global\@namedef{D@#1}{\def\default@k@family{#2}%
 280                            \def\default@k@series{#3}%
 281                            \def\default@k@shape{#4}}%
 282   \fi}
 283 \@onlypreamble\DeclareKanjiSubstitution
 284
 285 \def\DeclareErrorKanjiFont#1#2#3#4#5{%
 286    \xdef\error@kfontshape{%
 287       \noexpand\expandafter\noexpand\split@name\noexpand\string
 288       \expandafter\noexpand\csname#1/#2/#3/#4/#5\endcsname
 289       \noexpand\@nil}%
 290    \gdef\default@k@family{#2}%
 291    \gdef\default@k@series{#3}%
 292    \gdef\default@k@shape{#4}%
 293    }
 294 \@onlypreamble\DeclareErrorKanjiFont
 295
 296 \let\wrong@ja@fontshape\wrong@fontshape
 297 \let\wrong@al@fontshape\wrong@fontshape
 298 \patchcmd\wrong@ja@fontshape{\default@shape}{\default@k@shape}{}{}
 299 \patchcmd\wrong@ja@fontshape{\default@series}{\default@k@series}{}{}
 300 \patchcmd\wrong@ja@fontshape{\default@family}{\default@k@family}{}{}
 301 \def\wrong@fontshape{%
 302   \ltj@@is@kenc{\f@encoding}\ifin@%
 303     \wrong@ja@fontshape
 304   \else
 305     \wrong@al@fontshape
 306   \fi
 307 }
 308
 309 \newif\ifltjselectfont@force@define
 310 \def\DeclareFixedFont#1#2#3#4#5#6{%
 311    \begingroup
 312       \math@fontsfalse
 313       \every@math@size{}%
 314       \fontsize{#6}\z@
 315       \ltj@@is@kyenc{#2}\ifin@%
 316         \ltjselectfont@force@definetrue
 317         \usekanji{#2}{#3}{#4}{#5}%
 318         \global\let#1\getjfont
 319         \ltjselectfont@force@definefalse
 320       \else
 321         \ltj@@is@ktenc{#2}\ifin@%
 322           \ltjselectfont@force@definetrue
 323           \usekanji{#2}{#3}{#4}{#5}%
 324           \global\let#1\gettfont
 325           \ltjselectfont@force@definefalse
 326         \else
 327           \useroman{#2}{#3}{#4}{#5}%
 328           \global\expandafter\let\expandafter#1\the\font
 329         \fi
 330       \fi
 331    \endgroup
 332   }
 333 \def\DLMfontsw@standard#1#2#3{#1{#2{#3}}}
 334 \def\reDeclareMathAlphabet#1#2#3{%
 335   \ifdefined#2
 336     \@temptokena\expandafter{#2}%
 337   \else
 338     \@temptokena{#2}%
 339   \fi
 340   \ifdefined#3
 341     \toks0\expandafter{#3}%
 342   \else
 343     \toks0{#3}%
 344   \fi
 345   \long\protected\edef#1{%
 346     \noexpand\DLMfontsw@standard{\the\@temptokena}{\the\toks0}}%
 347 }
 348 \@onlypreamble\reDeclareMathAlphabet
 349 \def\all@shape{all}%
 350 \def\DeclareRelationFont#1#2#3#4#5#6#7#8{%
 351   \def\rel@shape{#4}%
 352   \ifx\rel@shape\@empty
 353      \global
 354      \expandafter\def\csname rel@#1/#2/#3/all\endcsname{%
 355        \romanencoding{#5}\romanfamily{#6}%
 356        \romanseries{#7}}%
 357   \else
 358      \global
 359      \expandafter\def\csname rel@#1/#2/#3/#4\endcsname{%
 360        \romanencoding{#5}\romanfamily{#6}%
 361        \romanseries{#7}\romanshape{#8}}%
 362   \fi
 363 }
 364 \def\SetRelationFont#1#2#3#4#5#6#7#8{%
 365   \def\rel@shape{#4}%
 366   \ifx\rel@shape\@empty
 367      \expandafter\def\csname rel@#1/#2/#3/all\endcsname{%
 368        \romanencoding{#5}\romanfamily{#6}%
 369        \romanseries{#7}}%
 370   \else
 371      \expandafter\def\csname rel@#1/#2/#3/#4\endcsname{%
 372        \romanencoding{#5}\romanfamily{#6}%
 373        \romanseries{#7}\romanshape{#8}}%
 374   \fi
 375 }
 376 \newif\if@knjcmd
 377 \DeclareRobustCommand\userelfont{\@knjcmdtrue}
 378
 379 \def\ltj@selectfont@tate{%
 380   \let\k@encoding\ct@encoding
 381   \xdef\font@name{\csname\curr@kfontshape/\f@size\endcsname}%
 382   \pickup@tfont
 383   \ifnum\ltjgetparameter{direction}=3 \font@name
 384     \ltj@@does@alt@set{\curr@kfontshape}{%
 385       % alt fonts の定義
 386       \directlua{luatexja.jfont.output_alt_font_cmd('t', '\luatexluaescapestring{\curr@kfontshape}')}%
 387       % 定義した alt fonts のデータを \ltjdeclarealtfont に渡すのと同等の処理をする
 388       \directlua{luatexja.jfont.pickup_alt_font_a('\f@size')}%
 389     }%
 390   \fi}
 391 \def\ltj@selectfont@yoko{%
 392   \let\k@encoding\cy@encoding
 393   \xdef\font@name{\csname\curr@kfontshape/\f@size\endcsname}%
 394   \pickup@jfont
 395   \unless\ifnum\ltjgetparameter{direction}=3 \font@name
 396          \ltj@@does@alt@set{\curr@kfontshape}{%
 397       % alt fonts の定義
 398       \directlua{luatexja.jfont.output_alt_font_cmd('y', '\luatexluaescapestring{\curr@kfontshape}')}%
 399       % 定義した alt fonts のデータを \ltjdeclarealtfont に渡すのと同等の処理をする
 400       \directlua{luatexja.jfont.pickup_alt_font_a('\f@size')}%
 401     }%
 402   \fi}
 403 \ifnum\ltj@@latex@plv<1500 % <=2020-10-01
 404 \protected\def\ltj@selectfont@patch{%
 405   \ltj@@start@time@measure{selectfont}%
 406   \let\tmp@error@fontshape\error@fontshape
 407   \let\error@fontshape\error@kfontshape
 408   \ltj@@is@kyenc{\k@encoding}\ifin@%
 409     \let\cy@encoding\k@encoding
 410     \ensure@KanjiEncodingPair{t}%
 411     \edef\ct@encoding{\csname t@enc@\k@encoding\endcsname}%
 412   \else
 413     \ltj@@is@ktenc{\k@encoding}\ifin@%
 414       \let\ct@encoding\k@encoding
 415       \ensure@KanjiEncodingPair{y}%
 416       \edef\cy@encoding{\csname y@enc@\k@encoding\endcsname}%
 417     \else
 418       \@latex@error{KANJI Encoding scheme `\k@encoding' unknown}\@eha
 419     \fi
 420   \fi
 421   \global\let\ltj@afont@name=\font@name
 422   \ltj@selectfont@tate\ltj@selectfont@yoko
 423 %
 424   \edef\tmp@item{{\k@encoding}}\expandafter\def\expandafter\k@encoding\tmp@item
 425   \kenc@update
 426   \global\let\font@name=\ltj@afont@name
 427   \let\error@fontshape\tmp@error@fontshape
 428   \if@knjcmd \@knjcmdfalse
 429     \expandafter\ifx
 430     \csname rel@\k@encoding/\k@family/\k@series/\k@shape\endcsname\relax
 431       \expandafter\ifx
 432          \csname rel@\k@encoding/\k@family/\k@series/all\endcsname\relax
 433       \else
 434          \csname rel@\k@encoding/\k@family/\k@series/all\endcsname\selectfont
 435          % 警告: 再び \selectfont を呼んでいる．無限ループの可能性あり
 436       \fi
 437     \else
 438        \csname rel@\k@encoding/\k@family/\k@series/\k@shape\endcsname\selectfont
 439        % 警告: 再び \selectfont を呼んでいる．無限ループの可能性あり
 440     \fi
 441   \fi
 442   \global\let\font@name=\ltj@afont@name
 443   \ltj@@stop@time@measure{selectfont}%
 444 }
 445 \RequirePackage{everysel}
 446 \let\ltj@@EverySelectfont@Init=\@EverySelectfont@Init
 447 \expandafter\expandafter\expandafter\let
 448 \expandafter\expandafter\csname ltj@@orig@selectfont\endcsname\csname selectfont\space\endcsname
 449 \@EverySelectfont@Init% for LaTeX2e <=2020-10-01
 450 \def\@EverySelectfont@Init{%
 451   \expandafter\let\csname selectfont\space \endcsname \ltj@@orig@selectfont
 452   \ltj@@EverySelectfont@Init
 453 }
 454 \EverySelectfont{\ltj@selectfont@patch}
 455 \else % LaTeX2e >=2021-06-01
 456 \AddToHook{selectfont}[luatexja]{%
 457   \ltj@@start@time@measure{selectfont}%
 458   \ifx\delayed@k@adjustment\@empty
 459   \else
 460     \let\k@shape@saved\k@shape
 461     \let\k@series@saved\k@series
 462     \delayed@k@adjustment
 463     \begingroup\let\f@encoding\k@encoding\let\f@family\k@family
 464       \maybe@load@fontshape\endgroup
 465     \ifcsname \k@encoding/\k@family/\k@series/\k@shape \endcsname
 466     \else
 467       \let\k@shape\k@shape@saved
 468       \let\k@series\k@series@saved
 469       \let\delayed@merge@kanji@shape\merge@kanji@shape
 470       \let\delayed@merge@kanji@series\merge@kanji@series
 471       \delayed@k@adjustment
 472       \let\delayed@merge@kanji@shape\merge@kanji@shape@without@substitution
 473       \let\delayed@merge@kanji@series\merge@kanji@series@without@substitution
 474     \fi
 475     \let\delayed@k@adjustment\@empty
 476   \fi
 477   \@forced@series@kanjifalse
 478   \let\tmp@error@fontshape\error@fontshape
 479   \let\error@fontshape\error@kfontshape
 480   \ltj@@is@kyenc{\k@encoding}\ifin@%
 481     \let\cy@encoding\k@encoding
 482     \ensure@KanjiEncodingPair{t}%
 483     \edef\ct@encoding{\csname t@enc@\k@encoding\endcsname}%
 484   \else
 485     \ltj@@is@ktenc{\k@encoding}\ifin@%
 486       \let\ct@encoding\k@encoding
 487       \ensure@KanjiEncodingPair{y}%
 488       \edef\cy@encoding{\csname y@enc@\k@encoding\endcsname}%
 489     \else
 490       \@latex@error{KANJI Encoding scheme `\k@encoding' unknown}\@eha
 491     \fi
 492   \fi
 493   \global\let\ltj@afont@name=\font@name
 494   \ltj@selectfont@tate\ltj@selectfont@yoko
 495 %
 496   \edef\tmp@item{{\k@encoding}}\expandafter\def\expandafter\k@encoding\tmp@item
 497   \kenc@update
 498   \global\let\font@name=\ltj@afont@name
 499   \let\error@fontshape\tmp@error@fontshape
 500   \if@knjcmd \@knjcmdfalse
 501     \expandafter\ifx
 502     \csname rel@\k@encoding/\k@family/\k@series/\k@shape\endcsname\relax
 503       \expandafter\ifx
 504          \csname rel@\k@encoding/\k@family/\k@series/all\endcsname\relax
 505       \else
 506          \csname rel@\k@encoding/\k@family/\k@series/all\endcsname\selectfont
 507          % 警告: 再び \selectfont を呼んでいる．無限ループの可能性あり
 508       \fi
 509     \else
 510        \csname rel@\k@encoding/\k@family/\k@series/\k@shape\endcsname\selectfont
 511        % 警告: 再び \selectfont を呼んでいる．無限ループの可能性あり
 512     \fi
 513   \fi
 514   \global\let\font@name=\ltj@afont@name
 515   \ltj@@stop@time@measure{selectfont}%
 516 }
 517 \fi
 518
 519 \bgroup
 520   \def\ltj@@dir@patch#1#2#3{%
 521     \global\csletcs{ltj@@orig@#1}{#1}%
 522       \protected\expandafter\xdef\csname #1\endcsname{%
 523         \csname ltj@@orig@#1\endcsname
 524         \unexpanded{\ifnum#3<\z@\let\ltj@@protect\protect\set@typeset@protect}%
 525         \unexpanded{\global\let\ltj@afont@name=\font@name}%
 526         \expandonce{\csname ltj@selectfont@#2\endcsname}%
 527         \unexpanded{\global\let\font@name=\ltj@afont@name}%
 528         \unexpanded{\let\protect\ltj@@protect\fi}%
 529       }%
 530     }
 531   \ltj@@dir@patch{yoko}{yoko}{\ltj@curjfnt}
 532   \ltj@@dir@patch{tate}{tate}{\ltj@curtfnt}
 533   \ltj@@dir@patch{utod}{yoko}{\ltj@curjfnt}
 534   \ltj@@dir@patch{dtou}{yoko}{\ltj@curjfnt}
 535   \global\let\ltj@@box@dirhook@orig=\ltj@@box@dirhook
 536   \gdef\ltj@@box@dirhook{%
 537      \ltj@@box@dirhook@orig
 538      \ifnum\ltjgetparameter{direction}=11
 539        \ifnum\ltj@curjfnt<\z@
 540          \let\ltj@@protect\protect\set@typeset@protect
 541          \global\let\ltj@afont@name=\font@name
 542          \ltj@selectfont@yoko
 543          \global\let\font@name=\ltj@afont@name
 544          \let\protect\ltj@@protect
 545        \fi
 546      \fi
 547   }
 548 \egroup
 549
 550 \def\KanjiEncodingPair#1#2{\@namedef{t@enc@#1}{#2}\@namedef{y@enc@#2}{#1}}
 551 \def\ensure@KanjiEncodingPair#1{%
 552   \edef\reserved@a{\csname #1@enc@\k@encoding\endcsname}%
 553   \edef\reserved@b{\csname c#1@encoding\endcsname}%
 554   \ifcat\relax\reserved@a
 555     \@latex@error
 556       {KANJI Encoding pair for `\k@encoding' undefined}%
 557       {Use \string\KanjiEncodingPair, falling back to `\reserved@b'...}%
 558     \expandafter\edef\reserved@a{\reserved@b}%
 559   \fi}
 560 \def\set@fontsize#1#2#3{%
 561     \@defaultunits\@tempdimb#2pt\relax\@nnil
 562     \edef\f@size{\strip@pt\@tempdimb}%
 563     \@defaultunits\@tempskipa#3pt\relax\@nnil
 564     \edef\f@baselineskip{\the\@tempskipa}%
 565     \edef\f@linespread{#1}%
 566     \let\baselinestretch\f@linespread
 567     \def\size@update{%
 568       \baselineskip\f@baselineskip\relax
 569       \baselineskip\f@linespread\baselineskip
 570       \normalbaselineskip\baselineskip
 571       \adjustbaseline
 572       \setbox\ystrutbox\hbox{\ltj@@orig@yoko
 573           \vrule\@width\z@
 574                 \@height.7\baselineskip \@depth.3\baselineskip}%
 575       \setbox\dstrutbox\hbox{\ltj@@orig@dtou
 576           \vrule\@width\z@
 577                 \@height.7\baselineskip \@depth.3\baselineskip}%
 578       \setbox\tstrutbox\hbox{\ltj@@orig@tate
 579           \vrule\@width\z@
 580                 \@height.5\baselineskip \@depth.5\baselineskip}%
 581       \setbox\zstrutbox\hbox{\ltj@@orig@utod
 582           \vrule\@width\z@
 583                 \@height.7\baselineskip \@depth.3\baselineskip}%
 584      \let\size@update\relax}}
 585
 586 \newluafunction\ltj@@adjust@baseline@inner
 587 \begingroup\catcode`\~=12
 588 \directlua{%
 589   local nulltable = {}
 590   local t = lua.get_functions_table()
 591   local getfont, dir_tate = font.getfont, luatexja.dir_table.dir_tate
 592   local fmt, get_attr = luatexja.jfont.font_metric_table, tex.getattribute
 593   local getcount=tex.getcount
 594   local setdimen, set_attr = tex.setdimen, tex.setattribute
 595   local dir = luatexja.unary_pars.direction
 596   t[\the\ltj@@adjust@baseline@inner] = function()
 597     local ft = fmt[get_attr('ltj@curtfnt')] or nulltable
 598     ft = ft.char_type or nulltable
 599     local fk = ft[0] or nulltable
 600     local ht, dp, wd = fk.height or 0, fk.depth or 0,
 601                        fk.width or ft.zw or 0
 602     local fm
 603       = ((getfont(font.current()) or nulltable)
 604         .characters or nulltable)[77] or nulltable %% 'M'
 605     set_attr('ltj@tablshift',
 606       tex.round(0.5*((fm.height or 0)- (fm.depth or 0) - ht+ dp)))
 607     if dir() ~= dir_tate then
 608       ft = fmt[get_attr('ltj@curjfnt')] or nulltable
 609       ft = ft.char_type or nulltable
 610       fk = ft[0] or nulltable
 611       ht, dp, wd = fk.height or 0, fk.depth or 0,
 612                    fk.width or ft.zw or 0
 613     end
 614     setdimen('cht', ht); setdimen('cdp', dp)
 615     setdimen('cwd', wd); setdimen('chs', wd)
 616     setdimen('cHT', ht+dp)
 617   end
 618 }\endgroup
 619 \DeclareRobustCommand\adjustbaseline{\luafunction\ltj@@adjust@baseline@inner
 620    \cvs\normalbaselineskip}
 621 \DeclareRobustCommand\romanencoding[1]{%
 622     \expandafter\ifx\csname T@#1\endcsname\relax
 623       \@latex@error{Encoding scheme `#1' unknown}\@eha
 624     \else
 625       \edef\f@encoding{#1}%
 626       \ifx\cf@encoding\f@encoding
 627         \let\enc@update\relax
 628       \else
 629         \let\enc@update\@@enc@update
 630       \fi
 631     \fi
 632 }
 633 \DeclareRobustCommand\kanjiencoding[1]{%
 634     \expandafter\ifx\csname T@#1\endcsname\relax
 635       \@latex@error{KANJI Encoding scheme `#1' unknown}\@eha
 636     \else
 637       \edef\k@encoding{#1}%
 638       \ifx\ck@encoding\k@encoding
 639          \let\kenc@update\relax
 640       \else
 641          \let\kenc@update\@@kenc@update
 642       \fi
 643     \fi
 644 }
 645 \DeclareRobustCommand\fontencoding[1]{%
 646   \ltj@@is@kenc{#1}\ifin@\kanjiencoding{#1}\else\romanencoding{#1}\fi}
 647 \def\@@kenc@update{%
 648   \default@KT
 649   \csname T@\k@encoding\endcsname
 650   \csname D@\k@encoding\endcsname
 651   \let\kenc@update\relax
 652   \let\ck@encoding\k@encoding
 653   \ltj@@is@kyenc{\k@encoding}\ifin@
 654     \let\cy@encoding\k@encoding
 655   \else
 656     \ltj@@is@ktenc{\k@encoding}\ifin@
 657       \let\ct@encoding\k@encoding
 658     \else
 659       \@latex@error{KANJI Encoding scheme `\k@encoding' unknown}\@eha
 660     \fi
 661   \fi
 662 }
 663 \let\kenc@update\relax
 664 \def\@changed@kcmd#1#2{%
 665    \ifx\protect\@typeset@protect
 666       \@inmathwarn#1%
 667       \expandafter\ifx\csname\ck@encoding\string#1\endcsname\relax
 668          \expandafter\ifx\csname ?\string#1\endcsname\relax
 669             \expandafter\def\csname ?\string#1\endcsname{%
 670                \TextSymbolUnavailable#1%
 671             }%
 672          \fi
 673          \global\expandafter\let
 674                \csname\cf@encoding \string#1\expandafter\endcsname
 675                \csname ?\string#1\endcsname
 676       \fi
 677       \csname\ck@encoding\string#1%
 678          \expandafter\endcsname
 679    \else
 680       \noexpand#1%
 681    \fi}
 682 \newif\if@notkfam
 683 \newif\if@notffam
 684 \newif\if@tempswz
 685 \def\@ltj@use@fd{true}
 686 \DeclareRobustCommand\romanfamily[1]{\edef\f@family{#1}}
 687 \DeclareRobustCommand\kanjifamily[1]{\edef\k@family{#1}}
 688 \DeclareRobustCommand\fontfamily[1]{%
 689   \@notkfamfalse\@notffamfalse
 690   %
 691   \directlua{luatexja.jfont.search_kfam()}{#1}{\@ltj@use@fd}%
 692   \ifin@\edef\k@family{#1}\else\@notkfamtrue\fi
 693   %
 694   % alphabetic fonts part
 695   \ltj@@is@ffam{#1}%
 696   \ifin@\edef\f@family{#1}\else
 697     % checking is_stored_ffam is not sufficient,
 698     % since LuaTeX-ja doesn't know whats fonts are defined before LuaTeX-ja is loaded.
 699     \ifcsname \f@encoding+#1\endcsname % easy case
 700       \ltj@@add@ffam{#1}\edef\f@family{#1}%
 701     \else
 702       \@tempswafalse
 703       \def\cdp@elt##1{\ifcsname ##1+#1\endcsname%
 704         \@tempswatrue\def\cdp@elt####1\relax{}%
 705       \fi}%
 706       \directlua{luatexja.jfont.search_ffam_declared()}\relax%
 707       \if@tempswz
 708         \ltj@@add@ffam{#1}\edef\f@family{#1}%
 709       \else
 710         % now we search Nffam_list and font definition files.
 711         \directlua{luatexja.jfont.search_ffam_fd()}{#1}%
 712         \ifin@\edef\f@family{#1}\else\@notffamtrue\fi
 713       \fi
 714     \fi
 715   \fi
 716   %
 717   \if@notkfam\if@notffam
 718     \edef\k@family{#1}\edef\f@family{#1}%
 719   \fi\fi
 720 }
 721
 722 %%%%%%
 723 \ifnum\ltj@@latex@plv>0
 724 %%%% LaTeX >= 2020-02-02
 725 \newif\if@shape@roman@kanji
 726
 727 \def\merge@kanji@series#1{%
 728   \expandafter\expandafter\expandafter
 729   \merge@kanji@series@
 730     \csname series@\k@series @#1\endcsname
 731     {#1}%
 732     \@nil
 733 }
 734 \def\merge@kanji@shape#1{%
 735   \expandafter\expandafter\expandafter
 736   \merge@kanji@shape@
 737     \csname shape@\k@shape @#1\endcsname
 738     {#1}%
 739     \@nil
 740 }
 741
 742 \ifnum\ltj@@latex@plv>500 % !!! pl5 + develop
 743   \def\set@target@series@kanji#1{%
 744       \edef\k@series{#1}%
 745       \series@maybe@drop@one@m\k@series\k@series
 746   }
 747 \else\ifnum\ltj@@latex@plv>300 % !!! pl5
 748   \def\set@target@series@kanji#1{%
 749       \edef\k@series{#1}%
 750       \expandafter\series@maybe@drop@one@m\expandafter{\k@series}\k@series
 751   }
 752 \else % !!! pl 3, 4
 753   \def\set@target@series@kanji#1{%
 754     \edef\k@series{#1}%
 755     \edef\k@series{\expandafter\series@drop@one@m\k@series mm\series@drop@one@m}%
 756   }
 757 \fi\fi
 758
 759 \ifnum\ltj@@latex@plv<1500% <=2020-10-01
 760 \def\merge@kanji@series@#1#2#3\@nil{%
 761   \def\reserved@a{#3}%
 762   \ifx\reserved@a\@empty
 763     \set@target@series@kanji{#2}%
 764   \else
 765     \begingroup\let\f@encoding\k@encoding\let\f@family\k@family
 766     \maybe@load@fontshape\endgroup
 767     \edef\reserved@a{\k@encoding /\k@family /#1/\k@shape}%
 768      \ifcsname \reserved@a \endcsname
 769        \set@target@series@kanji{#1}%
 770     \else
 771        \ifcsname \k@encoding /\k@family /#2/\k@shape \endcsname
 772          \set@target@series@kanji{#2}%
 773          {\let\curr@fontshape\curr@kfontshape\@font@shape@subst@warning}%
 774        \else
 775          \set@target@series@kanji{#3}%
 776          {\let\curr@fontshape\curr@kfontshape\@font@shape@subst@warning}%
 777        \fi
 778     \fi
 779   \fi
 780 }
 781 \def\merge@kanji@shape@#1#2#3\@nil{%
 782   \def\reserved@a{#3}%
 783   \ifx\reserved@a\@empty
 784     \if@shape@roman@kanji
 785       \set@safe@kanji@shape{#2}{}%
 786     \else
 787       \edef\k@shape{#2}%
 788     \fi
 789   \else
 790     \begingroup\let\f@encoding\k@encoding\let\f@family\k@family
 791            \maybe@load@fontshape\endgroup
 792     \edef\reserved@a{\k@encoding /\k@family /\k@series/#1}%
 793      \ifcsname \reserved@a\endcsname
 794        \edef\k@shape{#1}%
 795     \else
 796        \ifcsname \k@encoding /\k@family /\k@series/#2\endcsname
 797          \edef\k@shape{#2}%
 798          {\let\curr@fontshape\curr@kfontshape\@font@shape@subst@warning}%
 799        \else
 800          \if@shape@roman@kanji
 801            \set@safe@kanji@shape{#3}%
 802            {{\let\curr@fontshape\curr@kfontshape\@font@shape@subst@warning}}%
 803          \else
 804            \edef\k@shape{#3}%
 805            {\let\curr@fontshape\curr@kfontshape\@font@shape@subst@warning}%
 806          \fi
 807        \fi
 808     \fi
 809   \fi
 810 }
 811 \else % >=2021-06-01
 812 \def\merge@kanji@series@#1#2#3\@nil{%
 813   \def\reserved@a{#3}%
 814   \ifx\reserved@a\@empty
 815     \set@target@series@kanji{#2}%
 816   \else
 817     \begingroup\let\f@encoding\k@encoding\let\f@family\k@family
 818     \maybe@load@fontshape\endgroup
 819     \edef\reserved@a{\k@encoding /\k@family /#1/\k@shape}%
 820      \ifcsname \reserved@a \endcsname
 821        \set@target@series@kanji{#1}%
 822     \else
 823        \ifcsname \k@encoding /\k@family /#2/\k@shape \endcsname
 824          \set@target@series@kanji{#2}%
 825          {\let\curr@fontshape\curr@kfontshape\@font@shape@subst@warning}%
 826        \else
 827          \set@target@series@kanji{#3}%
 828          {\let\curr@fontshape\curr@kfontshape\@font@shape@subst@warning}%
 829        \fi
 830     \fi
 831   \fi
 832 }
 833 \def\merge@kanji@series@without@substitution#1{%
 834   \expandafter\expandafter\expandafter
 835   \merge@kanji@series@without@substitution@
 836     \csname series@\k@series @#1\endcsname
 837     {#1}%
 838     \@nil
 839 }
 840 \def\merge@kanji@series@without@substitution@#1#2#3\@nil{%
 841   \def\reserved@a{#3}%
 842   \ifx\reserved@a\@empty
 843     \set@target@series@kanji{#2}%
 844   \else
 845     \set@target@series@kanji{#1}%
 846   \fi
 847 }
 848 \let\delayed@merge@kanji@series\merge@kanji@series@without@substitution
 849
 850 \def\merge@kanji@shape@#1#2#3\@nil{%
 851   \def\reserved@a{#3}%
 852   \ifx\reserved@a\@empty
 853     \if@shape@roman@kanji
 854       \set@safe@kanji@shape{#2}{}%
 855     \else
 856       \edef\k@shape{#2}%
 857     \fi
 858   \else
 859     \edef\reserved@a{\k@encoding /\k@family /\k@series/#1}%
 860      \ifcsname \reserved@a\endcsname
 861        \edef\k@shape{#1}%
 862     \else
 863        \ifcsname \k@encoding /\k@family /\k@series/#2\endcsname
 864          \edef\k@shape{#2}%
 865          {\let\curr@fontshape\curr@kfontshape\@font@shape@subst@warning}%
 866        \else
 867          \if@shape@roman@kanji
 868            \set@safe@kanji@shape{#3}%
 869            {{\let\curr@fontshape\curr@kfontshape\@font@shape@subst@warning}}%
 870          \else
 871            \edef\k@shape{#3}%
 872            {\let\curr@fontshape\curr@kfontshape\@font@shape@subst@warning}%
 873          \fi
 874        \fi
 875     \fi
 876   \fi
 877 }
 878 \def\merge@kanji@shape@without@substitution#1{%
 879   \expandafter\expandafter\expandafter
 880   \merge@kanji@shape@without@substitution@
 881     \csname shape@\k@shape @#1\endcsname
 882     {#1}%
 883     \@nil
 884 }
 885 \def\merge@kanji@shape@without@substitution@#1#2#3\@nil{%
 886   \def\reserved@a{#3}%
 887   \ifx\reserved@a\@empty
 888     \edef\k@shape{#2}%
 889   \else
 890     \edef\k@shape{#1}%
 891   \fi
 892 }
 893 \let\delayed@merge@kanji@shape\merge@kanji@shape@without@substitution
 894 \fi
 895
 896 \newif\if@forced@series@kanji
 897 \ifnum\ltj@@latex@plv=300 % 2020-02-02 pl3, 4
 898   \DeclareRobustCommand\romanseries[1]{\merge@font@series{#1}}
 899   \DeclareRobustCommand\kanjiseries[1]{\merge@kanji@series{#1}}
 900   \DeclareRobustCommand\romanseriesforce[1]{\edef\f@series{#1}}
 901   \DeclareRobustCommand\kanjiseriesforce[1]{\edef\k@series{#1}}
 902 \else\ifnum\ltj@@latex@plv<1500% >=2020-02-02 pl5 and <=2020-10-01
 903   \DeclareRobustCommand\romanseries[1]{\@forced@seriesfalse\merge@font@series{#1}}
 904   \DeclareRobustCommand\kanjiseries[1]{\@forced@series@kanjifalse\merge@kanji@series{#1}}
 905   \DeclareRobustCommand\romanseriesforce[1]{\@forced@seriestrue\edef\f@series{#1}}
 906   \DeclareRobustCommand\kanjiseriesforce[1]{\@forced@series@kanjitrue\edef\k@series{#1}}
 907 \else% >=2021-06-01
 908   \DeclareRobustCommand\romanseries[1]{\@forced@seriesfalse
 909       \expandafter\def\expandafter\delayed@f@adjustment\expandafter
 910           {\delayed@f@adjustment\delayed@merge@font@series{#1}}}
 911   \DeclareRobustCommand\kanjiseries[1]{\@forced@series@kanjifalse
 912       \expandafter\def\expandafter\delayed@k@adjustment\expandafter
 913           {\delayed@k@adjustment\delayed@merge@kanji@series{#1}}}
 914   \DeclareRobustCommand\romanseriesforce[1]{\@forced@seriestrue
 915       \expandafter\def\expandafter\delayed@f@adjustment\expandafter
 916           {\delayed@f@adjustment\edef\f@series{#1}}}
 917   \DeclareRobustCommand\kanjiseriesforce[1]{\@forced@series@kanjitrue
 918       \expandafter\def\expandafter\delayed@k@adjustment\expandafter
 919           {\delayed@k@adjustment\edef\k@series{#1}}}
 920   \let\delayed@k@adjustment\@empty
 921 \fi\fi
 922 \DeclareRobustCommand\fontseries[1]{\kanjiseries{#1}\romanseries{#1}}%
 923 \DeclareRobustCommand\fontseriesforce[1]{\kanjiseriesforce{#1}\romanseriesforce{#1}}%
 924
 925 \ifnum\ltj@@latex@plv<1500% <=2020-10-01
 926   \DeclareRobustCommand\romanshape[1]{\merge@font@shape{#1}}
 927   \DeclareRobustCommand\kanjishape[1]{\merge@kanji@shape{#1}}
 928   \DeclareRobustCommand\fontshape[1]{%
 929      \@shape@roman@kanjitrue
 930      \merge@font@shape{#1}\merge@kanji@shape{#1}%
 931      \@shape@roman@kanjifalse
 932   }
 933   \DeclareRobustCommand\romanshapeforce[1]{\edef\f@shape{#1}}
 934   \DeclareRobustCommand\kanjishapeforce[1]{\edef\k@shape{#1}}
 935   \DeclareRobustCommand\fontshapeforce[1]{\set@safe@kanji@shape{#1}{}\romanshapeforce{#1}}
 936 \else% >=2021-06-01
 937   \DeclareRobustCommand\romanshape[1]{%
 938        \expandafter\def\expandafter\delayed@f@adjustment\expandafter
 939            {\delayed@f@adjustment\delayed@merge@font@shape{#1}}}
 940   \DeclareRobustCommand\kanjishape[1]{%
 941        \expandafter\def\expandafter\delayed@k@adjustment\expandafter
 942            {\delayed@k@adjustment\delayed@merge@kanji@shape{#1}}}
 943   \DeclareRobustCommand\fontshape[1]{%
 944       \romanshape{#1}%
 945       \expandafter\def\expandafter\delayed@k@adjustment\expandafter
 946           {\delayed@k@adjustment\@shape@roman@kanjitrue
 947            \delayed@merge@kanji@shape{#1}\@shape@roman@kanjifalse}}
 948   \DeclareRobustCommand\romanshapeforce[1]{%
 949       \expandafter\def\expandafter\delayed@f@adjustment\expandafter
 950           {\delayed@f@adjustment\edef\f@shape{#1}}}
 951   \DeclareRobustCommand\kanjishapeforce[1]{%
 952       \expandafter\def\expandafter\delayed@k@adjustment\expandafter
 953           {\delayed@k@adjustment\edef\k@shape{#1}}}
 954   \DeclareRobustCommand\fontshapeforce[1]{%
 955      \romanshapeforce{#1}%
 956      \expandafter\def\expandafter\delayed@k@adjustment\expandafter
 957          {\delayed@k@adjustment\set@safe@kanji@shape{#1}{}}}
 958 \fi
 959 \ifnum\ltj@@latex@plv>1499
 960 %%%% LaTeX >= 2021-06-01
 961 \DeclareRobustCommand\usekanji[4]{%
 962     \kanjiencoding{#1}\edef\k@family{#2}%
 963     \set@target@series@kanji{#3}\edef\k@shape{#4}%
 964     \let\delayed@k@adjustment\@empty
 965     \selectfont\ignorespaces}
 966 \DeclareRobustCommand\useroman[4]{%
 967     \romanencoding{#1}\edef\f@family{#2}%
 968     \set@target@series{#3}\edef\f@shape{#4}%
 969     \let\delayed@f@adjustment\@empty
 970     \selectfont\ignorespaces}
 971 \else\ifnum\ltj@@latex@plv>1000
 972 %%%% 2021-10-01 PL3 <= LaTeX < 2021-06-01
 973 \DeclareRobustCommand\usekanji[4]{%
 974     \kanjiencoding{#1}\edef\k@family{#2}%
 975     \set@target@series@kanji{#3}\edef\k@shape{#4}%
 976     \selectfont\ignorespaces}
 977 \DeclareRobustCommand\useroman[4]{%
 978     \romanencoding{#1}\edef\f@family{#2}%
 979     \set@target@series{#3}\edef\f@shape{#4}%
 980     \selectfont\ignorespaces}
 981 \else
 982 %%%% 2020-10-01 <= LaTeX < 2020-10-01 PL3
 983 \DeclareRobustCommand\usekanji[4]{%
 984     \kanjiencoding{#1}\edef\k@family{#2}\edef\k@series{#3}\edef\k@shape{#4}%
 985     \selectfont\ignorespaces}
 986 \DeclareRobustCommand\useroman[4]{%
 987     \romanencoding{#1}\edef\f@family{#2}\edef\f@series{#3}\edef\f@shape{#4}%
 988     \selectfont\ignorespaces}
 989 \fi\fi
 990 %%%% LaTeX >= 2020-02-02 END
 991 \else
 992 %%%% LaTeX 2019-10-01
 993 \DeclareRobustCommand\romanseries[1]{\edef\f@series{#1}}
 994 \DeclareRobustCommand\kanjiseries[1]{\edef\k@series{#1}}
 995 \DeclareRobustCommand\fontseries[1]{\kanjiseries{#1}\romanseries{#1}}
 996 \DeclareRobustCommand\romanshape[1]{\edef\f@shape{#1}}
 997 \DeclareRobustCommand\kanjishape[1]{\edef\k@shape{#1}}
 998 \DeclareRobustCommand\fontshape[1]{\set@safe@kanji@shape{#1}{}\romanshape{#1}}
 999 \DeclareRobustCommand\usekanji[4]{%
1000     \kanjiencoding{#1}\kanjifamily{#2}\kanjiseries{#3}\kanjishape{#4}%
1001     \selectfont\ignorespaces}
1002 \DeclareRobustCommand\useroman[4]{%
1003     \romanencoding{#1}\romanfamily{#2}\romanseries{#3}\romanshape{#4}%
1004     \selectfont\ignorespaces}
1005 %%%% LaTeX 2019-10-01 END
1006 \fi
1007 %%%%
1008
1009 \def\set@safe@kanji@shape#1#2{%
1010   \edef\reserved@b{\k@encoding /\k@family /\k@series/#1}%
1011   \ifcsname \reserved@b\endcsname
1012     \edef\k@shape{#1}%
1013     #2%
1014   \else
1015     \@kanji@shape@nochange@info{\reserved@b}%
1016   \fi
1017 }
1018 \def\@kanji@shape@nochange@info#1{%
1019     \@font@info{Kanji font shape `#1' undefined\MessageBreak
1020                 No change}%
1021 }
1022
1023 \protected\def\usefont#1#2#3#4{%
1024   \ltj@@is@kenc{#1}\ifin@\usekanji{#1}{#2}{#3}{#4}%
1025   \else\useroman{#1}{#2}{#3}{#4}%
1026   \fi}
1027
1028 \ifnum 0\ifltj@ltfilehook@avail1\fi\ifdefined\@rmfamilyhook1\fi>0
1029 %%%% LaTeX >= 2020-02-02
1030 \let\prepare@family@series@update@kanji=\prepare@family@series@update
1031 \patchcmd\prepare@family@series@update{\fontfamily}{\romanfamily}{}{}
1032 \patchcmd\prepare@family@series@update@kanji{\if@forced@series}{\if@forced@series@kanji}{}{}
1033 \patchcmd\prepare@family@series@update@kanji{\fontfamily}{\kanjifamily}{}{}
1034 \patchcmd\prepare@family@series@update@kanji{\update@series@target@value}{\update@series@target@value@kanji}{}{}
1035 \patchcmd\prepare@family@series@update@kanji{\f@family}{\k@family}{}{}
1036 \patchcmd\prepare@family@series@update@kanji{\@meta@family@list}{\@meta@family@list@kanji}{}{}
1037 \patchcmd\prepare@family@series@update@kanji{\fontfamily}{\kanjifamily}{}{}
1038 \patchcmd\prepare@family@series@update@kanji{\maybe@load@fontshape}
1039   {\begingroup\let\f@encoding\k@encoding\let\f@family\k@family
1040     \maybe@load@fontshape\endgroup}{}{}
1041 \patchcmd\prepare@family@series@update@kanji{\f@series}{\k@series}{}{}
1042 \patchcmd\prepare@family@series@update@kanji{\f@series}{\k@series}{}{}
1043 \let\update@series@target@value@kanji=\update@series@target@value
1044 \patchcmd\update@series@target@value@kanji{\f@family}{\k@family}{}{}
1045 \patchcmd\update@series@target@value@kanji{\f@series}{\k@series}{}{}
1046 \patchcmd\update@series@target@value@kanji{\f@series}{\k@series}{}{}
1047 \patchcmd\update@series@target@value@kanji{\f@series}{\k@series}{}{}
1048 \patchcmd\update@series@target@value@kanji{\f@series}{\k@series}{}{}
1049 \def\@meta@family@list@kanji{\@elt{mc}\@elt{gt}\@elt{jtt}}
1050
1051 \def\@ltj@hook@series@default#1#2#3{%
1052   \ifltj@ltfilehook@avail % 2020-10-01
1053     \AddToHook{#1/defaults}{#2}%
1054   \else\ifcsname @set#1defaultshook\endcsname %after 2020-04-07
1055     \expandafter\g@addto@macro\csname @set#1defaultshook\endcsname{#2}%
1056   \else % 2020-02-02
1057     \expandafter\patchcmd\csname #1 \endcsname{#3}{#3#2}{}{}%
1058   \fi\fi
1059 }
1060 \@ltj@hook@series@default{bfseries}{%
1061   \let\bfseries@mc\bfdef@ult
1062   \let\bfseries@gt\bfdef@ult
1063   \let\bfseries@jtt\bfdef@ult
1064 }{%
1065   \let\bfseries@rm\bfdef@ult
1066   \let\bfseries@sf\bfdef@ult
1067   \let\bfseries@tt\bfdef@ult
1068 }
1069 \@ltj@hook@series@default{mdseries}{%
1070   \let\mdseries@mc\mddef@ult
1071   \let\mdseries@gt\mddef@ult
1072   \let\mdseries@jtt\mddef@ult
1073 }{%
1074   \let\mdseries@rm\mddef@ult
1075   \let\mdseries@sf\mddef@ult
1076   \let\mdseries@tt\mddef@ult
1077 }
1078 \let\@ltj@hook@series@default\@undefined
1079
1080 \expandafter\patchcmd\csname bfseries \endcsname{%
1081   \ifx\f@family\rmdef@ult      \fontseries\bfseries@rm
1082   \else\ifx\f@family\sfdef@ult \fontseries\bfseries@sf
1083   \else\ifx\f@family\ttdef@ult \fontseries\bfseries@tt
1084   \else                        \fontseries\bfdefault
1085   \fi\fi\fi
1086 }{%
1087   \ifx\f@family\rmdef@ult      \romanseries\bfseries@rm
1088   \else\ifx\f@family\sfdef@ult \romanseries\bfseries@sf
1089   \else\ifx\f@family\ttdef@ult \romanseries\bfseries@tt
1090   \else                        \romanseries\bfdefault
1091   \fi\fi\fi
1092 }{}{}
1093 \expandafter\patchcmd\csname mdseries \endcsname{%
1094   \ifx\f@family\rmdef@ult      \fontseries\mdseries@rm
1095   \else\ifx\f@family\sfdef@ult \fontseries\mdseries@sf
1096   \else\ifx\f@family\ttdef@ult \fontseries\mdseries@tt
1097   \else                        \fontseries\mddefault
1098   \fi\fi\fi
1099 }{%
1100   \ifx\f@family\rmdef@ult      \romanseries\mdseries@rm
1101   \else\ifx\f@family\sfdef@ult \romanseries\mdseries@sf
1102   \else\ifx\f@family\ttdef@ult \romanseries\mdseries@tt
1103   \else                        \romanseries\mddefault
1104   \fi\fi\fi
1105 }{}{}
1106
1107 \def\@ltj@hook@series#1#2{%
1108   \ifltj@ltfilehook@avail % 2020-10-01
1109     \AddToHook{#1}{#2}%
1110   \else % 2020-02-02
1111     \expandafter\patchcmd\csname #1 \endcsname{\selectfont}{#2\selectfont}{}{}%
1112   \fi
1113 }
1114 \@ltj@hook@series{bfseries}{%
1115   \ifx\k@family\mcdef@ult      \kanjiseries\bfseries@mc
1116   \else\ifx\k@family\gtdef@ult \kanjiseries\bfseries@gt
1117   \else\ifx\k@family\jttdef@ult\kanjiseries\bfseries@jtt
1118   \else                        \kanjiseries\bfdefault
1119   \fi\fi\fi
1120 }
1121 \@ltj@hook@series{mdseries}{%
1122   \ifx\k@family\mcdef@ult      \kanjiseries\mdseries@mc
1123   \else\ifx\k@family\gtdef@ult \kanjiseries\mdseries@gt
1124   \else\ifx\k@family\jttdef@ult\kanjiseries\mdseries@jtt
1125   \else                        \kanjiseries\mddefault
1126   \fi\fi\fi
1127 }
1128 \let\@ltj@hook@series\@undefined
1129
1130 \def\@ltj@hook@efd#1#2{%
1131   \ifltj@ltfilehook@avail % 2020-10-01
1132     \AddToHook{expand@font@defaults}{#1}%
1133   \else\ifdefined\@expandfontdefaultshook %after 2020-04-07
1134     \g@addto@macro\@expandfontdefaultshook{#1#2}%
1135   \else % 2020-02-02
1136     \appto\expand@font@defaults{#1#2}%
1137   \fi\fi
1138 }
1139 \@ltj@hook@efd{%
1140   \edef\mcdef@ult{\mcdefault}%
1141   \edef\gtdef@ult{\gtdefault}%
1142   \edef\jttdef@ult{\jttdefault}%
1143 }{\edef\kanjidef@ult{\kanjifamilydefault}}
1144 \let\@ltj@hook@efd\@undefined
1145
1146 \ifltj@ltfilehook@avail % 2020-10-01
1147   \appto\init@series@setup{%
1148     \ifx\kanjiseriesdefault\kanjiseriesdefault@kernel
1149       \mdseries
1150       \let\kanjiseriesdefault\k@series
1151     \fi
1152   }
1153 \else
1154   \appto\init@series@setup{%
1155     \ifx\kanjidef@ult\mcdef@ult      \mcfamily
1156     \else\ifx\kanjidef@ult\gtdef@ult \gtfamily
1157     \else\ifx\kanjidef@ult\jttdef@ult \jttfamily
1158     \fi\fi\fi
1159   }
1160 \fi
1161
1162 \def\@ltj@hook@dfh#1{%
1163   \ifltj@ltfilehook@avail % 2020-10-01
1164     \AddToHook{normalfont}{#1}%
1165   \else\ifdefined\@defaultfamilyhook
1166     \g@addto@macro\@defaultfamilyhook{#1}%
1167   \else % 2020-02-02
1168     \expandafter\patchcmd\csname normalfont \endcsname{\selectfont}{#1\selectfont}{}{}%
1169     \let\reset@font\normalfont
1170   \fi\fi
1171 }
1172
1173 \ifnum\ltj@@latex@plv>1499
1174 \@ltj@hook@dfh{%
1175   \kanjiencoding{\kanjiencodingdefault}%
1176   \edef\k@family{\kanjifamilydefault}%
1177   \edef\k@series{\kanjiseriesdefault}%
1178   \edef\k@shape{\kanjishapedefault}%
1179   \let\delayed@k@adjustment\empty
1180 }
1181 \else
1182 \@ltj@hook@dfh{%
1183   \kanjiencoding{\kanjiencodingdefault}%
1184   \edef\k@family{\kanjifamilydefault}%
1185   \edef\k@series{\kanjiseriesdefault}%
1186   \edef\k@shape{\kanjishapedefault}%
1187 }
1188 \fi
1189 \let\@ltj@hook@dfh\@undefined
1190 %%%% LaTeX >= 2020-02-02 END
1191 \else
1192 %%%% LaTeX 2019-10-01
1193 \DeclareRobustCommand\normalfont{%
1194     \useroman\encodingdefault\familydefault\seriesdefault\shapedefault
1195     \usekanji\kanjiencodingdefault\kanjifamilydefault\kanjiseriesdefault\kanjishapedefault}
1196 \let\reset@font\normalfont
1197 %%%% LaTeX 2019-10-01 END
1198 \fi
1199
1200
1201
1202 \ifdefined\prepare@family@series@update@kanji\else
1203 %%%% LaTeX 2019-10-01
1204 \def\prepare@family@series@update@kanji#1{\kanjifamily}
1205 \fi
1206
1207 \DeclareRobustCommand\mcfamily{%
1208   \unless\ifltj@disablejfam\not@math@alphabet\mcfamily\mathmc\fi
1209   \prepare@family@series@update@kanji{mc}\mcdefault
1210   \selectfont}
1211 \DeclareRobustCommand\gtfamily{%
1212   \unless\ifltj@disablejfam\not@math@alphabet\gtfamily\mathgt\fi
1213   \prepare@family@series@update@kanji{gt}\gtdefault
1214   \selectfont}
1215
1216
1217 \let\romanprocess@table\process@table
1218 \def\kanjiprocess@table{%
1219   \kanjiencoding\kanjiencodingdefault%
1220   \edef\k@family{\kanjifamilydefault}%
1221   \edef\k@series{\kanjiseriesdefault}%
1222   \edef\k@shape{\kanjishapedefault}%
1223 }
1224 \def\process@table{%
1225   \romanprocess@table
1226   \kanjiprocess@table
1227 }
1228 \@onlypreamble\romanprocess@table
1229 \@onlypreamble\kanjiprocess@table
1230
1231 %%%%%% LuaTeX-ja specific
1232
1233 % #1/#2 の展開結果から encoding 部分 (#1) をとりだし，それが和文用かどうかの結果を \ifin@ に代入
1234 \def\ltj@@IsFontJapanese#1/#2\relax{\ltj@@is@kenc{#1}}
1235
1236 \let\extract@afont\extract@font
1237 \def\pickup@jfont{%
1238   \ifnum
1239     \unless\ifnum\ltjgetparameter{direction}=3 1\else
1240     \ifltjselectfont@force@define 1\else 0\fi\fi =1 %
1241     \expandafter \ifx \font@name \relax
1242        \let\extract@font\extract@jfont
1243        \define@newfont
1244        \let\extract@font\extract@afont
1245     \fi
1246     \let\getjfont\font@name
1247   \else
1248     \begingroup\escapechar\m@ne
1249       \ifcsname ltj@@fontjfm/\expandafter\string\font@name\endcsname\else
1250         \let\extract@font\extract@jfont@onlyjfm
1251         \define@newfont
1252         \let\extract@font\extract@afont
1253       \fi
1254     \endgroup
1255     \csname ltj@@fontjfm/\expandafter\expandafter\expandafter\@gobble\expandafter\string\font@name\endcsname
1256   \fi
1257 }
1258 \def\pickup@tfont{%
1259   \ifnum
1260     \ifnum\ltjgetparameter{direction}=3 1\else
1261     \ifltjselectfont@force@define 1\else 0\fi\fi =1 %
1262     \expandafter \ifx \font@name \relax
1263        \let\extract@font\extract@tfont
1264        \define@newfont
1265        \let\extract@font\extract@afont
1266     \fi
1267     \let\gettfont\font@name
1268   \else
1269     \begingroup\escapechar\m@ne
1270       \ifcsname ltj@@fontjfm/\expandafter\string\font@name\endcsname\else
1271         \let\extract@font\extract@tfont@onlyjfm
1272         \define@newfont
1273         \let\extract@font\extract@afont
1274       \fi
1275     \endgroup
1276     \csname ltj@@fontjfm/\expandafter\expandafter\expandafter\@gobble\expandafter\string\font@name\endcsname
1277   \fi
1278 }
1279
1280 % 異なる和文 enc/fam/ser/shape からは異なるフォント番号が振られるように
1281 % わざと「ゴミをつける」
1282 \def\ltj@@patch@external@font#1 at{%
1283   \directlua{
1284         local s = '\luatexluaescapestring{#1}'
1285         local is_braced, is_quoted
1286         if s:sub(1,1)=='{' and s:sub(-1)=='}' then is_braced=true; s=s:sub(2,-2) end
1287         if s:sub(1,1)=='"' and s:sub(-1)=='"' then is_quoted=true; s=s:sub(2,-2) end
1288         s=s..luatexja.jfont.print_aftl_address()
1289         if is_braced then s='{'..s..'}' elseif is_quoted then s='"'..s..'"' end
1290         %print(s, is_quoted, is_braced)
1291     tex.sprint(-2, s)}%
1292   \space at%
1293 }
1294 \def\extract@jfont{%
1295     \get@external@font
1296     \ltj@@does@alt@set{\f@encoding/\f@family/\f@series/\f@shape}{%
1297       \edef\external@font{\expandafter\ltj@@patch@external@font\external@font}%
1298     }%
1299     \expandafter\globaljfont\font@name\external@font\relax\font@name% ここで時間がかかる
1300     \csname \f@encoding+\f@family\endcsname
1301     \csname\curr@fontshape\endcsname}
1302 \def\extract@tfont{%
1303     \get@external@font
1304     \ltj@@does@alt@set{\f@encoding/\f@family/\f@series/\f@shape}{%
1305       \edef\external@font{\expandafter\ltj@@patch@external@font\external@font}%
1306     }%
1307     \expandafter\globaltfont\font@name\external@font\relax\font@name
1308     \csname \f@encoding+\f@family\endcsname
1309     \csname\curr@fontshape\endcsname}
1310
1311 \newluafunction\ltj@@jfont@@jfmonly@@inner
1312 \directlua{%
1313   local lf = lua.get_functions_table()
1314   lf[\the\ltj@@jfont@@jfmonly@@inner]  = luatexja.jfont.load_jfmonly
1315 }
1316 \luadef\ltj@@jfont@@jfmonly  \ltj@@jfont@@jfmonly@@inner
1317 \def\extract@jfont@onlyjfm{%
1318   \get@external@font
1319   \csxdef{ltj@@fontjfm/\expandafter\string\font@name}{%
1320     \ltj@@jfont@@jfmonly{\external@font}{yoko}%
1321 }}
1322 \def\extract@tfont@onlyjfm{%
1323   \get@external@font
1324   \csxdef{ltj@@fontjfm/\expandafter\string\font@name}{%
1325     \ltj@@jfont@@jfmonly{\external@font}{tate}%
1326 }}
1327
1328 \let\ltj@@al@do@subst@correction=\do@subst@correction
1329 \def\ltj@@ja@do@subst@correction{%
1330     \xdef\subst@correction{%
1331       \font@name
1332       \global\expandafter\let\csname \curr@fontshape/\f@size\endcsname\font@name%
1333       \relax}%
1334     \aftergroup\subst@correction
1335 }
1336 \def\do@subst@correction{%
1337    \ltj@@is@kenc{\f@encoding}\ifin@%
1338      \ltj@@ja@do@subst@correction
1339    \else
1340      \ltj@@al@do@subst@correction
1341    \fi
1342 }
1343 \let\@@italiccorr=\/
1344
1345 %%%%%% Japanese font for math mode
1346 \unless\ifltj@disablejfam
1347
1348 % \M@<enc> から その <enc> が和文用か調べる
1349 {\catcode`M=12%
1350 \gdef\ltj@@mathJapaneseFonts#1M#2#3/#4\relax{\ltj@@is@kenc{#3}}}
1351
1352 \let\ltj@@al@getanddefine@fonts=\getanddefine@fonts
1353 \def\ltj@@ja@getanddefine@fonts#1#2{%
1354   \csletcs{if@ltj@tempif}{ifltjselectfont@force@define}%
1355   \ltjselectfont@force@definetrue
1356   \xdef\font@name{\csname \string#2/\tf@size\endcsname}%
1357   \pickup@jfont\let\textfont@name\font@name
1358   \xdef\font@name{\csname \string#2/\sf@size\endcsname}%
1359   \pickup@jfont\let\scriptfont@name\font@name
1360   \xdef\font@name{\csname \string#2/\ssf@size\endcsname}%
1361   \pickup@jfont
1362   \csletcs{ifltjselectfont@force@define}{if@ltj@tempif}%
1363   \edef\math@fonts{\math@fonts\ltj@setpar@global%
1364     \ltj@@set@stackfont#1,\textfont@name:{MJT}%
1365     \ltj@@set@stackfont#1,\scriptfont@name:{MJS}%
1366     \ltj@@set@stackfont#1,\font@name:{MJSS}%
1367   }%
1368 }
1369
1370 \def\getanddefine@fonts#1#2{%
1371   \ltj@tempcnta=#1\expandafter\ltj@@IsFontJapanese\string#2/\relax%
1372   \ifin@\let\ltj@temp=\ltj@@ja@getanddefine@fonts%
1373   \else \let\ltj@temp=\ltj@@al@getanddefine@fonts\fi
1374   \ltj@temp{#1}{#2}%
1375 }
1376 \def\use@mathgroup#1#2{\relax\ifmmode
1377   \math@bgroup
1378     \expandafter\ifx\csname M@\f@encoding\endcsname#1\else
1379     #1\fi\ltj@tempcnta=#2
1380       \expandafter\ltj@@mathJapaneseFonts\string#1/\relax%
1381     \ifin@\jfam#2\relax\else\mathgroup#2\relax\fi
1382   \expandafter\math@egroup\fi}%
1383
1384 \fi
1385
1386 %%%%%% Alternate Japanese Fonts
1387 %%%% \DeclareAlternateKanjiFont<Benc><Bfam><Bser><Bshape><Aenc><Afam><Aser><Ashape><range>
1388 % いつも global
1389 \def\DeclareAlternateKanjiFont#1#2#3#4#5#6#7#8#9{%
1390   \edef\@temp{#9}%
1391   \ifx\@temp\@empty\else
1392     {\def\ltj@temp@bfont{#1/#2/#3/#4}\def\ltj@temp@afont{#5/#6/#7/#8}%
1393      \expandafter\ltj@@altfont@latex#9,,}\ignorespaces
1394   \fi}
1395 \def\ltj@@altfont@latex#1,{\def\ltj@temp{#1}%
1396   \ifx\ltj@temp\empty\let\@next=\relax\else
1397   \ltj@@altfont@latexA{#1}\let\@next=\ltj@@altfont@latex\fi\@next}
1398 \def\ltj@@altfont@latexA#1{\ltj@@altfont@latexB#1--\@nil}
1399 \def\ltj@@altfont@latexB#1-#2-#3\@nil{\def\ltj@temp{#3}%
1400   \ifx\ltj@temp\empty
1401     \ltj@tempcnta=#1\relax\ltj@tempcntb=\ltj@tempcnta
1402   \else
1403     \def\ltj@temp{#1}%
1404     \ifx\ltj@temp\empty\ltj@tempcnta='200\else\ltj@tempcnta=#1\fi\relax
1405     \def\ltj@temp{#2}%
1406     \ifx\ltj@temp\empty\ltj@tempcntb="10FFFF\else\ltj@tempcntb=#2\fi\relax%"
1407   \fi
1408   \directlua{luatexja.jfont.set_alt_font_latex(
1409     \the\ltj@tempcnta,\the\ltj@tempcntb,
1410     '\luatexluaescapestring{\ltj@temp@afont}',
1411     '\luatexluaescapestring{\ltj@temp@bfont}')}%
1412 }
1413
1414 %%%% \ClearAlternateKanjiFont<Benc><Bfam><Bser><Bshape>
1415 % いつも global
1416 \newluafunction\ltj@@does@alt@set@@inner
1417 \directlua{%
1418   local lf = lua.get_functions_table()
1419   lf[\the\ltj@@does@alt@set@@inner]  = luatexja.jfont.does_alt_set
1420 }
1421 \def\ltj@@does@alt@set#1#2{\luafunction\ltj@@does@alt@set@@inner{#1}{#2}}
1422 \def\ClearAlternateKanjiFont#1#2#3#4{%
1423    \directlua{luatexja.jfont.clear_alt_font_latex('\luatexluaescapestring{#1/#2/#3/#4}')}}
1424
1425 \def\ltj@pickup@altfont@auxy#1{%
1426   \begingroup\edef\font@name{\csname #1/\f@size\endcsname}\pickup@jfont\endgroup%
1427 }
1428 \def\ltj@pickup@altfont@auxt#1{%
1429   \begingroup\edef\font@name{\csname #1/\f@size\endcsname}\pickup@tfont\endgroup%
1430 }
1431 \def\ltj@pickup@altfont@copy#1#2{%
1432   \ltj@@getjfontnumber#1%
1433   \directlua{luatexja.jfont.pickup_alt_font_b(\the\ltj@tempcntc,'\luatexluaescapestring{#2}')}%
1434 }
1435 \endinput