diff 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
line wrap: on
line diff
--- a/src/extents.c	Mon Mar 21 12:27:07 2011 +0000
+++ b/src/extents.c	Thu Mar 17 16:20:09 2011 +0100
@@ -4450,7 +4450,7 @@
 #endif
 
   while (1)
-    Fsignal (Qbuffer_read_only, (list1 (closure->object)));
+    Fsignal (Qextent_read_only, (list1 (wrap_extent (extent))));
 
   RETURN_NOT_REACHED(0);
 }