Mercurial > hg > xemacs-beta

comparison src/print.c @ 183:e121b013d1f0 r20-3b18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b18
author cvs
date Mon, 13 Aug 2007 09:54:23 +0200
parents 6075d714658b
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
182:f07455f06202 183:e121b013d1f0
875 internal_object_printer (Lisp_Object obj, Lisp_Object printcharfun, 875 internal_object_printer (Lisp_Object obj, Lisp_Object printcharfun,
876 int escapeflag) 876 int escapeflag)
877 { 877 {
878 char buf[200]; 878 char buf[200];
879 sprintf (buf, "#<INTERNAL OBJECT (XEmacs bug?) (%s) 0x%p>", 879 sprintf (buf, "#<INTERNAL OBJECT (XEmacs bug?) (%s) 0x%p>",
880 XRECORD_LHEADER (obj)->implementation->name, 880 XRECORD_LHEADER (obj)->implementation->name,
881 (void *) XPNTR (obj)); 881 (void *) XPNTR (obj));
882 write_c_string (buf, printcharfun); 882 write_c_string (buf, printcharfun);
883 } 883 }
884 884
885 void 885 void
1438 1438
1439 if (! NILP (file)) 1439 if (! NILP (file))
1440 { 1440 {
1441 file = Fexpand_file_name (file, Qnil); 1441 file = Fexpand_file_name (file, Qnil);
1442 termscript = fopen ((char *) XSTRING_DATA (file), "w"); 1442 termscript = fopen ((char *) XSTRING_DATA (file), "w");
1443 if (termscript == 0) 1443 if (termscript == NULL)
1444 report_file_error ("Opening termscript", Fcons (file, Qnil)); 1444 report_file_error ("Opening termscript", Fcons (file, Qnil));
1445 } 1445 }
1446 return Qnil; 1446 return Qnil;
1447 } 1447 }
1448 1448