Mercurial > hg > xemacs-beta

comparison src/casetab.c @ 4846:a98ca4640147

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 4ee73bbe4f8e
children 276e07b3cc93
comparison
equal deleted inserted replaced
4845:a3c673c0720b 4846:a98ca4640147
103 print_case_table (Lisp_Object obj, Lisp_Object printcharfun, 103 print_case_table (Lisp_Object obj, Lisp_Object printcharfun,
104 int UNUSED (escapeflag)) 104 int UNUSED (escapeflag))
105 { 105 {
106 Lisp_Case_Table *ct = XCASE_TABLE (obj); 106 Lisp_Case_Table *ct = XCASE_TABLE (obj);
107 if (print_readably) 107 if (print_readably)
108 printing_unreadable_object ("#<case-table 0x%x>", ct->header.uid); 108 printing_unreadable_lcrecord (obj, 0);
109 write_fmt_string_lisp 109 write_fmt_string_lisp
110 (printcharfun, "#<case-table downcase=%s upcase=%s canon=%s eqv=%s ", 4, 110 (printcharfun, "#<case-table downcase=%s upcase=%s canon=%s eqv=%s ", 4,
111 CASE_TABLE_DOWNCASE (ct), CASE_TABLE_UPCASE (ct), 111 CASE_TABLE_DOWNCASE (ct), CASE_TABLE_UPCASE (ct),
112 CASE_TABLE_CANON (ct), CASE_TABLE_EQV (ct)); 112 CASE_TABLE_CANON (ct), CASE_TABLE_EQV (ct));
113 write_fmt_string (printcharfun, "0x%x>", ct->header.uid); 113 write_fmt_string (printcharfun, "0x%x>", ct->header.uid);