Mercurial > hg > xemacs-beta
diff src/process.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 | b3ea9c582280 |
| children | 8b63e21b0436 |
line wrap: on
line diff
--- a/src/process.c Wed Jan 13 04:25:15 2010 -0600 +++ b/src/process.c Wed Jan 13 05:49:13 2010 -0600 @@ -145,12 +145,12 @@ } static void -print_process (Lisp_Object object, Lisp_Object printcharfun, int escapeflag) +print_process (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) { - Lisp_Process *process = XPROCESS (object); + Lisp_Process *process = XPROCESS (obj); if (print_readably) - printing_unreadable_object ("#<process %s>", XSTRING_DATA (process->name)); + printing_unreadable_lcrecord (obj, XSTRING_DATA (process->name)); if (!escapeflag) { @@ -158,7 +158,7 @@ } else { - int netp = network_connection_p (object); + int netp = network_connection_p (obj); write_c_string (printcharfun, netp ? GETTEXT ("#<network connection ") : GETTEXT ("#<process "));