Mercurial > hg > xemacs-beta

comparison src/print.c @ 438:84b14dcb0985 r21-2-27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-27
author cvs
date Mon, 13 Aug 2007 11:32:25 +0200
parents 9d177e8d4150
children 8de8e3f6228a
comparison
equal deleted inserted replaced
437:e2a4e8b94b82 438:84b14dcb0985
625 } 625 }
626 /* Default method */ 626 /* Default method */
627 { 627 {
628 int first = 1; 628 int first = 1;
629 int speccount = specpdl_depth (); 629 int speccount = specpdl_depth ();
630 Lisp_Object frame = Qnil;
631 struct gcpro gcpro1;
632 GCPRO1 (stream);
630 633
631 specbind (Qprint_message_label, Qerror); 634 specbind (Qprint_message_label, Qerror);
635 stream = print_prepare (stream, &frame);
636
632 tail = Fcdr (error_object); 637 tail = Fcdr (error_object);
633 if (EQ (type, Qerror)) 638 if (EQ (type, Qerror))
634 { 639 {
635 print_internal (Fcar (tail), stream, 0); 640 print_internal (Fcar (tail), stream, 0);
636 tail = Fcdr (tail); 641 tail = Fcdr (tail);
648 write_c_string (first ? ": " : ", ", stream); 653 write_c_string (first ? ": " : ", ", stream);
649 print_internal (Fcar (tail), stream, 1); 654 print_internal (Fcar (tail), stream, 1);
650 tail = Fcdr (tail); 655 tail = Fcdr (tail);
651 first = 0; 656 first = 0;
652 } 657 }
658 print_finish (stream, frame);
659 UNGCPRO;
653 unbind_to (speccount, Qnil); 660 unbind_to (speccount, Qnil);
654 return; 661 return;
655 /* not reached */ 662 /* not reached */
656 } 663 }
657 664