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.

1 files changed, 8 insertions, 4 deletions

diff --git a/src/textprop.c b/src/textprop.c
index db618c7e4c7..e651cbf243b 100644
--- a/src/textprop.c
+++ b/src/textprop.c
@@ -312,7 +312,8 @@ add_properties (plist, i, object)
               {
                 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 @@ add_properties (plist, i, object)
             {
               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 @@ remove_properties (plist, i, object)
               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 @@ remove_properties (plist, i, object)
                 {
                   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)));
                 }