summaryrefslogtreecommitdiff
path: root/tex/context/base/typo-drp.lua
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/typo-drp.lua')
-rw-r--r--tex/context/base/typo-drp.lua19
1 files changed, 9 insertions, 10 deletions
diff --git a/tex/context/base/typo-drp.lua b/tex/context/base/typo-drp.lua
index 57818d62f..34ad00078 100644
--- a/tex/context/base/typo-drp.lua
+++ b/tex/context/base/typo-drp.lua
@@ -205,19 +205,18 @@ actions[v_default] = function(head,setting)
local done = false
if getid(head) == whatsit_code and getsubtype(head) == localpar_code then
-- begin of par
- local first = getnext(head)
+ local first = getnext(head)
+ local indent = false
-- parbox .. needs to be set at 0
if first and getid(first) == hlist_code then
- first = getnext(first)
+ first = getnext(first)
+ indent = true
end
-- we need to skip over kerns and glues (signals)
while first and getid(first) ~= glyph_code do
first = getnext(first)
end
if first and getid(first) == glyph_code then
-
--- show(head,8,"one")
-
local ma = setting.ma or 0
local ca = setting.ca
local ta = setting.ta
@@ -371,7 +370,7 @@ actions[v_default] = function(head,setting)
end
end
--
- local hoffset = width + hoffset + distance + parindent
+ local hoffset = width + hoffset + distance + (indent and parindent or 0)
for current in traverse_id(glyph_code,first) do
setfield(current,"xoffset",- hoffset )
setfield(current,"yoffset",- voffset) -- no longer - height here
@@ -391,15 +390,15 @@ actions[v_default] = function(head,setting)
-- We cannot set parshape yet ... when we can I'll add a slope
-- option (positive and negative, in emwidth).
local hangafter = - lines
- local hangindent = width + distance + parindent
+ local hangindent = width + distance
if trace_initials then
report_initials("setting hangafter to %i and hangindent to %p",hangafter,hangindent)
end
tex.hangafter = hangafter
tex.hangindent = hangindent
- if parindent ~= 0 then
- insert_after(first,first,new_kern(-parindent))
- end
+ end
+ if indent then
+ insert_after(first,first,new_kern(-parindent))
end
done = true
end