Mercurial > hg > xemacs-beta

comparison src/objects-tty.c @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 697ef44129c6
children
comparison
equal deleted inserted replaced
423:28d9c139be4c 424:11054d720c21
166 166
167 return 1; 167 return 1;
168 } 168 }
169 169
170 static void 170 static void
171 tty_mark_color_instance (struct Lisp_Color_Instance *c, 171 tty_mark_color_instance (struct Lisp_Color_Instance *c)
172 void (*markobj) (Lisp_Object)) 172 {
173 { 173 mark_object (COLOR_INSTANCE_TTY_SYMBOL (c));
174 markobj (COLOR_INSTANCE_TTY_SYMBOL (c));
175 } 174 }
176 175
177 static void 176 static void
178 tty_print_color_instance (struct Lisp_Color_Instance *c, 177 tty_print_color_instance (struct Lisp_Color_Instance *c,
179 Lisp_Object printcharfun, 178 Lisp_Object printcharfun,
254 253
255 return 1; 254 return 1;
256 } 255 }
257 256
258 static void 257 static void
259 tty_mark_font_instance (struct Lisp_Font_Instance *f, 258 tty_mark_font_instance (struct Lisp_Font_Instance *f)
260 void (*markobj) (Lisp_Object)) 259 {
261 { 260 mark_object (FONT_INSTANCE_TTY_CHARSET (f));
262 markobj (FONT_INSTANCE_TTY_CHARSET (f));
263 } 261 }
264 262
265 static void 263 static void
266 tty_print_font_instance (struct Lisp_Font_Instance *f, 264 tty_print_font_instance (struct Lisp_Font_Instance *f,
267 Lisp_Object printcharfun, 265 Lisp_Object printcharfun,