From 9d440521ef2c7a0b13799a9cbefc165b8f0e04c2 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 18 Nov 2003 06:29:24 +0000 Subject: [PATCH] (update_compositions): Bind inhibit-read-only, etc to t before calling remove-list-of-text-properties. --- src/composite.c | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) 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); + } } -- 2.39.2