diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-10-04 16:14:59 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-10-04 16:14:59 +0000 |
| commit | 81b0559bf731da7bb5da20fb2c9a2641c6b84dea (patch) | |
| tree | 1e81197f9b04da33cc87ba872703cdd5fd49d0c9 /src/textprop.c | |
| parent | d5f215c4a1a622e9b2fb1bbc22c6cc99d5f72059 (diff) | |
| download | emacs-81b0559bf731da7bb5da20fb2c9a2641c6b84dea.tar.gz | |
(Fnext_property_change, property_change_between_p,
Fnext_single_property_change, Fprevious_property_change,
Fprevious_single_property_change, copy_text_properties): Don't use XFASTINT as
an lvalue.
Diffstat (limited to 'src/textprop.c')
| -rw-r--r-- | src/textprop.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/textprop.c b/src/textprop.c index 6f8cb7e39de..acb6d4d30c9 100644 --- a/src/textprop.c +++ b/src/textprop.c @@ -609,7 +609,7 @@ past position LIMIT; return LIMIT if nothing is found before LIMIT.") if (! NILP (limit) && !(next->position < XFASTINT (limit))) return limit; - XFASTINT (pos) = next->position - (STRINGP (object)); + XSETFASTINT (pos, next->position - (STRINGP (object))); return pos; } @@ -623,7 +623,7 @@ property_change_between_p (beg, end) Lisp_Object object, pos; XSETBUFFER (object, current_buffer); - XFASTINT (pos) = beg; + XSETFASTINT (pos, beg); i = validate_interval_range (object, &pos, &pos, soft); if (NULL_INTERVAL_P (i)) @@ -684,7 +684,7 @@ past position LIMIT; return LIMIT if nothing is found before LIMIT.") if (! NILP (limit) && !(next->position < XFASTINT (limit))) return limit; - XFASTINT (pos) = next->position - (STRINGP (object)); + XSETFASTINT (pos, next->position - (STRINGP (object))); return pos; } @@ -728,8 +728,8 @@ back past position LIMIT; return LIMIT if nothing is found until LIMIT.") && !(previous->position + LENGTH (previous) > XFASTINT (limit))) return limit; - XFASTINT (pos) = (previous->position + LENGTH (previous) - - (STRINGP (object))); + XSETFASTINT (pos, (previous->position + LENGTH (previous) + - (STRINGP (object)))); return pos; } @@ -778,8 +778,8 @@ back past position LIMIT; return LIMIT if nothing is found until LIMIT.") && !(previous->position + LENGTH (previous) > XFASTINT (limit))) return limit; - XFASTINT (pos) = (previous->position + LENGTH (previous) - - (STRINGP (object))); + XSETFASTINT (pos, (previous->position + LENGTH (previous) + - (STRINGP (object)))); return pos; } @@ -1270,7 +1270,7 @@ copy_text_properties (start, end, src, pos, dest, prop) Lisp_Object dest_start, dest_end; dest_start = pos; - XFASTINT (dest_end) = XINT (dest_start) + (XINT (end) - XINT (start)); + XSETFASTINT (dest_end, XINT (dest_start) + (XINT (end) - XINT (start))); /* Apply this to a copy of pos; it will try to increment its arguments, which we don't want. */ validate_interval_range (dest, &dest_start, &dest_end, soft); |