Mercurial > hg > xemacs-beta

comparison src/doprnt.c @ 568:430f8ca10ca6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-05-24 12:12:03 by yoshiki] Norbert Koch's patch "Re: Notice of commit by yoshiki in XEmacs/xemacs/src", <vzu22bngmy.fsf@lamia.LF.net> * doprnt.c (emacs_doprnt_1): forgotten sons of Ben's error patch
author yoshiki
date Thu, 24 May 2001 12:12:16 +0000
parents 183866b06e0b
children 910449c92002
comparison
equal deleted inserted replaced
567:4a2749e56f92 568:430f8ca10ca6
557 if (CHARP (obj)) 557 if (CHARP (obj))
558 obj = make_int (XCHAR (obj)); 558 obj = make_int (XCHAR (obj));
559 if (!INT_OR_FLOATP (obj)) 559 if (!INT_OR_FLOATP (obj))
560 { 560 {
561 syntax_error ("format specifier %%%c doesn't match argument type", 561 syntax_error ("format specifier %%%c doesn't match argument type",
562 ch); 562 make_char (ch));
563 } 563 }
564 else if (strchr (double_converters, ch)) 564 else if (strchr (double_converters, ch))
565 arg.d = XFLOATINT (obj); 565 arg.d = XFLOATINT (obj);
566 else 566 else
567 { 567 {
583 Bufbyte charbuf[MAX_EMCHAR_LEN]; 583 Bufbyte charbuf[MAX_EMCHAR_LEN];
584 584
585 a = (Emchar) arg.l; 585 a = (Emchar) arg.l;
586 586
587 if (!valid_char_p (a)) 587 if (!valid_char_p (a))
588 syntax_error ("invalid character value %d to %%c spec", a); 588 syntax_error ("invalid character value %d to %%c spec", make_char (a));
589 589
590 charlen = set_charptr_emchar (charbuf, a); 590 charlen = set_charptr_emchar (charbuf, a);
591 doprnt_1 (stream, charbuf, charlen, spec->minwidth, 591 doprnt_1 (stream, charbuf, charlen, spec->minwidth,
592 -1, spec->minus_flag, spec->zero_flag); 592 -1, spec->minus_flag, spec->zero_flag);
593 } 593 }