Mercurial > hg > xemacs-beta
comparison src/lisp.h @ 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 | 91b3d00e717f |
children | 95c4ced5c07c |
comparison
equal
deleted
inserted
replaced
4845:a3c673c0720b | 4846:a98ca4640147 |
---|---|
4714 DECLARE_DOESNT_RETURN (wtaerror (const CIbyte *reason, Lisp_Object frob)); | 4714 DECLARE_DOESNT_RETURN (wtaerror (const CIbyte *reason, Lisp_Object frob)); |
4715 MODULE_API DECLARE_DOESNT_RETURN (out_of_memory (const CIbyte *reason, | 4715 MODULE_API DECLARE_DOESNT_RETURN (out_of_memory (const CIbyte *reason, |
4716 Lisp_Object frob)); | 4716 Lisp_Object frob)); |
4717 DECLARE_DOESNT_RETURN (stack_overflow (const CIbyte *reason, | 4717 DECLARE_DOESNT_RETURN (stack_overflow (const CIbyte *reason, |
4718 Lisp_Object frob)); | 4718 Lisp_Object frob)); |
4719 MODULE_API DECLARE_DOESNT_RETURN (printing_unreadable_object (const CIbyte *, | |
4720 ...)) | |
4721 PRINTF_ARGS (1, 2); | |
4722 | 4719 |
4723 Lisp_Object signal_void_function_error (Lisp_Object); | 4720 Lisp_Object signal_void_function_error (Lisp_Object); |
4724 Lisp_Object signal_invalid_function_error (Lisp_Object); | 4721 Lisp_Object signal_invalid_function_error (Lisp_Object); |
4725 Lisp_Object signal_wrong_number_of_arguments_error (Lisp_Object, int); | 4722 Lisp_Object signal_wrong_number_of_arguments_error (Lisp_Object, int); |
4726 | 4723 |
5324 Lisp_Object internal_with_output_to_temp_buffer (Lisp_Object, | 5321 Lisp_Object internal_with_output_to_temp_buffer (Lisp_Object, |
5325 Lisp_Object (*) (Lisp_Object), | 5322 Lisp_Object (*) (Lisp_Object), |
5326 Lisp_Object, Lisp_Object); | 5323 Lisp_Object, Lisp_Object); |
5327 void float_to_string (char *, double); | 5324 void float_to_string (char *, double); |
5328 void internal_object_printer (Lisp_Object, Lisp_Object, int); | 5325 void internal_object_printer (Lisp_Object, Lisp_Object, int); |
5326 MODULE_API DECLARE_DOESNT_RETURN (printing_unreadable_object (const CIbyte *, | |
5327 ...)) | |
5328 PRINTF_ARGS (1, 2); | |
5329 DECLARE_DOESNT_RETURN (printing_unreadable_lcrecord (Lisp_Object obj, | |
5330 const Ibyte *name)); | |
5329 | 5331 |
5330 /* Defined in rangetab.c */ | 5332 /* Defined in rangetab.c */ |
5331 EXFUN (Fclear_range_table, 1); | 5333 EXFUN (Fclear_range_table, 1); |
5332 EXFUN (Fget_range_table, 3); | 5334 EXFUN (Fget_range_table, 3); |
5333 EXFUN (Fmake_range_table, 1); | 5335 EXFUN (Fmake_range_table, 1); |