\expandafter\let\csname ifltj@in@latex\expandafter\endcsname
\csname iftrue\endcsname
\NeedsTeXFormat{LaTeX2e}
- \ProvidesPackage{luatexja-core}[2014/02/01 Core of LuaTeX-ja]
+ \ProvidesPackage{luatexja-core}[2014/06/22 Core of LuaTeX-ja]
\fi %</LaTeX>
%% Load prerequisite packages.
{Package loading is aborted now.\MessageBreak}
\expandafter\endinput\fi\relax
- \@PackageInfoNoLine{luatexja-core}
- {using\space%
- \directlua{if node.direct==node then tex.write('traditional node')
- else tex.write('DIRECT') end} node access model}
-
%! なお、luatexbase-compat の説明に従うと、LuaTeX 拡張プリミティブは
%! plain/LaTeX の両方で \luatex 付の名前(\directlua はそのまま)
%! で使えると考えてよい。
\protected\def\/{\relax\directlua{luatexja.jfont.append_italic()}}
%%%%%%%% \jfont\CS={...:...;jfm=metric;...}, \globaljfont
-\protected\def\jfont{\afterassignment\ltj@@jfont\directlua{luatexja.jfont.jfontdefX(false)}}
+\protected\def\jfont{%
+ \afterassignment\ltj@@jfont\directlua{luatexja.jfont.jfontdefX(false)}}
\protected\def\globaljfont{%
\afterassignment\ltj@@jfont\directlua{luatexja.jfont.jfontdefX(true)}}
\def\ltj@@jfont{\directlua{luatexja.jfont.jfontdefY('yoko')}}
}
%%%% hbox, vbox, vtop
-% The below code does not work
-%\everyhbox{\immediate\message{HBOX(\the\ltj@dir@count)}%
-% \ifcase\ltj@dir@count\or\dtou\or\or\tate\or\yoko\fi
-%}
-%\everyvbox{\immediate\message{VBOX}%
-% \ifcase\ltj@dir@count\or\dtou\or\or\tate\or\yoko\fi
-%}
+\everyhbox{%
+ \ifcase\ltj@dir@count\or\dtou\or\or\tate\or\yoko\fi
+ \aftergroup\ltj@@reset@badness
+}
+\everyvbox{%
+ \ifcase\ltj@dir@count\or\dtou\or\or\tate\or\yoko\fi
+ \aftergroup\ltj@@reset@badness
+}
+\protected\def\ltj@@reset@badness{%
+ \directlua{%
+ if luatexja.global_temp then
+ tex.hbadness= tex.hbadness or luatexja.hbadness_temp
+ tex.vbadness= tex.vbadness or luatexja.vbadness_temp
+ tex.globaldefs= luatexja.global_temp or tex.globaldefs
+ end
+ }%
+}
+
%%%% unhbox and unvbox
\let\ltj@@orig@unhbox=\unhbox
\protected\def\ltj@@unvbox{%
\directlua{luatexja.direction.check_dir(\the\ltj@tempcnta)}%
\ltj@@orig@unvbox\ltj@tempcnta\endgroup}
+
+
%%%% lastbox
\let\ltj@@orig@lastbox=\lastbox
\protected\def\lastbox{%