comparison src/mule-charset.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 4dd2389173fc
children 19a72041c5ed
comparison
equal deleted inserted replaced
4845:a3c673c0720b 4846:a98ca4640147
139 int UNUSED (escapeflag)) 139 int UNUSED (escapeflag))
140 { 140 {
141 Lisp_Charset *cs = XCHARSET (obj); 141 Lisp_Charset *cs = XCHARSET (obj);
142 142
143 if (print_readably) 143 if (print_readably)
144 printing_unreadable_object ("#<charset %s 0x%x>", 144 printing_unreadable_lcrecord
145 XSTRING_DATA (XSYMBOL (CHARSET_NAME (cs))-> 145 (obj, XSTRING_DATA (XSYMBOL (XCHARSET_NAME (obj))->name));
146 name),
147 cs->header.uid);
148 146
149 write_fmt_string_lisp (printcharfun, "#<charset %s %S %S %S", 4, 147 write_fmt_string_lisp (printcharfun, "#<charset %s %S %S %S", 4,
150 CHARSET_NAME (cs), CHARSET_SHORT_NAME (cs), 148 CHARSET_NAME (cs), CHARSET_SHORT_NAME (cs),
151 CHARSET_LONG_NAME (cs), CHARSET_DOC_STRING (cs)); 149 CHARSET_LONG_NAME (cs), CHARSET_DOC_STRING (cs));
152 write_fmt_string (printcharfun, " %s %s cols=%d g%d final='%c' reg=", 150 write_fmt_string (printcharfun, " %s %s cols=%d g%d final='%c' reg=",