# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 799640636 0
# Node ID 2de5b0c8980209f293a3a12359d889e2a8a921f2
# Parent  d43754b30133209c222600bc1ec1d82181a91083
(print): Make the printing understand EMACS_INTs
that are longs as well as ints.

diff -r d43754b30133 -r 2de5b0c89802 src/print.c
--- a/src/print.c	Fri May 05 02:21:21 1995 +0000
+++ b/src/print.c	Fri May 05 02:23:56 1995 +0000
@@ -755,7 +755,12 @@
   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;