};
static Lisp_Object
-mark_tooltalk_message (Lisp_Object obj)
+mark_tooltalk_message (Lisp_Object obj, void (*markobj) (Lisp_Object))
{
- mark_object (XTOOLTALK_MESSAGE (obj)->callback);
+ markobj (XTOOLTALK_MESSAGE (obj)->callback);
return XTOOLTALK_MESSAGE (obj)->plist_sym;
}
};
static Lisp_Object
-mark_tooltalk_pattern (Lisp_Object obj)
+mark_tooltalk_pattern (Lisp_Object obj, void (*markobj) (Lisp_Object))
{
- mark_object (XTOOLTALK_PATTERN (obj)->callback);
+ markobj (XTOOLTALK_PATTERN (obj)->callback);
return XTOOLTALK_PATTERN (obj)->plist_sym;
}