Mercurial > hg > xemacs-beta

diff src/glyphs.c @ 5120:d1247f3cc363 ben-lisp-object
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
--- a/src/glyphs.c	Sat Dec 26 21:22:48 2009 -0600
+++ b/src/glyphs.c	Mon Dec 28 01:15:52 2009 -0600
@@ -1991,7 +1991,7 @@
      device-specific method to copy the window-system subobject. */
   new_ = allocate_image_instance (XIMAGE_INSTANCE_DOMAIN (image_instance),
 				 Qnil, Qnil);
-  COPY_LCRECORD (XIMAGE_INSTANCE (new_), XIMAGE_INSTANCE (image_instance));
+  COPY_LISP_OBJECT (XIMAGE_INSTANCE (new_), XIMAGE_INSTANCE (image_instance));
   /* note that if this method returns non-zero, this method MUST
      copy any window-system resources, so that when one image instance is
      freed, the other one is not hosed. */
@@ -4612,7 +4612,7 @@
       struct expose_ignore *ei;
 
 #ifdef NEW_GC
-      ei = alloc_lrecord_type (struct expose_ignore, &lrecord_expose_ignore);
+      ei = XEXPOSE_IGNORE (ALLOC_LISP_OBJECT (expose_ignore));
 #else /* not NEW_GC */
       ei = Blocktype_alloc (the_expose_ignore_blocktype);
 #endif /* not NEW_GC */