# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 781142246 0
# Node ID a309baaa249f710627a1ecbab369934d6c86feed
# Parent  60497ceed71acd62b9da213c253908ad1592b808
(Finsert_file_contents): set type of `end', not just the value.

diff -r 60497ceed71a -r a309baaa249f src/fileio.c
--- a/src/fileio.c	Sun Oct 02 22:06:26 1994 +0000
+++ b/src/fileio.c	Sun Oct 02 23:57:26 1994 +0000
@@ -2691,6 +2691,7 @@
     CHECK_NUMBER (end, 0);
   else
     {
+      XSETTYPE (end, Lisp_Int);
       XSETINT (end, st.st_size);
       if (XINT (end) != st.st_size)
 	error ("maximum buffer size exceeded");