Mercurial > hg > xemacs-beta

comparison src/doprnt.c @ 4876:437323273039

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cosmetic: Use Qunbound, not Qnil as second arg to call to syntax_error() to get cleaner error message -------------------- ChangeLog entries follow: -------------------- src/ChangeLog addition: 2010-01-15 Ben Wing <ben@xemacs.org> * doprnt.c (emacs_doprnt_1): Cosmetic: Use Qunbound, not Qnil as second arg to call to syntax_error() to get cleaner error message.
author Ben Wing <ben@xemacs.org>
date Fri, 15 Jan 2010 06:44:05 -0600
parents b5e1d4f6b66f
children 16112448d484
comparison
equal deleted inserted replaced
4875:49de55c09f18 4876:437323273039
600 /* WARNING! This MUST be big enough for the sprintf below */ 600 /* WARNING! This MUST be big enough for the sprintf below */
601 CIbyte msg[48]; 601 CIbyte msg[48];
602 sprintf (msg, 602 sprintf (msg,
603 "format specifier %%%c doesn't match argument type", 603 "format specifier %%%c doesn't match argument type",
604 ch); 604 ch);
605 syntax_error (msg, Qnil); 605 syntax_error (msg, Qunbound);
606 } 606 }
607 else if (strchr (double_converters, ch)) 607 else if (strchr (double_converters, ch))
608 { 608 {
609 #ifdef WITH_NUMBER_TYPES 609 #ifdef WITH_NUMBER_TYPES
610 if (INTP (obj) || FLOATP (obj)) 610 if (INTP (obj) || FLOATP (obj))
723 { 723 {
724 /* WARNING! This MUST be big enough for the sprintf below */ 724 /* WARNING! This MUST be big enough for the sprintf below */
725 CIbyte msg[60]; 725 CIbyte msg[60];
726 sprintf (msg, "invalid character value %d to %%c spec", 726 sprintf (msg, "invalid character value %d to %%c spec",
727 a); 727 a);
728 syntax_error (msg, Qnil); 728 syntax_error (msg, Qunbound);
729 } 729 }
730 730
731 charlen = set_itext_ichar (charbuf, a); 731 charlen = set_itext_ichar (charbuf, a);
732 doprnt_2 (stream, charbuf, charlen, spec->minwidth, 732 doprnt_2 (stream, charbuf, charlen, spec->minwidth,
733 -1, spec->minus_flag, spec->zero_flag); 733 -1, spec->minus_flag, spec->zero_flag);