From b818092206eeb9db5ab786a0d4166f9ff25bba16 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Fri, 5 May 1995 02:23:56 +0000
Subject: [PATCH] (print): Make the printing understand EMACS_INTs that are
 longs as well as ints.

---
 src/print.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/print.c b/src/print.c
index 12da3b3b6d1..3609684c640 100644
--- a/src/print.c
+++ b/src/print.c
@@ -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;
 
-- 
2.39.5