mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-30 00:51:50 -08:00
Code Issues Projects Releases Wiki Activity

(Fexecute_extended_command): Handle long EMACS_INT in sprintf.

Browse source
This commit is contained in:
Richard M. Stallman 1995-05-05 02:55:21 +00:00
parent b818092206
commit 5d5b907f9a
1 changed files with 16 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/keyboard.c
View file

@ -6054,9 +6054,23 @@ DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_
else if (CONSP (prefixarg) && XINT (XCONS (prefixarg)->car) == 4)
strcpy (buf, "C-u ");
else if (CONSP (prefixarg) && INTEGERP (XCONS (prefixarg)->car))
sprintf (buf, "%d ", XINT (XCONS (prefixarg)->car));
{
if (sizeof (int) == sizeof (EMACS_INT))
sprintf (buf, "%d ", XINT (XCONS (prefixarg)->car));
else if (sizeof (long) == sizeof (EMACS_INT))
sprintf (buf, "%ld ", XINT (XCONS (prefixarg)->car));
else
abort ();
}
else if (INTEGERP (prefixarg))
sprintf (buf, "%d ", XINT (prefixarg));
{
if (sizeof (int) == sizeof (EMACS_INT))
sprintf (buf, "%d ", XINT (prefixarg));
else if (sizeof (long) == sizeof (EMACS_INT))
sprintf (buf, "%ld ", XINT (prefixarg));
else
abort ();
}
/* This isn't strictly correct if execute-extended-command
is bound to anything else. Perhaps it should use