comparison src/database.c @ 4846:a98ca4640147

clean up object print methods casetab.c, console.c, data.c, database.c, device-msw.c, device.c, eval.c, file-coding.c, frame.c, glyphs.c, gui.c, keymap.c, lisp.h, mule-charset.c, objects.c, print.c, process.c, tooltalk.c, ui-gtk.c, window.c: New function printing_unreadable_lcrecord(). Automatically prints the type name and pointer value of the object. Use it instead of printing_unreadable_object(); make that latter function local to print.c. window.c: During creation, window may have Qt as its buffer. Don't crash if trying to print such a window.
author Ben Wing <ben@xemacs.org>
date Wed, 13 Jan 2010 05:49:13 -0600
parents 493e2aa349fd
children 304aebb79cd3
comparison
equal deleted inserted replaced
4845:a3c673c0720b 4846:a98ca4640147
214 int UNUSED (escapeflag)) 214 int UNUSED (escapeflag))
215 { 215 {
216 Lisp_Database *db = XDATABASE (obj); 216 Lisp_Database *db = XDATABASE (obj);
217 217
218 if (print_readably) 218 if (print_readably)
219 printing_unreadable_object ("#<database 0x%x>", db->header.uid); 219 printing_unreadable_lcrecord (obj, 0);
220 220
221 write_fmt_string_lisp (printcharfun, "#<database \"%s\" (%s/%s/", 221 write_fmt_string_lisp (printcharfun, "#<database \"%s\" (%s/%s/",
222 3, db->fname, db->funcs->get_type (db), 222 3, db->fname, db->funcs->get_type (db),
223 db->funcs->get_subtype (db)); 223 db->funcs->get_subtype (db));
224 224