diff options
| author | Dmitry Antipov | 2013-08-06 09:30:18 +0400 |
|---|---|---|
| committer | Dmitry Antipov | 2013-08-06 09:30:18 +0400 |
| commit | 00012b86257f33dd4e08e79b814f4a7ad6010713 (patch) | |
| tree | 1f01b7ccab453278d5e697ae2bf3dd34cd119a48 /src/casefiddle.c | |
| parent | 307764cc3a2afd363cae0a36a6d18dfa68788cb4 (diff) | |
| download | emacs-00012b86257f33dd4e08e79b814f4a7ad6010713.tar.gz emacs-00012b86257f33dd4e08e79b814f4a7ad6010713.zip | |
Invalidate region caches only if buffer text is going to be changed.
* lisp.h (modify_region_1): Remove 3rd arg and rename to...
(modify_text): ...new prototype.
(prepare_to_modify_buffer_1): New prototype.
* textprop.c (modify_region): Rename to...
(modify_text_properties): ...new function.
(add_text_properties_1, set_text_properties, Fremove_text_properties)
(Fremove_list_of_text_properties): Adjust users.
* insdel.c (modify_region_1): Remove 3rd arg and reimplement as...
(modify_text): ...new function.
(prepare_to_modify_buffer): Reimplement mostly as a wrapper for...
(prepare_to_modify_buffer_1): ...new function.
* casefiddle.c (casify_region):
* editfns.c (Fsubst_char_in_region, Ftranslate_region_internal)
(Ftranspose_regions): Use modify_text.
Diffstat (limited to 'src/casefiddle.c')
| -rw-r--r-- | src/casefiddle.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/casefiddle.c b/src/casefiddle.c index 7f5b99752fa..5a40790f87f 100644 --- a/src/casefiddle.c +++ b/src/casefiddle.c | |||
| @@ -214,7 +214,7 @@ casify_region (enum case_action flag, Lisp_Object b, Lisp_Object e) | |||
| 214 | validate_region (&b, &e); | 214 | validate_region (&b, &e); |
| 215 | start = XFASTINT (b); | 215 | start = XFASTINT (b); |
| 216 | end = XFASTINT (e); | 216 | end = XFASTINT (e); |
| 217 | modify_region_1 (start, end, false); | 217 | modify_text (start, end); |
| 218 | record_change (start, end - start); | 218 | record_change (start, end - start); |
| 219 | start_byte = CHAR_TO_BYTE (start); | 219 | start_byte = CHAR_TO_BYTE (start); |
| 220 | 220 | ||