# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 781285293 0
# Node ID e8c880f2723e2994874bfbc4ac8df01be987fd70
# Parent  6e3aea54fc010268f40432e9c98d8a491a77d21a
(casify_object, operate_on_word, Fupcase_word, Fdowncase_word,
Fcapitalize_word): Don't use XFASTINT as an lvalue.

diff -r 6e3aea54fc01 -r e8c880f2723e src/casefiddle.c
--- a/src/casefiddle.c	Tue Oct 04 15:40:22 1994 +0000
+++ b/src/casefiddle.c	Tue Oct 04 15:41:33 1994 +0000
@@ -42,9 +42,9 @@
 	  if (c >= 0 && c <= 0400)
 	    {
 	      if (inword)
-		XFASTINT (obj) = DOWNCASE (c);
+		XSETFASTINT (obj, DOWNCASE (c));
 	      else if (!UPPERCASEP (c))
-		XFASTINT (obj) = UPCASE1 (c);
+		XSETFASTINT (obj, UPCASE1 (c));
 	    }
 	  return obj;
 	}
@@ -235,7 +235,7 @@
     farend = XINT (arg) > 0 ? ZV : BEGV;
 
   *newpoint = point > farend ? point : farend;
-  XFASTINT (val) = farend;
+  XSETFASTINT (val, farend);
 
   return val;
 }
@@ -249,7 +249,7 @@
 {
   Lisp_Object beg, end;
   int newpoint;
-  XFASTINT (beg) = point;
+  XSETFASTINT (beg, point);
   end = operate_on_word (arg, &newpoint);
   casify_region (CASE_UP, beg, end);
   SET_PT (newpoint);
@@ -264,7 +264,7 @@
 {
   Lisp_Object beg, end;
   int newpoint;
-  XFASTINT (beg) = point;
+  XSETFASTINT (beg, point);
   end = operate_on_word (arg, &newpoint);
   casify_region (CASE_DOWN, beg, end);
   SET_PT (newpoint);
@@ -281,7 +281,7 @@
 {
   Lisp_Object beg, end;
   int newpoint;
-  XFASTINT (beg) = point;
+  XSETFASTINT (beg, point);
   end = operate_on_word (arg, &newpoint);
   casify_region (CASE_CAPITALIZE, beg, end);
   SET_PT (newpoint);