diff src/textprop.c @ 2783:789c11177579

The text property routines can now modify buffers other than the current one. * insdel.c (modify_region): New argument BUFFER. Select that buffer while we prepare for the modification, and switch back when we're done. * textprop.c (add_properties, remove_properties): Pass the buffer being modified as the first argument to modify_region. * editfns.c (Fsubst_char_in_region, Ftranslate_region): Pass the current_buffer as the first argument to modify_region. * casefiddle.c (casify_region): Same.

--- a/src/textprop.c	Fri May 14 14:43:00 1993 +0000
+++ b/src/textprop.c	Fri May 14 14:43:30 1993 +0000
@@ -312,7 +312,8 @@
 	      {
 		record_property_change (i->position, LENGTH (i),
 					sym1, Fcar (this_cdr), object);
-		modify_region (make_number (i->position),
+		modify_region (XBUFFER (object),
+			       make_number (i->position),
 			       make_number (i->position + LENGTH (i)));
 	      }
 
@@ -329,7 +330,8 @@
 	    {
 	      record_property_change (i->position, LENGTH (i),
 				      sym1, Qnil, object);
-	      modify_region (make_number (i->position),
+	      modify_region (XBUFFER (object),
+			     make_number (i->position),
 			     make_number (i->position + LENGTH (i)));
 	    }
 	  i->plist = Fcons (sym1, Fcons (val1, i->plist));
@@ -367,7 +369,8 @@
 	      record_property_change (i->position, LENGTH (i),
 				      sym, Fcar (Fcdr (current_plist)),
 				      object);
-	      modify_region (make_number (i->position),
+	      modify_region (XBUFFER (object),
+			     make_number (i->position),
 			     make_number (i->position + LENGTH (i)));
 	    }
 
@@ -386,7 +389,8 @@
 		{
 		  record_property_change (i->position, LENGTH (i),
 					  sym, Fcar (Fcdr (this)), object);
-		  modify_region (make_number (i->position),
+		  modify_region (XBUFFER (object),
+				 make_number (i->position),
 				 make_number (i->position + LENGTH (i)));
 		}