Mercurial > hg > xemacs-beta
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 |