Mercurial > hg > xemacs-beta
comparison src/tooltalk.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 |
comparison
equal
deleted
inserted
replaced
5119:d877c14318b3 | 5120:d1247f3cc363 |
---|---|
145 | 145 |
146 Lisp_Object Qtooltalk_messagep; | 146 Lisp_Object Qtooltalk_messagep; |
147 | 147 |
148 struct Lisp_Tooltalk_Message | 148 struct Lisp_Tooltalk_Message |
149 { | 149 { |
150 struct LCRECORD_HEADER header; | 150 LISP_OBJECT_HEADER header; |
151 Lisp_Object plist_sym, callback; | 151 Lisp_Object plist_sym, callback; |
152 Tt_message m; | 152 Tt_message m; |
153 }; | 153 }; |
154 | 154 |
155 static const struct memory_description tooltalk_message_description [] = { | 155 static const struct memory_description tooltalk_message_description [] = { |
221 | 221 |
222 Lisp_Object Qtooltalk_patternp; | 222 Lisp_Object Qtooltalk_patternp; |
223 | 223 |
224 struct Lisp_Tooltalk_Pattern | 224 struct Lisp_Tooltalk_Pattern |
225 { | 225 { |
226 struct LCRECORD_HEADER header; | 226 LISP_OBJECT_HEADER header; |
227 Lisp_Object plist_sym, callback; | 227 Lisp_Object plist_sym, callback; |
228 Tt_pattern p; | 228 Tt_pattern p; |
229 }; | 229 }; |
230 | 230 |
231 static const struct memory_description tooltalk_pattern_description [] = { | 231 static const struct memory_description tooltalk_pattern_description [] = { |