Mercurial > hg > xemacs-beta

comparison src/glyphs.c @ 5120:d1247f3cc363 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
latest work on lisp-object workspace; more changes eliminating LCRECORD in place of LISP_OBJECT; now compiles and runs.
author Ben Wing <ben@xemacs.org>
date Mon, 28 Dec 2009 01:15:52 -0600
parents e0db3c197671
children 623d57b7fbe8
comparison
equal deleted inserted replaced
5119:d877c14318b3 5120:d1247f3cc363
1989 1989
1990 /* #### There should be a copy_image_instance(), which calls a 1990 /* #### There should be a copy_image_instance(), which calls a
1991 device-specific method to copy the window-system subobject. */ 1991 device-specific method to copy the window-system subobject. */
1992 new_ = allocate_image_instance (XIMAGE_INSTANCE_DOMAIN (image_instance), 1992 new_ = allocate_image_instance (XIMAGE_INSTANCE_DOMAIN (image_instance),
1993 Qnil, Qnil); 1993 Qnil, Qnil);
1994 COPY_LCRECORD (XIMAGE_INSTANCE (new_), XIMAGE_INSTANCE (image_instance)); 1994 COPY_LISP_OBJECT (XIMAGE_INSTANCE (new_), XIMAGE_INSTANCE (image_instance));
1995 /* note that if this method returns non-zero, this method MUST 1995 /* note that if this method returns non-zero, this method MUST
1996 copy any window-system resources, so that when one image instance is 1996 copy any window-system resources, so that when one image instance is
1997 freed, the other one is not hosed. */ 1997 freed, the other one is not hosed. */
1998 if (!DEVMETH (XDEVICE (device), colorize_image_instance, (new_, foreground, 1998 if (!DEVMETH (XDEVICE (device), colorize_image_instance, (new_, foreground,
1999 background))) 1999 background)))
4610 if (!hold_ignored_expose_registration) 4610 if (!hold_ignored_expose_registration)
4611 { 4611 {
4612 struct expose_ignore *ei; 4612 struct expose_ignore *ei;
4613 4613
4614 #ifdef NEW_GC 4614 #ifdef NEW_GC
4615 ei = alloc_lrecord_type (struct expose_ignore, &lrecord_expose_ignore); 4615 ei = XEXPOSE_IGNORE (ALLOC_LISP_OBJECT (expose_ignore));
4616 #else /* not NEW_GC */ 4616 #else /* not NEW_GC */
4617 ei = Blocktype_alloc (the_expose_ignore_blocktype); 4617 ei = Blocktype_alloc (the_expose_ignore_blocktype);
4618 #endif /* not NEW_GC */ 4618 #endif /* not NEW_GC */
4619 4619
4620 ei->next = NULL; 4620 ei->next = NULL;