Commit b8180922 authored by Richard M. Stallman's avatar Richard M. Stallman

(print): Make the printing understand EMACS_INTs

that are longs as well as ints.
parent d9780682
......@@ -755,7 +755,12 @@ print (obj, printcharfun, escapeflag)
switch (XGCTYPE (obj))
{
case Lisp_Int:
sprintf (buf, "%d", XINT (obj));
if (sizeof (int) == sizeof (EMACS_INT))
sprintf (buf, "%d", XINT (obj));
else if (sizeof (long) == sizeof (EMACS_INT))
sprintf (buf, "%ld", XINT (obj));
else
abort ();
strout (buf, -1, printcharfun);
break;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment