Mercurial > hg > xemacs-beta

comparison src/print.c @ 284:558f606b08ae r21-0b40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b40
author cvs
date Mon, 13 Aug 2007 10:34:13 +0200
parents c42ec1d1cded
children 8bec6624d99b
comparison
equal deleted inserted replaced
283:fa3d41851a08 284:558f606b08ae
1219 break; 1219 break;
1220 } 1220 }
1221 1221
1222 default: 1222 default:
1223 { 1223 {
1224 #ifdef ERROR_CHECK_TYPECHECK
1225 abort ();
1226 #else /* not ERROR_CHECK_TYPECHECK */
1224 char buf[128]; 1227 char buf[128];
1225 /* We're in trouble if this happens! Probably should just 1228 /* We're in trouble if this happens! */
1226 abort () */
1227 if (print_readably) 1229 if (print_readably)
1228 error ("printing illegal data type #o%03o", 1230 error ("printing illegal data type #o%03o",
1229 (int) XTYPE (obj)); 1231 (int) XTYPE (obj));
1230 write_c_string ("#<EMACS BUG: ILLEGAL DATATYPE ", 1232 write_c_string ("#<EMACS BUG: ILLEGAL DATATYPE ",
1231 printcharfun); 1233 printcharfun);
1232 sprintf (buf, "(#o%3o)", (int) XTYPE (obj)); 1234 sprintf (buf, "(#o%3o)", (int) XTYPE (obj));
1233 write_c_string (buf, printcharfun); 1235 write_c_string (buf, printcharfun);
1234 write_c_string 1236 write_c_string
1235 (" Save your buffers immediately and please report this bug>", 1237 (" Save your buffers immediately and please report this bug>",
1236 printcharfun); 1238 printcharfun);
1239 #endif /* not ERROR_CHECK_TYPECHECK */
1237 break; 1240 break;
1238 } 1241 }
1239 } 1242 }
1240 1243
1241 print_depth--; 1244 print_depth--;