comparison 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
comparison
equal deleted inserted replaced
5437:002cb5224e4f 5438:8d29f1c4bb98
3290 GC_EXTERNAL_LIST_LOOP_2 (p, Vafter_insert_file_functions) 3290 GC_EXTERNAL_LIST_LOOP_2 (p, Vafter_insert_file_functions)
3291 { 3291 {
3292 Lisp_Object insval = call1 (p, make_int (inserted)); 3292 Lisp_Object insval = call1 (p, make_int (inserted));
3293 if (!NILP (insval)) 3293 if (!NILP (insval))
3294 { 3294 {
3295 CHECK_NATNUM (insval); 3295 check_integer_range (insval, Qzero, make_int (EMACS_INT_MAX));
3296 inserted = XINT (insval); 3296 inserted = XINT (insval);
3297 } 3297 }
3298 } 3298 }
3299 END_GC_EXTERNAL_LIST_LOOP (p); 3299 END_GC_EXTERNAL_LIST_LOOP (p);
3300 } 3300 }