(del_range_1): Call update_compositions.

(del_range_both): Call update_compositions just once..

1 files changed, 1 insertions, 1 deletions

diff --git a/src/insdel.c b/src/insdel.c
index 051152949aa..3cab83711ba 100644
--- a/src/insdel.c
+++ b/src/insdel.c
@@ -2053,6 +2053,7 @@ del_range_1 (from, to, prepare, ret_string)
   deletion = del_range_2 (from, from_byte, to, to_byte, ret_string);
   GCPRO1(deletion);
   signal_after_change (from, to - from, 0);
+  update_compositions (from, from, CHECK_HEAD);
   UNGCPRO;
   return deletion;
 }
@@ -2132,7 +2133,6 @@ del_range_both (from, from_byte, to, to_byte, prepare)
   del_range_2 (from, from_byte, to, to_byte, 0);
   signal_after_change (from, to - from, 0);
   update_compositions (from, from, CHECK_HEAD);
-  update_compositions (from, from, CHECK_HEAD);
 }
 
 /* Delete a range of text, specified both as character positions