# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 841808153 0
# Node ID 4962e89ec8effee204a12db0168f57bf54abdd5b
# Parent  76bd16bb5906f1880b16ba7aafc1652865f45c5f
(set_properties, add_properties, remove_properties):
Call modify_region with ints.

diff -r 76bd16bb5906 -r 4962e89ec8ef src/textprop.c
--- a/src/textprop.c	Wed Sep 04 03:34:04 1996 +0000
+++ b/src/textprop.c	Wed Sep 04 03:35:53 1996 +0000
@@ -300,8 +300,8 @@
 		  XCONS (value)->car))
 	  {
 	    modify_region (XBUFFER (object),
-			   make_number (interval->position),
-			   make_number (interval->position + LENGTH (interval)));
+			   interval->position,
+			   interval->position + LENGTH (interval));
 	    record_property_change (interval->position, LENGTH (interval),
 				    XCONS (sym)->car, XCONS (value)->car,
 				    object);
@@ -317,8 +317,8 @@
 	if (EQ (property_value (interval->plist, XCONS (sym)->car), Qunbound))
 	  {
 	    modify_region (XBUFFER (object),
-			   make_number (interval->position),
-			   make_number (interval->position + LENGTH (interval)));
+			   interval->position,
+			   interval->position + LENGTH (interval));
 	    record_property_change (interval->position, LENGTH (interval),
 				    XCONS (sym)->car, Qnil,
 				    object);
@@ -387,8 +387,8 @@
 	    if (BUFFERP (object))
 	      {
 		modify_region (XBUFFER (object),
-			       make_number (i->position),
-			       make_number (i->position + LENGTH (i)));
+			       i->position,
+			       i->position + LENGTH (i));
 		record_property_change (i->position, LENGTH (i),
 					sym1, Fcar (this_cdr), object);
 		signal_after_change (i->position, LENGTH (i), LENGTH (i));
@@ -406,8 +406,8 @@
 	  if (BUFFERP (object))
 	    {
 	      modify_region (XBUFFER (object),
-			     make_number (i->position),
-			     make_number (i->position + LENGTH (i)));
+			     i->position,
+			     i->position + LENGTH (i));
 	      record_property_change (i->position, LENGTH (i),
 				      sym1, Qnil, object);
 	      signal_after_change (i->position, LENGTH (i), LENGTH (i));
@@ -447,8 +447,8 @@
 	  if (BUFFERP (object))
 	    {
 	      modify_region (XBUFFER (object),
-			     make_number (i->position),
-			     make_number (i->position + LENGTH (i)));
+			     i->position,
+			     i->position + LENGTH (i));
 	      record_property_change (i->position, LENGTH (i),
 				      sym, Fcar (Fcdr (current_plist)),
 				      object);
@@ -470,8 +470,8 @@
 	      if (BUFFERP (object))
 		{
 		  modify_region (XBUFFER (object),
-				 make_number (i->position),
-				 make_number (i->position + LENGTH (i)));
+				 i->position,
+				 i->position + LENGTH (i));
 		  record_property_change (i->position, LENGTH (i),
 					  sym, Fcar (Fcdr (this)), object);
 		  signal_after_change (i->position, LENGTH (i), LENGTH (i));