From f6e7648f6126ffe087071531f03c674be32930f1 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Tue, 20 Aug 2019 19:19:52 +0200
Subject: 2019-08-20 17:28:00

---
 tex/generic/context/luatex/luatex-basics-nod.lua | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

(limited to 'tex/generic/context/luatex/luatex-basics-nod.lua')

diff --git a/tex/generic/context/luatex/luatex-basics-nod.lua b/tex/generic/context/luatex/luatex-basics-nod.lua
index 418b9d69d..f2f884abf 100644
--- a/tex/generic/context/luatex/luatex-basics-nod.lua
+++ b/tex/generic/context/luatex/luatex-basics-nod.lua
@@ -99,6 +99,7 @@ nuts.getchar             = direct.getchar
 nuts.getcomponents       = direct.getcomponents
 nuts.getdirection        = direct.getdirection
 nuts.getdisc             = direct.getdisc
+nuts.getreplace          = direct.getreplace
 nuts.getfield            = direct.getfield
 nuts.getfont             = direct.getfont
 nuts.getid               = direct.getid
@@ -115,6 +116,7 @@ nuts.setchar             = direct.setchar
 nuts.setcomponents       = direct.setcomponents
 nuts.setdirection        = direct.setdirection
 nuts.setdisc             = direct.setdisc
+nuts.setreplace          = direct.setreplace
 nuts.setfield            = setfield
 nuts.setkern             = direct.setkern
 nuts.setlink             = direct.setlink
@@ -261,3 +263,22 @@ do
     }
 
 end
+
+if not nuts.setreplace then
+
+    local getdisc  = nuts.getdisc
+    local setfield = nuts.setfield
+
+    function nuts.getreplace(n)
+        local _, _, h, _, _, t = getdisc(n,true)
+        return h, t
+    end
+
+    function nuts.setreplace(n,h)
+        setfield(n,"replace",h)
+    end
+
+end
+
+
+end
-- 
cgit v1.2.3