comparison src/eval.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 084056f46755
children 755ae5b97edb 19a72041c5ed
comparison
equal deleted inserted replaced
4845:a3c673c0720b 4846:a98ca4640147
3138 out_of_memory (const CIbyte *reason, Lisp_Object frob) 3138 out_of_memory (const CIbyte *reason, Lisp_Object frob)
3139 { 3139 {
3140 signal_error (Qout_of_memory, reason, frob); 3140 signal_error (Qout_of_memory, reason, frob);
3141 } 3141 }
3142 3142
3143 DOESNT_RETURN
3144 printing_unreadable_object (const CIbyte *fmt, ...)
3145 {
3146 Lisp_Object obj;
3147 va_list args;
3148
3149 va_start (args, fmt);
3150 obj = emacs_vsprintf_string (CGETTEXT (fmt), args);
3151 va_end (args);
3152
3153 /* Fsignal GC-protects its args */
3154 signal_error (Qprinting_unreadable_object, 0, obj);
3155 }
3156
3157 3143
3158 /************************************************************************/ 3144 /************************************************************************/
3159 /* User commands */ 3145 /* User commands */
3160 /************************************************************************/ 3146 /************************************************************************/
3161 3147