1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-15 09:47:20 +00:00

(Fformat): Don't sign-extend for %o or %x.

This commit is contained in:
Richard M. Stallman 2006-08-31 23:07:39 +00:00
parent fd2adae323
commit de92d4d43e

View File

@ -3758,7 +3758,13 @@ usage: (format STRING &rest OBJECTS) */)
this_format[format - this_format_start] = 0;
if (INTEGERP (args[n]))
sprintf (p, this_format, XINT (args[n]));
{
if (format[-1] == 'd')
sprintf (p, this_format, XINT (args[n]));
/* Don't sign-extend for octal or hex printing. */
else
sprintf (p, this_format, XUINT (args[n]));
}
else
sprintf (p, this_format, XFLOAT_DATA (args[n]));