Mercurial > hg > xemacs-beta
diff src/print.c @ 5117:3742ea8250b5 ben-lisp-object ben-lisp-object-final-ws-year-2005
Checking in final CVS version of workspace 'ben-lisp-object'
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Sat, 26 Dec 2009 00:20:27 -0600 |
| parents | d30cd499e445 |
| children | e0db3c197671 |
line wrap: on
line diff
--- a/src/print.c Sat Dec 26 00:20:16 2009 -0600 +++ b/src/print.c Sat Dec 26 00:20:27 2009 -0600 @@ -1449,9 +1449,9 @@ UNGCPRO; } -static void -default_object_printer (Lisp_Object obj, Lisp_Object printcharfun, - int UNUSED (escapeflag)) +void +external_object_printer (Lisp_Object obj, Lisp_Object printcharfun, + int UNUSED (escapeflag)) { struct LCRECORD_HEADER *header = (struct LCRECORD_HEADER *) XPNTR (obj); @@ -1474,10 +1474,16 @@ header->uid); } -void +static void internal_object_printer (Lisp_Object obj, Lisp_Object printcharfun, int UNUSED (escapeflag)) { + if (print_readably) + printing_unreadable_object + ("#<INTERNAL OBJECT (XEmacs bug?) (%s) 0x%lx>", + XRECORD_LHEADER_IMPLEMENTATION (obj)->name, + (unsigned long) XPNTR (obj)) + write_fmt_string (printcharfun, "#<INTERNAL OBJECT (XEmacs bug?) (%s) 0x%lx>", XRECORD_LHEADER_IMPLEMENTATION (obj)->name, @@ -1749,7 +1755,7 @@ ((LHEADER_IMPLEMENTATION (lheader)->printer) (obj, printcharfun, escapeflag)); else - default_object_printer (obj, printcharfun, escapeflag); + internal_object_printer (obj, printcharfun, escapeflag); break; }