This commit was generated by cvs2svn to compensate for changes in r5670,
[chise/xemacs-chise.git.1] / src / objects-tty.c
index 0b38de4..513349d 100644 (file)
@@ -168,9 +168,10 @@ tty_initialize_color_instance (struct Lisp_Color_Instance *c, Lisp_Object name,
 }
 
 static void
-tty_mark_color_instance (struct Lisp_Color_Instance *c)
+tty_mark_color_instance (struct Lisp_Color_Instance *c,
+                        void (*markobj) (Lisp_Object))
 {
-  mark_object (COLOR_INSTANCE_TTY_SYMBOL (c));
+  ((markobj) (COLOR_INSTANCE_TTY_SYMBOL (c)));
 }
 
 static void
@@ -255,9 +256,10 @@ tty_initialize_font_instance (struct Lisp_Font_Instance *f, Lisp_Object name,
 }
 
 static void
-tty_mark_font_instance (struct Lisp_Font_Instance *f)
+tty_mark_font_instance (struct Lisp_Font_Instance *f,
+                       void (*markobj) (Lisp_Object))
 {
-  mark_object (FONT_INSTANCE_TTY_CHARSET (f));
+  ((markobj) (FONT_INSTANCE_TTY_CHARSET (f)));
 }
 
 static void