(del_range_1): Call update_compositions.

(del_range_both): Call update_compositions just once..

diff --git a/src/insdel.c b/src/insdel.c
index 051152949aac1899e6336b70226f7ac94fd6a3a1..3cab83711baa007a0b3d32551b2f4fd8799bfbc3 100644 (file)
--- 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