• R/O
  • HTTP
  • SSH
  • HTTPS

luatexja: Commit

ソースコードの管理場所


Commit MetaInfo

Revision6d7ed5fa7c91771c7612a9c4a46322756d2041cf (tree)
Time2022-01-12 19:58:44
AuthorHironori Kitagawa <h_kitagawa2001@yaho...>
CommiterHironori Kitagawa

Log Message

\vadjust pre

Change Summary

Incremental Difference

--- a/src/ltj-direction.lua
+++ b/src/ltj-direction.lua
@@ -924,6 +924,11 @@ end
924924 -- adjust
925925 do
926926 local id_adjust = node.id 'adjust'
927+ local scan_keyword = token.scan_keyword
928+ function luatexja.direction.adjust_begin()
929+ if scan_keyword 'pre' then tex.sprint(cat_lp, '\\ltj@@vadjust@pre')
930+ else tex.sprint(cat_lp, '\\ltj@@vadjust@post') end
931+ end
927932 function luatexja.direction.check_adjust_direction()
928933 start_time_measure 'box_primitive_hook'
929934 local list_dir = get_adjust_dir_count()
--- a/src/luatexja-core.sty
+++ b/src/luatexja-core.sty
@@ -65,7 +65,7 @@
6565 \expandafter\let\csname ifltj@in@latex\expandafter\endcsname
6666 \csname iftrue\endcsname
6767 \NeedsTeXFormat{LaTeX2e}
68- \ProvidesPackage{luatexja-core}[2021-05-21 Core of LuaTeX-ja]
68+ \ProvidesPackage{luatexja-core}[2022-01-12 Core of LuaTeX-ja]
6969 \fi %</LaTeX>
7070
7171 %% Load prerequisite packages.
@@ -623,19 +623,22 @@
623623
624624 %%%% vadjust
625625 \let\ltj@@orig@vadjust\vadjust
626+\newluafunction\ltj@@vadjust@begin@inner
626627 \newluafunction\ltj@@vadjust@dirhook@inner
627628 \newluafunction\ltj@@vadjust@check@dir@inner
628629 \directlua{
629630 local t = lua.get_functions_table()
631+ t[\the\ltj@@vadjust@begin@inner] = luatexja.direction.adjust_begin
630632 t[\the\ltj@@vadjust@dirhook@inner]
631633 = function () luatexja.direction.set_list_direction_hook('adj') end
632- t[\the\ltj@@vadjust@check@dir@inner]
633- = luatexja.direction.check_adjust_direction
634+ t[\the\ltj@@vadjust@check@dir@inner] = luatexja.direction.check_adjust_direction
634635 }
636+\protected\luadef\ltj@@vadjust\ltj@@vadjust@begin@inner
635637 \luadef\ltj@@vadjust@dirhook\ltj@@vadjust@dirhook@inner
636638 \protected\luadef\ltj@@vadjust@check@dir\ltj@@vadjust@check@dir@inner
637-\protected\def\ltj@@vadjust{%
638- \ltj@@orig@vadjust\bgroup\ltj@@vadjust@dirhook
639+\def\ltj@@vadjust@pre{\ltj@@orig@vadjust pre\bgroup\ltj@@vadjust@dirhook
640+ \aftergroup\ltj@@vadjust@check@dir\let\ltj@@next}
641+\def\ltj@@vadjust@post{\ltj@@orig@vadjust\bgroup\ltj@@vadjust@dirhook
639642 \aftergroup\ltj@@vadjust@check@dir\let\ltj@@next}
640643 \let\vadjust\ltj@@vadjust %% PRIMITIVE
641644
Show on old repository browser