Mercurial > hg > xemacs-beta

comparison src/print.c @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 4103f0995bd7
children e04119814345
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
653 errmsg = XCONS (tail)->car, tail = XCONS (tail)->cdr; 653 errmsg = XCONS (tail)->car, tail = XCONS (tail)->cdr;
654 654
655 if (STRINGP (errmsg)) 655 if (STRINGP (errmsg))
656 Fprinc (errmsg, stream); 656 Fprinc (errmsg, stream);
657 else 657 else
658 write_string_1 ("Peculiar error", 14, stream); 658 write_string_1 ((CONST Bufbyte *)"Peculiar error", 14, stream);
659 659
660 for (i = 0; CONSP (tail); tail = Fcdr (tail), i++) 660 for (i = 0; CONSP (tail); tail = Fcdr (tail), i++)
661 { 661 {
662 write_string_1 (i ? ", " : ": ", 2, stream); 662 write_string_1 ((CONST Bufbyte *)(i ? ", " : ": "), 2, stream);
663 if (!NILP (file_error)) 663 if (!NILP (file_error))
664 Fprinc (Fcar (tail), stream); 664 Fprinc (Fcar (tail), stream);
665 else 665 else
666 Fprin1 (Fcar (tail), stream); 666 Fprin1 (Fcar (tail), stream);
667 } 667 }