From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 4 Oct 1994 16:14:59 +0000 (+0000)
Subject: (Fnext_property_change, property_change_between_p,
X-Git-Tag: emacs-19.34~6533
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/e9c4fbcd665eab9a4940d0cffbed8323d6e210d3

(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.
---

diff --git a/src/textprop.c b/src/textprop.c
index 6f8cb7e39d..acb6d4d30c 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);