diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-09-04 03:35:53 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-09-04 03:35:53 +0000 |
commit | 1186e2fca9a5d19b86ca0f1b3c896c262f34ffce (patch) | |
tree | b43404c69995085f09f8d35806c615d2b26e0f1a /src/textprop.c | |
parent | 2f2c4b7dd84cc36a6fbb2af2c9d4fde0b387cca4 (diff) | |
download | emacs-1186e2fca9a5d19b86ca0f1b3c896c262f34ffce.tar.gz |
(set_properties, add_properties, remove_properties):
Call modify_region with ints.
Diffstat (limited to 'src/textprop.c')
-rw-r--r-- | src/textprop.c | 24 |
1 files changed, 12 insertions, 12 deletions
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)); |