diff src/fileio.c @ 5438:8d29f1c4bb98

Merge with 21.5 trunk.
author Mats Lidell <matsl@xemacs.org>
date Fri, 26 Nov 2010 06:43:36 +0100
parents 308d34e9f07d c096d8051f89
children 0af042a0c116
line wrap: on
line diff
--- a/src/fileio.c	Mon Nov 15 22:33:52 2010 +0100
+++ b/src/fileio.c	Fri Nov 26 06:43:36 2010 +0100
@@ -3292,7 +3292,7 @@
 	  Lisp_Object insval = call1 (p, make_int (inserted));
 	  if (!NILP (insval))
 	    {
-	      CHECK_NATNUM (insval);
+              check_integer_range (insval, Qzero, make_int (EMACS_INT_MAX));
 	      inserted = XINT (insval);
 	    }
 	}