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);