Mercurial > hg > xemacs-beta
comparison src/toolbar.c @ 3085:d9ca850d40de
[xemacs-hg @ 2005-11-22 09:02:37 by crestani]
* lisp.h: Add default_object_printer prototype.
* print.c (default_object_printer): Remove static.
* print.c (print_internal): Use internal_object_printer if a
object has no print method.
* toolbar.c: Use default_object_printer for toolbar-button.
author | crestani |
---|---|
date | Tue, 22 Nov 2005 09:02:43 +0000 |
parents | facf3239ba30 |
children | d0c14ea98592 e0db3c197671 |
comparison
equal
deleted
inserted
replaced
3084:aaf96f4ba612 | 3085:d9ca850d40de |
---|---|
88 return data->help_string; | 88 return data->help_string; |
89 } | 89 } |
90 | 90 |
91 DEFINE_LRECORD_IMPLEMENTATION ("toolbar-button", toolbar_button, | 91 DEFINE_LRECORD_IMPLEMENTATION ("toolbar-button", toolbar_button, |
92 0, /*dumpable-flag*/ | 92 0, /*dumpable-flag*/ |
93 mark_toolbar_button, 0, 0, 0, 0, | 93 mark_toolbar_button, |
94 default_object_printer, | |
95 0, 0, 0, | |
94 toolbar_button_description, | 96 toolbar_button_description, |
95 struct toolbar_button); | 97 struct toolbar_button); |
96 | 98 |
97 DEFUN ("toolbar-button-p", Ftoolbar_button_p, 1, 1, 0, /* | 99 DEFUN ("toolbar-button-p", Ftoolbar_button_p, 1, 1, 0, /* |
98 Return non-nil if OBJECT is a toolbar button. | 100 Return non-nil if OBJECT is a toolbar button. |