Mercurial > hg > xemacs-beta

comparison src/device-msw.c @ 4846:a98ca4640147

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 e34711681f30
children 6ef8256a020a 19a72041c5ed
comparison
equal deleted inserted replaced
4845:a3c673c0720b 4846:a98ca4640147
1152 print_devmode (Lisp_Object obj, Lisp_Object printcharfun, 1152 print_devmode (Lisp_Object obj, Lisp_Object printcharfun,
1153 int UNUSED (escapeflag)) 1153 int UNUSED (escapeflag))
1154 { 1154 {
1155 Lisp_Devmode *dm = XDEVMODE (obj); 1155 Lisp_Devmode *dm = XDEVMODE (obj);
1156 if (print_readably) 1156 if (print_readably)
1157 printing_unreadable_object ("#<msprinter-settings 0x%x>", 1157 printing_unreadable_lcrecord (obj, 0);
1158 dm->header.uid);
1159 write_c_string (printcharfun, "#<msprinter-settings"); 1158 write_c_string (printcharfun, "#<msprinter-settings");
1160 if (!NILP (dm->printer_name)) 1159 if (!NILP (dm->printer_name))
1161 write_fmt_string_lisp (printcharfun, " for %S", 1, dm->printer_name); 1160 write_fmt_string_lisp (printcharfun, " for %S", 1, dm->printer_name);
1162 if (!NILP (dm->device)) 1161 if (!NILP (dm->device))
1163 write_fmt_string_lisp (printcharfun, " (currently on %s)", 1, dm->device); 1162 write_fmt_string_lisp (printcharfun, " (currently on %s)", 1, dm->device);