From adc43c3c243ed95215af6fe02d71e393c178da23 Mon Sep 17 00:00:00 2001
From: Context Git Mirror Bot <phg42.2a@gmail.com>
Date: Thu, 19 Nov 2015 20:15:06 +0100
Subject: 2015-11-19 19:15:00

---
 tex/context/base/lpdf-tag.lua | 26 ++++++++++----------------
 1 file changed, 10 insertions(+), 16 deletions(-)

(limited to 'tex/context/base/lpdf-tag.lua')

diff --git a/tex/context/base/lpdf-tag.lua b/tex/context/base/lpdf-tag.lua
index 828bfed25..3fa8883cb 100644
--- a/tex/context/base/lpdf-tag.lua
+++ b/tex/context/base/lpdf-tag.lua
@@ -63,7 +63,9 @@ local getattr             = nuts.getattr
 local getprev             = nuts.getprev
 local getnext             = nuts.getnext
 local getlist             = nuts.getlist
+
 local setfield            = nuts.setfield
+local setlink             = nuts.setlink
 
 local traverse_nodes      = nuts.traverse
 local tosequence          = nuts.tosequence
@@ -423,11 +425,9 @@ function nodeinjections.addtags(head)
         if literal then
             local prev = getprev(start)
             if prev then
-                setfield(prev,"next",literal)
-                setfield(literal,"prev",prev)
+                setlink(prev,literal)
             end
-            setfield(start,"prev",literal)
-            setfield(literal,"next",start)
+            setlink(literal,start)
             if list and getlist(list) == start then
                 setfield(list,"list",literal)
             end
@@ -435,11 +435,9 @@ function nodeinjections.addtags(head)
             local literal = pdfliteral("EMC")
             local next    = getnext(stop)
             if next then
-                setfield(next,"prev",literal)
-                setfield(literal,"next",next)
+                setlink(literal,next)
             end
-            setfield(stop,"next",literal)
-            setfield(literal,"prev",stop)
+            setlink(stop,literal)
         end
         top    = taglist
         noftop = noftags
@@ -570,11 +568,9 @@ end
 --             local literal = pdfliteral(result)
 --             local prev = getprev(start)
 --             if prev then
---                 setfield(prev,"next",literal)
---                 setfield(literal,"prev",prev)
+--                 setlink(prev,literal)
 --             end
---             setfield(start,"prev",literal)
---             setfield(literal,"next",start)
+--             setlink(literal,start)
 --             if list and getlist(list) == start then
 --                 setfield(list,"list",literal)
 --             end
@@ -595,11 +591,9 @@ end
 --         -- use insert instead:
 --         local next = getnext(last)
 --         if next then
---             setfield(next,"prev",literal)
---             setfield(literal,"next",next)
+--             setlink(literal,next)
 --         end
---         setfield(last,"next",literal)
---         setfield(literal,"prev",last)
+--         setlink(last,literal)
 --     end
 --
 --     finishpage()
-- 
cgit v1.2.3