From 7458a83c249fca6333e9486395363503b09e5321 Mon Sep 17 00:00:00 2001
From: Philipp Gesang <phg42.2a@gmail.com>
Date: Tue, 7 May 2013 18:05:45 +0200
Subject: make user whatsit generators accept an optional argument of type node

---
 luatexbase-attr.dtx | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

(limited to 'luatexbase-attr.dtx')

diff --git a/luatexbase-attr.dtx b/luatexbase-attr.dtx
index aa5e987..ed60cf7 100644
--- a/luatexbase-attr.dtx
+++ b/luatexbase-attr.dtx
@@ -537,10 +537,24 @@ local new_user_whatsit = function (name, package)
     local whatsit    = newnode(whatsit_t, user_defined_t)
     whatsit.user_id  = id
     --- unit -> node_t
-    return function ( ) return copynode(whatsit) end, id
+    local generator = function (proto)
+        local res
+        if proto then
+            local proto_id = proto.user_id
+            if proto_id ~= id then --- mismatch
+                warning("overriding user_id %d of whatsit prototype (now: %d)",
+                        proto.user_id, id)
+            end
+            res = copynode(proto)
+            res.user_id = id
+        else
+            res = copynode(whatsit)
+        end
+        return res
+    end
+    return generator, id
 end
 luatexbase.new_user_whatsit         = new_user_whatsit
-luatexbase.new_user_whatsit_factory = new_user_whatsit --- for Stephan
 %    \end{macrocode}
 %
 %    If one knows the name of a whatsit, its corresponding id
-- 
cgit v1.2.3

