diff options
| author | Hans Hagen <pragma@wxs.nl> | 2017-10-24 11:13:27 +0200 |
|---|---|---|
| committer | Context Git Mirror Bot <phg42.2a@gmail.com> | 2017-10-24 11:13:27 +0200 |
| commit | d91c37679b13162a4ead85abbe564090b2e1b51c (patch) | |
| tree | 01b9c9e5a2437c7381b0f6d109cd51f0f6bed84e /tex/context/base/mkiv/lpdf-tag.lua | |
| parent | cb218b728af372a1ed6c9188765022dc057799ac (diff) | |
| download | context-d91c37679b13162a4ead85abbe564090b2e1b51c.tar.gz | |
2017-10-24 10:36:00
Diffstat (limited to 'tex/context/base/mkiv/lpdf-tag.lua')
| -rw-r--r-- | tex/context/base/mkiv/lpdf-tag.lua | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/tex/context/base/mkiv/lpdf-tag.lua b/tex/context/base/mkiv/lpdf-tag.lua index b9d3e3e64..f4ecfc8a6 100644 --- a/tex/context/base/mkiv/lpdf-tag.lua +++ b/tex/context/base/mkiv/lpdf-tag.lua @@ -149,13 +149,15 @@ local function finishstructure() pdfflushobject(structure_ref,structuretree) addtocatalog("StructTreeRoot",pdfreference(structure_ref)) -- - local markinfo = pdfdictionary { - Marked = lpdf.majorversion == 1 and pdfboolean(true) or nil, - -- UserProperties = pdfboolean(true), -- maybe some day - -- Suspects = lpdf.majorversion == 1 and pdfboolean(true) or nil, - -- AF = #embeddedfilelist > 0 and pdfreference(pdfflushobject(embeddedfilelist)) or nil, - } - addtocatalog("MarkInfo",pdfreference(pdfflushobject(markinfo))) + if lpdf.majorversion() == 1 then + local markinfo = pdfdictionary { + Marked = pdfboolean(true) or nil, + -- UserProperties = pdfboolean(true), -- maybe some day + -- Suspects = pdfboolean(true) or nil, + -- AF = #embeddedfilelist > 0 and pdfreference(pdfflushobject(embeddedfilelist)) or nil, + } + addtocatalog("MarkInfo",pdfreference(pdfflushobject(markinfo))) + end -- for fulltag, element in sortedhash(elements) do -- sorting is easier on comparing pdf pdfflushobject(element.knum,element.kids) |