Mercurial > hg > xemacs-beta

comparison src/print.c @ 3085:d9ca850d40de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 d30cd499e445
children 141c2920ea48
comparison
equal deleted inserted replaced
3084:aaf96f4ba612 3085:d9ca850d40de
1447 write_c_string (printcharfun, "\""); 1447 write_c_string (printcharfun, "\"");
1448 } 1448 }
1449 UNGCPRO; 1449 UNGCPRO;
1450 } 1450 }
1451 1451
1452 static void 1452 void
1453 default_object_printer (Lisp_Object obj, Lisp_Object printcharfun, 1453 default_object_printer (Lisp_Object obj, Lisp_Object printcharfun,
1454 int UNUSED (escapeflag)) 1454 int UNUSED (escapeflag))
1455 { 1455 {
1456 struct LCRECORD_HEADER *header = (struct LCRECORD_HEADER *) XPNTR (obj); 1456 struct LCRECORD_HEADER *header = (struct LCRECORD_HEADER *) XPNTR (obj);
1457 1457
1747 1747
1748 if (LHEADER_IMPLEMENTATION (lheader)->printer) 1748 if (LHEADER_IMPLEMENTATION (lheader)->printer)
1749 ((LHEADER_IMPLEMENTATION (lheader)->printer) 1749 ((LHEADER_IMPLEMENTATION (lheader)->printer)
1750 (obj, printcharfun, escapeflag)); 1750 (obj, printcharfun, escapeflag));
1751 else 1751 else
1752 default_object_printer (obj, printcharfun, escapeflag); 1752 internal_object_printer (obj, printcharfun, escapeflag);
1753 break; 1753 break;
1754 } 1754 }
1755 1755
1756 default: 1756 default:
1757 { 1757 {