Mercurial > emacs
comparison src/composite.c @ 89633:40b05b530518
(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 | c380df3cc4df |
| children | 13df47fbaa54 |
comparison
equal
deleted
inserted
replaced
| 89632:2714f54a8f68 | 89633:40b05b530518 |
|---|---|
| 560 run_composition_function (start, end, prop); | 560 run_composition_function (start, end, prop); |
| 561 max_pos = end; | 561 max_pos = end; |
| 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 |
| 571 /* Modify composition property values in LIST destructively. LIST is | 579 /* Modify composition property values in LIST destructively. LIST is |
| 572 a list as returned from text_property_list. Change values to the | 580 a list as returned from text_property_list. Change values to the |