Mercurial > hg > xemacs-beta

comparison src/faces.c @ 5117:3742ea8250b5 ben-lisp-object ben-lisp-object-final-ws-year-2005

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Checking in final CVS version of workspace 'ben-lisp-object'
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 00:20:27 -0600
parents 1e7cc382eb16
children e0db3c197671
comparison
equal deleted inserted replaced
5116:e56f73345619 5117:3742ea8250b5
276 { XD_LISP_OBJECT, offsetof (Lisp_Face, plist) }, 276 { XD_LISP_OBJECT, offsetof (Lisp_Face, plist) },
277 { XD_LISP_OBJECT, offsetof (Lisp_Face, charsets_warned_about) }, 277 { XD_LISP_OBJECT, offsetof (Lisp_Face, charsets_warned_about) },
278 { XD_END } 278 { XD_END }
279 }; 279 };
280 280
281 DEFINE_LRECORD_IMPLEMENTATION_WITH_PROPS ("face", face, 281 DEFINE_LISP_OBJECT_WITH_PROPS ("face", face,
282 1, /*dumpable-flag*/
283 mark_face, print_face, 0, face_equal, 282 mark_face, print_face, 0, face_equal,
284 face_hash, face_description, 283 face_hash, face_description,
285 face_getprop, 284 face_getprop,
286 face_putprop, face_remprop, 285 face_putprop, face_remprop,
287 face_plist, Lisp_Face); 286 face_plist, Lisp_Face);
371 } 370 }
372 371
373 static Lisp_Face * 372 static Lisp_Face *
374 allocate_face (void) 373 allocate_face (void)
375 { 374 {
376 Lisp_Face *result = ALLOC_LCRECORD_TYPE (Lisp_Face, &lrecord_face); 375 Lisp_Object obj = ALLOC_LISP_OBJECT (face);
376 Lisp_Face *result = XFACE (obj);
377 377
378 reset_face (result); 378 reset_face (result);
379 return result; 379 return result;
380 } 380 }
381 381
1856 1856
1857 1857
1858 void 1858 void
1859 syms_of_faces (void) 1859 syms_of_faces (void)
1860 { 1860 {
1861 INIT_LRECORD_IMPLEMENTATION (face); 1861 INIT_LISP_OBJECT (face);
1862 1862
1863 /* Qdefault, Qwidget, Qleft_margin, Qright_margin defined in general.c */ 1863 /* Qdefault, Qwidget, Qleft_margin, Qright_margin defined in general.c */
1864 DEFSYMBOL (Qmodeline); 1864 DEFSYMBOL (Qmodeline);
1865 DEFSYMBOL (Qgui_element); 1865 DEFSYMBOL (Qgui_element);
1866 DEFSYMBOL (Qtext_cursor); 1866 DEFSYMBOL (Qtext_cursor);