X-Git-Url: http://git.osdn.jp/view?a=blobdiff_plain;f=src%2Fltj-base.sty;h=717105e3a506ec91566d86114c4edb316b2d6e5f;hb=3fae82d64b193c794fdf2f1262d80bddc98ce5a8;hp=918e79790266eb581113df18a4f3cad8ae6ab6e6;hpb=78c40fe0795cf45ccc8adea98862684bdeb2e9f1;p=luatex-ja%2Fluatexja.git diff --git a/src/ltj-base.sty b/src/ltj-base.sty index 918e797..717105e 100644 --- a/src/ltj-base.sty +++ b/src/ltj-base.sty @@ -13,7 +13,7 @@ \ifltj@in@latex %<*LaTeX> \NeedsTeXFormat{LaTeX2e} - \ProvidesPackage{ltj-base}[2016/05/15] + \ProvidesPackage{ltj-base}[2017/05/05] \fi % %%------------------ Tiny helpers @@ -447,16 +447,16 @@ luatexja.base._error_show(true)% and many spaces trail! \protected\def\ltj@afterbox#1{% \def\ltj@afb@xarg{#1}% \afterassignment\ltj@afb@x - \chardef\next`.} -\def\ltj@afb@x{\futurelet\next\ltj@afb@xtest} + \chardef\ltj@@next`.} +\def\ltj@afb@x{\futurelet\ltj@@next\ltj@afb@xtest} \def\ltj@afb@xtest{% - \ifcase\ifx\next\hbox\tw@\fi - \ifx\next\vbox\tw@\fi - \ifx\next\vtop\tw@\fi - \ifx\next\box\@ne\fi - \ifx\next\copy\@ne\fi - \ifx\next\vsplit\@ne\fi - \ifx\next\lastbox\@ne\fi + \ifcase\ifx\ltj@@next\hbox\tw@\fi + \ifx\ltj@@next\vbox\tw@\fi + \ifx\ltj@@next\vtop\tw@\fi + \ifx\ltj@@next\box\@ne\fi + \ifx\ltj@@next\copy\@ne\fi + \ifx\ltj@@next\vsplit\@ne\fi + \ifx\ltj@@next\lastbox\@ne\fi 0% ``A was ...'' error will be causes by \setbox later anyway. \or\afterassignment\ltj@afb@xarg \or\afterassignment\ltj@afb@xagarg