Mercurial > hg > xemacs-beta
comparison src/objects.c @ 420:41dbb7a9d5f2 r21-2-18
Import from CVS: tag r21-2-18
author | cvs |
---|---|
date | Mon, 13 Aug 2007 11:24:09 +0200 |
parents | 697ef44129c6 |
children | 11054d720c21 |
comparison
equal
deleted
inserted
replaced
419:66615b78f1a5 | 420:41dbb7a9d5f2 |
---|---|
125 } | 125 } |
126 | 126 |
127 DEFINE_LRECORD_IMPLEMENTATION ("color-instance", color_instance, | 127 DEFINE_LRECORD_IMPLEMENTATION ("color-instance", color_instance, |
128 mark_color_instance, print_color_instance, | 128 mark_color_instance, print_color_instance, |
129 finalize_color_instance, color_instance_equal, | 129 finalize_color_instance, color_instance_equal, |
130 color_instance_hash, | 130 color_instance_hash, 0, |
131 struct Lisp_Color_Instance); | 131 struct Lisp_Color_Instance); |
132 | 132 |
133 DEFUN ("make-color-instance", Fmake_color_instance, 1, 3, 0, /* | 133 DEFUN ("make-color-instance", Fmake_color_instance, 1, 3, 0, /* |
134 Return a new `color-instance' object named NAME (a string). | 134 Return a new `color-instance' object named NAME (a string). |
135 | 135 |
299 } | 299 } |
300 | 300 |
301 DEFINE_LRECORD_IMPLEMENTATION ("font-instance", font_instance, | 301 DEFINE_LRECORD_IMPLEMENTATION ("font-instance", font_instance, |
302 mark_font_instance, print_font_instance, | 302 mark_font_instance, print_font_instance, |
303 finalize_font_instance, font_instance_equal, | 303 finalize_font_instance, font_instance_equal, |
304 font_instance_hash, struct Lisp_Font_Instance); | 304 font_instance_hash, 0, struct Lisp_Font_Instance); |
305 | 305 |
306 DEFUN ("make-font-instance", Fmake_font_instance, 1, 3, 0, /* | 306 DEFUN ("make-font-instance", Fmake_font_instance, 1, 3, 0, /* |
307 Return a new `font-instance' object named NAME. | 307 Return a new `font-instance' object named NAME. |
308 DEVICE specifies the device this object applies to and defaults to the | 308 DEVICE specifies the device this object applies to and defaults to the |
309 selected device. An error is signalled if the font is unknown or cannot | 309 selected device. An error is signalled if the font is unknown or cannot |