src/patches/lltjfont.sty

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