From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 4 Sep 1996 03:35:53 +0000 (+0000)
Subject: (set_properties, add_properties, remove_properties):
X-Git-Tag: emacs-20.1~3841
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=85c66a3ec95f9463552067ca9cb3e08fda5a0b05;p=emacs.git

(set_properties, add_properties, remove_properties):
Call modify_region with ints.
---

diff --git a/src/textprop.c b/src/textprop.c
index 5e9daf99fd0..0ef85117eac 100644
--- a/src/textprop.c
+++ b/src/textprop.c
@@ -300,8 +300,8 @@ set_properties (properties, interval, object)
 		  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 @@ set_properties (properties, interval, object)
 	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 @@ add_properties (plist, i, object)
 	    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 @@ add_properties (plist, i, object)
 	  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 @@ remove_properties (plist, i, object)
 	  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 @@ remove_properties (plist, i, object)
 	      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));