Mercurial > hg > xemacs-beta
changeset 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 | aaf96f4ba612 |
| children | c6ef6267f65c |
| files | src/ChangeLog src/lisp.h src/print.c src/toolbar.c |
| diffstat | 4 files changed, 14 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Tue Nov 22 07:19:32 2005 +0000 +++ b/src/ChangeLog Tue Nov 22 09:02:43 2005 +0000 @@ -1,3 +1,11 @@ +2005-11-20 Marcus Crestani <crestani@xemacs.org> + + * 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. + 2005-11-22 Ben Wing <ben@xemacs.org> * mule-coding.c (FROB):
--- a/src/lisp.h Tue Nov 22 07:19:32 2005 +0000 +++ b/src/lisp.h Tue Nov 22 09:02:43 2005 +0000 @@ -4744,6 +4744,7 @@ /* Lower-level ways to output data: */ +void default_object_printer (Lisp_Object, Lisp_Object, int); void print_internal (Lisp_Object, Lisp_Object, int); void debug_print (Lisp_Object); void debug_p4 (Lisp_Object obj);
--- a/src/print.c Tue Nov 22 07:19:32 2005 +0000 +++ b/src/print.c Tue Nov 22 09:02:43 2005 +0000 @@ -1449,7 +1449,7 @@ UNGCPRO; } -static void +void default_object_printer (Lisp_Object obj, Lisp_Object printcharfun, int UNUSED (escapeflag)) { @@ -1749,7 +1749,7 @@ ((LHEADER_IMPLEMENTATION (lheader)->printer) (obj, printcharfun, escapeflag)); else - default_object_printer (obj, printcharfun, escapeflag); + internal_object_printer (obj, printcharfun, escapeflag); break; }
--- a/src/toolbar.c Tue Nov 22 07:19:32 2005 +0000 +++ b/src/toolbar.c Tue Nov 22 09:02:43 2005 +0000 @@ -90,7 +90,9 @@ DEFINE_LRECORD_IMPLEMENTATION ("toolbar-button", toolbar_button, 0, /*dumpable-flag*/ - mark_toolbar_button, 0, 0, 0, 0, + mark_toolbar_button, + default_object_printer, + 0, 0, 0, toolbar_button_description, struct toolbar_button);