Mercurial > hg > xemacs-beta
comparison src/gui.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 | 8f1ee2d15784 |
children | 6ef8256a020a 19a72041c5ed |
comparison
equal
deleted
inserted
replaced
4845:a3c673c0720b | 4846:a98ca4640147 |
---|---|
694 int UNUSED (escapeflag)) | 694 int UNUSED (escapeflag)) |
695 { | 695 { |
696 Lisp_Gui_Item *g = XGUI_ITEM (obj); | 696 Lisp_Gui_Item *g = XGUI_ITEM (obj); |
697 | 697 |
698 if (print_readably) | 698 if (print_readably) |
699 printing_unreadable_object ("#<gui-item 0x%x>", g->header.uid); | 699 printing_unreadable_lcrecord (obj, 0); |
700 | 700 |
701 write_fmt_string (printcharfun, "#<gui-item 0x%x>", g->header.uid); | 701 write_fmt_string (printcharfun, "#<gui-item 0x%x>", g->header.uid); |
702 } | 702 } |
703 | 703 |
704 Lisp_Object | 704 Lisp_Object |