Mercurial > hg > xemacs-beta
comparison src/objects-impl.h @ 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 | ad2f4ae9895b |
children | a9c41067dd88 |
comparison
equal
deleted
inserted
replaced
5119:d877c14318b3 | 5120:d1247f3cc363 |
---|---|
97 * Color Instance Object * | 97 * Color Instance Object * |
98 ****************************************************************************/ | 98 ****************************************************************************/ |
99 | 99 |
100 struct Lisp_Color_Instance | 100 struct Lisp_Color_Instance |
101 { | 101 { |
102 struct LCRECORD_HEADER header; | 102 LISP_OBJECT_HEADER header; |
103 Lisp_Object name; | 103 Lisp_Object name; |
104 Lisp_Object device; | 104 Lisp_Object device; |
105 | 105 |
106 /* See comment in struct console about console variants. */ | 106 /* See comment in struct console about console variants. */ |
107 enum console_variant color_instance_type; | 107 enum console_variant color_instance_type; |
117 * Font Instance Object * | 117 * Font Instance Object * |
118 ****************************************************************************/ | 118 ****************************************************************************/ |
119 | 119 |
120 struct Lisp_Font_Instance | 120 struct Lisp_Font_Instance |
121 { | 121 { |
122 struct LCRECORD_HEADER header; | 122 LISP_OBJECT_HEADER header; |
123 Lisp_Object name; /* the instantiator used to create the font instance */ | 123 Lisp_Object name; /* the instantiator used to create the font instance */ |
124 Lisp_Object truename; /* used by the device-specific methods; we need to | 124 Lisp_Object truename; /* used by the device-specific methods; we need to |
125 call them to get the truename (#### in reality, | 125 call them to get the truename (#### in reality, |
126 they all probably just store the truename here | 126 they all probably just store the truename here |
127 if they know it, and nil otherwise; we should | 127 if they know it, and nil otherwise; we should |