# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1069136964 0
# Node ID 40b05b5305184ba5ed809c5d9cb29e38fba73137
# Parent  2714f54a8f68f0e30ae5f6f1eb4124eb959b697a
(update_compositions): Bind inhibit-read-only, etc
to t before calling remove-list-of-text-properties.

diff -r 2714f54a8f68 -r 40b05b530518 src/composite.c
--- a/src/composite.c	Tue Nov 18 02:44:59 2003 +0000
+++ b/src/composite.c	Tue Nov 18 06:29:24 2003 +0000
@@ -562,9 +562,17 @@
 	}
     }
   if (min_pos < max_pos)
-    Fremove_list_of_text_properties (make_number (min_pos),
-				     make_number (max_pos),
-				     Fcons (Qauto_composed, Qnil), Qnil);
+    {
+      int count = SPECPDL_INDEX ();
+
+      specbind (Qinhibit_read_only, Qt);
+      specbind (Qinhibit_modification_hooks, Qt);
+      specbind (Qinhibit_point_motion_hooks, Qt);
+      Fremove_list_of_text_properties (make_number (min_pos),
+				       make_number (max_pos),
+				       Fcons (Qauto_composed, Qnil), Qnil);
+      unbind_to (count, Qnil);
+    }
 }