(casify_object, operate_on_word, Fupcase_word, Fdowncase_word,

Fcapitalize_word): Don't use XFASTINT as an lvalue.

diff --git a/src/casefiddle.c b/src/casefiddle.c
index 77d7115cab1e062b095fd2184dfcbfdfe7cc7139..f4f2e2a9b52e29e4de3dfa42c3f32928162b791d 100644 (file)
--- 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);