comparison src/extents.c @ 5474:4dee0387b9de

Merged with trunk.
author Mats Lidell <matsl@xemacs.org>
date Tue, 29 Mar 2011 00:02:47 +0200
parents 308d34e9f07d 3889ef128488
children 56144c8593a8
comparison
equal deleted inserted replaced
5473:ac37a5f7e5be 5474:4dee0387b9de
4407 /* ------------------------------- */ 4407 /* ------------------------------- */
4408 /* verify_extent_modification() */ 4408 /* verify_extent_modification() */
4409 /* ------------------------------- */ 4409 /* ------------------------------- */
4410 4410
4411 /* verify_extent_modification() is called when a buffer or string is 4411 /* verify_extent_modification() is called when a buffer or string is
4412 modified to check whether the modification is occuring inside a 4412 modified to check whether the modification is occurring inside a
4413 read-only extent. 4413 read-only extent.
4414 */ 4414 */
4415 4415
4416 struct verify_extents_arg 4416 struct verify_extents_arg
4417 { 4417 {
4446 extent_end (extent) <= closure->end) 4446 extent_end (extent) <= closure->end)
4447 return 0; 4447 return 0;
4448 #endif 4448 #endif
4449 4449
4450 while (1) 4450 while (1)
4451 Fsignal (Qbuffer_read_only, (list1 (closure->object))); 4451 Fsignal (Qextent_read_only, (list1 (wrap_extent (extent))));
4452 4452
4453 RETURN_NOT_REACHED(0); 4453 RETURN_NOT_REACHED(0);
4454 } 4454 }
4455 4455
4456 /* Value of Vinhibit_read_only is precomputed and passed in for 4456 /* Value of Vinhibit_read_only is precomputed and passed in for