diff options
| author | Marius <mariausol@gmail.com> | 2014-01-15 19:20:24 +0200 |
|---|---|---|
| committer | Marius <mariausol@gmail.com> | 2014-01-15 19:20:24 +0200 |
| commit | 2736c98b75ce6a4741cbf252b8e706e139f536f9 (patch) | |
| tree | 9d59e7decb3243b6480fae0c0a4735bb86c3a0a1 /tex/context/base/lpdf-tag.lua | |
| parent | 62d02ff33b894d9b16e1a1a9b95d860f593240b3 (diff) | |
| download | context-2736c98b75ce6a4741cbf252b8e706e139f536f9.tar.gz | |
beta 2014.01.15 18:03
Diffstat (limited to 'tex/context/base/lpdf-tag.lua')
| -rw-r--r-- | tex/context/base/lpdf-tag.lua | 45 |
1 files changed, 17 insertions, 28 deletions
diff --git a/tex/context/base/lpdf-tag.lua b/tex/context/base/lpdf-tag.lua index 37a640225..2a36f5e9a 100644 --- a/tex/context/base/lpdf-tag.lua +++ b/tex/context/base/lpdf-tag.lua @@ -213,39 +213,28 @@ local function makecontent(parent,start,stop,slist,id) -- local bliteral = pdfliteral(format("/%s <</MCID %s>>BDC",tag,last)) local eliteral = pdfliteral("EMC") --- if false --- local prev = getprev(start) --- if prev then --- setfield(prev,"next",bliteral) --- setfield(bliteral,"prev",prev) --- end --- setfield(start,"prev",bliteral) --- setfield(bliteral,"next",start) --- -- --- local next = getnext(stop) --- if next then --- setfield(next,"prev",eliteral) --- setfield(eliteral,"next",next) --- end --- setfield(stop,"next",eliteral) --- setfield(eliteral,"prev",stop) --- -- --- if slist and getlist(slist) == start then --- setfield(slist,"list",bliteral) --- elseif not prev then --- report_tags("this can't happen: injection in front of nothing") --- end --- else + -- + local prev = getprev(start) + if prev then + setfield(prev,"next",bliteral) + setfield(bliteral,"prev",prev) + end + setfield(start,"prev",bliteral) + setfield(bliteral,"next",start) + -- + local next = getnext(stop) + if next then + setfield(next,"prev",eliteral) + setfield(eliteral,"next",next) + end + setfield(stop,"next",eliteral) + setfield(eliteral,"prev",stop) + -- if slist and getlist(slist) == start then setfield(slist,"list",bliteral) elseif not getprev(start) then report_tags("this can't happen: injection in front of nothing") end - -- - insert_before(start,start,bliteral) - insert_after(stop,stop,eliteral) --- end - -- index = index + 1 list[index] = parent.pref return bliteral, eliteral |