User: crestani Date: 05/11/22 10:02:48 Modified: xemacs/src ChangeLog lisp.h print.c toolbar.c Log: * 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. Revision Changes Path 1.889 +8 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.888 retrieving revision 1.889 diff -u -p -r1.888 -r1.889 --- ChangeLog 2005/11/22 07:19:31 1.888 +++ ChangeLog 2005/11/22 09:02:37 1.889 ＠＠ -1,3 +1,11 ＠＠ +2005-11-20 Marcus Crestani <crestani(a)xemacs.org&gt; + + * 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(a)xemacs.org&gt; * mule-coding.c (FROB): 1.134 +1 -0 XEmacs/xemacs/src/lisp.h Index: lisp.h =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/lisp.h,v retrieving revision 1.133 retrieving revision 1.134 diff -u -p -r1.133 -r1.134 --- lisp.h 2005/11/13 10:48:03 1.133 +++ lisp.h 2005/11/22 09:02:42 1.134 ＠＠ -4744,6 +4744,7 ＠＠ EXFUN (Fprint, 2); /* 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); 1.58 +2 -2 XEmacs/xemacs/src/print.c Index: print.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/print.c,v retrieving revision 1.57 retrieving revision 1.58 diff -u -p -r1.57 -r1.58 --- print.c 2005/11/13 10:48:03 1.57 +++ print.c 2005/11/22 09:02:43 1.58 ＠＠ -1449,7 +1449,7 ＠＠ print_string (Lisp_Object obj, Lisp_Obje UNGCPRO; } -static void +void default_object_printer (Lisp_Object obj, Lisp_Object printcharfun, int UNUSED (escapeflag)) { ＠＠ -1749,7 +1749,7 ＠＠ print_internal (Lisp_Object obj, Lisp_Ob ((LHEADER_IMPLEMENTATION (lheader)->printer) (obj, printcharfun, escapeflag)); else - default_object_printer (obj, printcharfun, escapeflag); + internal_object_printer (obj, printcharfun, escapeflag); break; } 1.38 +3 -1 XEmacs/xemacs/src/toolbar.c Index: toolbar.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/toolbar.c,v retrieving revision 1.37 retrieving revision 1.38 diff -u -p -r1.37 -r1.38 --- toolbar.c 2005/10/25 11:16:28 1.37 +++ toolbar.c 2005/11/22 09:02:43 1.38 ＠＠ -90,7 +90,9 ＠＠ mark_toolbar_button (Lisp_Object obj) 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);