Commit 18e23fd0 authored by Karl Heuer's avatar Karl Heuer
Browse files

(casify_object, operate_on_word, Fupcase_word, Fdowncase_word,

Fcapitalize_word): Don't use XFASTINT as an lvalue.
parent acab6442
......@@ -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);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment