From: Kenichi Handa <handa@m17n.org>
Date: Tue, 18 Nov 2003 06:29:24 +0000 (+0000)
Subject: (update_compositions): Bind inhibit-read-only, etc
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1715
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9d440521ef2c7a0b13799a9cbefc165b8f0e04c2;p=emacs.git

(update_compositions): Bind inhibit-read-only, etc
to t before calling remove-list-of-text-properties.
---

diff --git a/src/composite.c b/src/composite.c
index e8dd721f805..683330731ed 100644
--- a/src/composite.c
+++ b/src/composite.c
@@ -562,9 +562,17 @@ update_compositions (from, to, check_mask)
 	}
     }
   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);
+    }
 }