diff options
| author | Kenichi Handa | 2003-11-18 06:29:24 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2003-11-18 06:29:24 +0000 |
| commit | 9d440521ef2c7a0b13799a9cbefc165b8f0e04c2 (patch) | |
| tree | 3ecd5ec69d55c9c9b13f08e7a6a02b7ea5b975ff /src | |
| parent | df2d2ccab1e781fa874dede40f55168bd054404e (diff) | |
| download | emacs-9d440521ef2c7a0b13799a9cbefc165b8f0e04c2.tar.gz emacs-9d440521ef2c7a0b13799a9cbefc165b8f0e04c2.zip | |
(update_compositions): Bind inhibit-read-only, etc
to t before calling remove-list-of-text-properties.
Diffstat (limited to 'src')
| -rw-r--r-- | src/composite.c | 14 |
1 files 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) | |||
| 562 | } | 562 | } |
| 563 | } | 563 | } |
| 564 | if (min_pos < max_pos) | 564 | if (min_pos < max_pos) |
| 565 | Fremove_list_of_text_properties (make_number (min_pos), | 565 | { |
| 566 | make_number (max_pos), | 566 | int count = SPECPDL_INDEX (); |
| 567 | Fcons (Qauto_composed, Qnil), Qnil); | 567 | |
| 568 | specbind (Qinhibit_read_only, Qt); | ||
| 569 | specbind (Qinhibit_modification_hooks, Qt); | ||
| 570 | specbind (Qinhibit_point_motion_hooks, Qt); | ||
| 571 | Fremove_list_of_text_properties (make_number (min_pos), | ||
| 572 | make_number (max_pos), | ||
| 573 | Fcons (Qauto_composed, Qnil), Qnil); | ||
| 574 | unbind_to (count, Qnil); | ||
| 575 | } | ||
| 568 | } | 576 | } |
| 569 | 577 | ||
| 570 | 578 | ||