Mercurial > emacs

changeset 89633:40b05b530518

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(update_compositions): Bind inhibit-read-only, etc to t before calling remove-list-of-text-properties.
author Kenichi Handa <handa@m17n.org>
date Tue, 18 Nov 2003 06:29:24 +0000
parents 2714f54a8f68
children e811ad5e717f
files src/composite.c
diffstat 1 files changed, 11 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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);
+    }
 }