comparison src/extents.c @ 5381:4f39e57a82b4

Improve read-only error reporting. -------------------- ChangeLog entries follow: -------------------- src/ChangeLog addition: 2011-03-17 Didier Verna <didier@xemacs.org> * data.c (init_errors_once_early): Define Qextent_read_only error. * lisp.h: Declare it. * extents.c (verify_extent_mapper): Signal an extent-read-only error instead of a buffer-read-only one.
author Didier Verna <didier@lrde.epita.fr>
date Thu, 17 Mar 2011 16:20:09 +0100
parents 71ee43b8a74d
children 3889ef128488
comparison
equal deleted inserted replaced
5380:919c77c567bb 5381:4f39e57a82b4
4448 extent_end (extent) <= closure->end) 4448 extent_end (extent) <= closure->end)
4449 return 0; 4449 return 0;
4450 #endif 4450 #endif
4451 4451
4452 while (1) 4452 while (1)
4453 Fsignal (Qbuffer_read_only, (list1 (closure->object))); 4453 Fsignal (Qextent_read_only, (list1 (wrap_extent (extent))));
4454 4454
4455 RETURN_NOT_REACHED(0); 4455 RETURN_NOT_REACHED(0);
4456 } 4456 }
4457 4457
4458 /* Value of Vinhibit_read_only is precomputed and passed in for 4458 /* Value of Vinhibit_read_only is precomputed and passed in for