# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1174751421 0
# Node ID 556faea8ff02d837e59255151dddfdbe081713be
# Parent  4472cbc72db11e76f5c1f3ee2b4b2917158aa473
(Ftranspose_regions): Use set_text_properties_1 instead of
Fset_text_properties to avoid GC.  Signal after change.

diff -r 4472cbc72db1 -r 556faea8ff02 src/editfns.c
--- a/src/editfns.c	Sat Mar 24 15:50:05 2007 +0000
+++ b/src/editfns.c	Sat Mar 24 15:50:21 2007 +0000
@@ -4118,6 +4118,9 @@
   unsigned char *start1_addr, *start2_addr, *temp;
 
   INTERVAL cur_intv, tmp_interval1, tmp_interval_mid, tmp_interval2;
+  Lisp_Object buf;
+
+  XSETBUFFER (buf, current_buffer);
   cur_intv = BUF_INTERVALS (current_buffer);
 
   validate_region (&startr1, &endr1);
@@ -4224,8 +4227,10 @@
 
       tmp_interval1 = copy_intervals (cur_intv, start1, len1);
       tmp_interval2 = copy_intervals (cur_intv, start2, len2);
-      Fset_text_properties (make_number (start1), make_number (end2),
-			    Qnil, Qnil);
+      /* Don't use Fset_text_properties: that can cause GC, which can
+	 clobber objects stored in the tmp_intervals.  */
+      set_text_properties_1 (make_number (start1), make_number (end2),
+			     Qnil, buf, NULL);
 
       /* First region smaller than second.  */
       if (len1_byte < len2_byte)
@@ -4281,10 +4286,10 @@
           record_change (start2, len2);
           tmp_interval1 = copy_intervals (cur_intv, start1, len1);
           tmp_interval2 = copy_intervals (cur_intv, start2, len2);
-          Fset_text_properties (make_number (start1), make_number (end1),
-				Qnil, Qnil);
-          Fset_text_properties (make_number (start2), make_number (end2),
-				Qnil, Qnil);
+	  set_text_properties_1 (make_number (start1), make_number (end1),
+				 Qnil, buf, NULL);
+          set_text_properties_1 (make_number (start2), make_number (end2),
+				 Qnil, buf, NULL);
 
 	  SAFE_ALLOCA (temp, unsigned char *, len1_byte);
 	  start1_addr = BYTE_POS_ADDR (start1_byte);
@@ -4310,8 +4315,8 @@
           tmp_interval1 = copy_intervals (cur_intv, start1, len1);
           tmp_interval_mid = copy_intervals (cur_intv, end1, len_mid);
           tmp_interval2 = copy_intervals (cur_intv, start2, len2);
-          Fset_text_properties (make_number (start1), make_number (end2),
-				Qnil, Qnil);
+          set_text_properties_1 (make_number (start1), make_number (end2),
+				 Qnil, buf, NULL);
 
 	  /* holds region 2 */
 	  SAFE_ALLOCA (temp, unsigned char *, len2_byte);
@@ -4341,8 +4346,8 @@
           tmp_interval1 = copy_intervals (cur_intv, start1, len1);
           tmp_interval_mid = copy_intervals (cur_intv, end1, len_mid);
           tmp_interval2 = copy_intervals (cur_intv, start2, len2);
-          Fset_text_properties (make_number (start1), make_number (end2),
-				Qnil, Qnil);
+          set_text_properties_1 (make_number (start1), make_number (end2),
+				 Qnil, buf, NULL);
 
 	  /* holds region 1 */
 	  SAFE_ALLOCA (temp, unsigned char *, len1_byte);
@@ -4377,6 +4382,8 @@
       fix_start_end_in_overlays (start1, end2);
     }
 
+  signal_after_change (XINT (start1), XINT (end2 - start1),
+		       XINT (end2 - start1));
   return Qnil;
 }