Mercurial > hg > xemacs-beta

comparison src/print.c @ 102:a145efe76779 r20-1b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b3
author cvs
date Mon, 13 Aug 2007 09:15:49 +0200
parents 4be1180a9e89
children fe104dbd9147
comparison
equal deleted inserted replaced
101:a0ec055d74dd 102:a145efe76779
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 }