X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fspecifier.h;h=a483ff6e55fdba2c99f70d9c6e408e0983ea674a;hb=df28933d74967579569614970a965eb590a6d74d;hp=8c82331197cecae0512ae18fff1e60d4a276ac37;hpb=1d9bc86590766427e2431876a50d78206a99edd5;p=chise%2Fxemacs-chise.git-

diff --git a/src/specifier.h b/src/specifier.h
index 8c82331..a483ff6 100644
--- a/src/specifier.h
+++ b/src/specifier.h
@@ -300,14 +300,15 @@ extern struct specifier_methods * type##_specifier_methods
 #define DEFINE_SPECIFIER_TYPE(type)					\
 struct specifier_methods * type##_specifier_methods
 
-#define INITIALIZE_SPECIFIER_TYPE(type, obj_name, pred_sym) do {	\
-  type##_specifier_methods = xnew_and_zero (struct specifier_methods);	\
-  type##_specifier_methods->name = obj_name;				\
-  type##_specifier_methods->extra_description =				\
-    specifier_empty_extra_description;					\
-  defsymbol_nodump (&type##_specifier_methods->predicate_symbol, pred_sym); \
-  add_entry_to_specifier_type_list (Q##type, type##_specifier_methods);	    \
-  dumpstruct (&type##_specifier_methods, &specifier_methods_description);   \
+#define INITIALIZE_SPECIFIER_TYPE(type, obj_name, pred_sym) do {		\
+  type##_specifier_methods = xnew_and_zero (struct specifier_methods);		\
+  type##_specifier_methods->name = obj_name;					\
+  type##_specifier_methods->extra_description =					\
+    specifier_empty_extra_description;						\
+  defsymbol_nodump (&type##_specifier_methods->predicate_symbol, pred_sym);	\
+  add_entry_to_specifier_type_list (Q##type, type##_specifier_methods);		\
+  dump_add_root_struct_ptr (&type##_specifier_methods,				\
+			    &specifier_methods_description);			\
 } while (0)
 
 #define REINITIALIZE_SPECIFIER_TYPE(type) do {				\