From 18e23fd0bb2cf53bf78ce7daeff0eab691fa863b Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 4 Oct 1994 15:41:33 +0000
Subject: [PATCH] (casify_object, operate_on_word, Fupcase_word,
 Fdowncase_word, Fcapitalize_word): Don't use XFASTINT as an lvalue.

---
 src/casefiddle.c | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/casefiddle.c b/src/casefiddle.c
index 77d7115cab1..f4f2e2a9b52 100644
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -42,9 +42,9 @@ casify_object (flag, obj)
 	  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 @@ operate_on_word (arg, newpoint)
     farend = XINT (arg) > 0 ? ZV : BEGV;
 
   *newpoint = point > farend ? point : farend;
-  XFASTINT (val) = farend;
+  XSETFASTINT (val, farend);
 
   return val;
 }
@@ -249,7 +249,7 @@ See also `capitalize-word'.")
 {
   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 @@ With negative argument, convert previous words but do not move.")
 {
   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 @@ With negative argument, capitalize previous words but do not move.")
 {
   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);