2021-01-21 18:04:00

1 files changed, 33 insertions, 0 deletions

diff --git a/tex/context/base/mkiv/font-prv.lua b/tex/context/base/mkiv/font-prv.lua
index c3323ca74..15057e255 100644
--- a/tex/context/base/mkiv/font-prv.lua
+++ b/tex/context/base/mkiv/font-prv.lua
@@ -80,3 +80,36 @@ end
 function helpers.newprivateslot(name)
     return sharedprivates[name]
 end
+
+do
+
+    local context = context
+    local utfchar = utf.char
+
+    interfaces.implement {
+        name      = "privatecharacter",
+        public    = true,
+     -- protected = true,
+        arguments = "string",
+        actions   = function(name)
+            local c = sharedprivates[name]
+            if c then
+                context(utfchar(c))
+            end
+        end
+    }
+
+    interfaces.implement {
+        name      = "privatecharactercode",
+        public    = true,
+     -- protected = true,
+        arguments = "string",
+        actions   = function(name)
+            local c = sharedprivates[name]
+            if c then
+                context(c) -- serialized, not a number
+            end
+        end
+    }
+
+end