OSDN Git Service
(root)
/
luatex-ja
/
luatexja.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Babel 3.44 inserts \textdir
[luatex-ja/luatexja.git]
/
src
/
luatexja.lua
diff --git
a/src/luatexja.lua
b/src/luatexja.lua
index
767659a
..
1b3bd81
100644
(file)
--- a/
src/luatexja.lua
+++ b/
src/luatexja.lua
@@
-232,7
+232,9
@@
do
}
local unary_pars = luatexja.unary_pars
}
local unary_pars = luatexja.unary_pars
- function luatexja.ext_get_parameter_unary(k)
+ local scan_arg = token.scan_argument
+ function luatexja.ext_get_parameter_unary()
+ local k= scan_arg()
if unary_pars[k] then
tex.write(tostring(unary_pars[k](tex.getcount('ltj@@stack'))))
end
if unary_pars[k] then
tex.write(tostring(unary_pars[k](tex.getcount('ltj@@stack'))))
end
@@
-289,9
+291,9
@@
do
end,
}
local binary_pars = luatexja.binary_pars
end,
}
local binary_pars = luatexja.binary_pars
-
+ local scan_arg, scan_int = token.scan_argument, token.scan_int
binary_pars.alxspmode = binary_pars.jaxspmode
binary_pars.alxspmode = binary_pars.jaxspmode
- function luatexja.ext_get_parameter_binary(k,c)
+ function luatexja.ext_get_parameter_binary(k,
c)
if binary_pars[k] then
tex.write(tostring(binary_pars[k](c,tex.getcount('ltj@@stack'))))
end
if binary_pars[k] then
tex.write(tostring(binary_pars[k](c,tex.getcount('ltj@@stack'))))
end
@@
-514,6
+516,9
@@
local function debug_show_node_X(p,print_fn, limit, inner_depth)
s = s .. ' (for kinsoku)'
end
print_fn(s)
s = s .. ' (for kinsoku)'
end
print_fn(s)
+ elseif pt == 'dir' then
+ s = base .. ' ' .. tostring(p.dir) .. ' (level ' .. tostring(p.level) .. ')'
+ print_fn(s)
elseif pt == 'whatsit' then
s = base
if p.subtype==sid_user then
elseif pt == 'whatsit' then
s = base
if p.subtype==sid_user then