Mercurial > hg > xemacs-beta
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 |